关于cursor取值的问题

[wanzhao76]

TYPE g_CUR_generic IS REF CURSOR;
---------------------------------------------------------
CREATE OR REPLACE PACKAGE BODY pkg
procedure p1(p_cur in out g_CUR_generic)
is
begin
OPEN p_cur FOR select '0' as col from dual;
end p1;

---------------------------------------------------------
procedure p2(p_cur in out g_CUR_generic)
is
begin
p1(p_cur);--call p1
--我要open p_cur，得到 p1返回的"0"，该怎么办????
for v_cur in p_cur loop
--Error: "p_cur" is not a procedure or is undefined ????
null;
end loop;
end p1;

END Pkg

END Pkg

[losgou]

fetch p_cur into :变量;

[leborety]

"p_cur" is not a procedure or is undefined ????


p_cur g_CUR_generic;
变量未定义

[wanzhao76]

p_cur in out g_CUR_generic 是procedure 的参数阿！！！
有没有高手阿！