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;