1、直接定义多个显示游标 
CREATE OR REPLACE PROCEDURE ACC.DBP_REALCITYTRAFFICCNT IS 
CURSOR cur1 IS SELECT 。。。 --第一个游标

CURSOR cur2 IS SELECT 。。。 --第二个游标

BEGIN

--调用cur1 
BEGIN 
OPEN cur1 ;   
  LOOP 
  FETCH cur1 INTO 。。。 
  EXIT WHEN cur1%NOTFOUND;   
  ...业务逻辑 
  COMMIT;

END LOOP; 
  CLOSE cur1;

END;

--调用cur2 
BEGIN 
  OPEN cur2 ;   
  LOOP 
  FETCH cur2 INTO 。。。 
  EXIT WHEN cur2%NOTFOUND;   
  ...业务逻辑 
  COMMIT;

END LOOP; 
  CLOSE cur2;

end; 
END DBP_REALCITYTRAFFICCNT;

-------------------------- 
2、通过定义ref游标来实现 
TYPE refcur_t IS REF CURSOR; --声明REF游标类型

cur1 refcur_t; --声明第一个游标REF游标类型的变量

cur2 refcur_t; --声明第二个游标REF游标类型的变量

BEGIN

--调用cur1 
BEGIN 
OPEN cur1 ;   
  LOOP 
  FETCH cur1 INTO 。。。 
  EXIT WHEN cur1%NOTFOUND;   
  ...业务逻辑 
  COMMIT;

END LOOP; 
  CLOSE cur1;

END;

--调用cur2 
BEGIN 
  OPEN cur2 ;   
  LOOP 
  FETCH cur2 INTO 。。。 
  EXIT WHEN cur2%NOTFOUND;   
  ...业务逻辑 
  COMMIT;

END LOOP; 
  CLOSE cur2;

end; 
END DBP_REALCITYTRAFFICCNT;

05-23 03:30