怎麼用語句的形式將游標參數傳到procedure裡面？

[ld_key]

怎麼用執行語句的形式將游標參數傳到procedure裡面？
就像在sql/plus中var xxx is refcurso; execute(myprocedure,:xxx)一樣。

[beckhambobo]

declare
cursor t_sor is
select name from user_objects where type='PROCEDURE';
str varchar2(100);
begin
str:='begin ';
for v_sor in t_sor loop
str:=str||v_sor.name||';';
end loop
str:=str||' end;';
execute imediate str;
end;
/

[BlueskyWide]

用函数方式。
在此函数中定义游标，若游标取到满足条件的值时，将status置为此值；若未取到，则置为0返回。
再在过程中调用此函数。