用存储过程返回动态游标，如何调用？

Question

create or replace package test12 is
type Mycursor is ref cursor;
procedure p_test(cursor1     out  mycursor);
end test12;
/create or replace package body test12 is
procedure p_test(cursor1     out  mycursor) as
 p_sql varchar(2000);
begin
 p_sql:='SELECT id FROM tbl1';
 open cursor1 for p_sql;
end p_test;
end test12;
/存储过程已经写好，但是如何定义一个游标，以取得存储过程的返回值cursor1。请各位指教，谢谢。

Answer 1

declare
    id    number;
    cursor1    test12.Mycursor;
begin
    test12.p_test(cursor1);
    loop
    fetch cursor1 into id;
      exit when cursor1%notfound;
      dbms_output.put_line(id);
    end loop;
end;