存储 游标

Question

游标：
CREATE OR REPLACE PACKAGE TYPES AS
TYPE MY_CURSOR IS REF CURSOR;
END;CREATE OR REPLACE PACKAGE TYPES AS
TYPE MY_CURSOR IS REF CURSOR;
END;存储：
create or replace procedure proc_jfxx
(
   datetime_jfxx in date,
   strtmp out TYPES.MY_CURSOR
)
is
begin
OPEN strtmp FOR select cbxlh,zwcm from jz_jfxx where to_char(kprq,'yyyy')=to_char(datetime_jfxx,'yyyy');
end proc_jfxx;我不清楚如何调用这个存储过程把游标获取的值打出来 帮忙给写个declare

Answer 1

declare
 d date:=sysdate;
 v_cur TYPES.MY_CURSOR 
 v_aaa varchar2(20);    --与字段cbxlh类型一致
 v_bbb varchar2(20);    --与zwcm字段类型一致
begin
 proc_jfxx(d,v_cur);
 open v_cur;
 fetch v_cur into v_aaa,v_bbb;
 while v_cur %found loop
  --这里写处理的代码
  fetch v_cur into v_aaa,v_bbb;
 end loop;
 close v_cur;
end;
/