--引用
declare
cur1 SYS_REFCURSOR;
i tgp_funds%rowtype;
begin
sql_test(cur1);
loop
fetch cur1
into i;
exit when cur1%notfound;
dbms_output.put_line('----------------:' || i.fnd_id);--fnd_id为表tgp_funds中的fnd_id 列
end loop;
close cur1;
end;
可以,海枫科技
--第一种方法
create or replace Package SYSBasic
as www.2cto.com
type cc_cursor is ref cursor;
end SYSBasic;
CREATE OR REPLACE PROCEDURE getall(
c_CurSor OUT SYSBASIC.cc_CURSOR --光标结果
)
begin
open c_CurSor For
select * from table1;
end getall;
--第二种方法
create or replace procedure p_test(p_cur out sys_refcursor)as
begin
open p_cur for select * from emp;
end p_test;
在sqlplus界面:
SQL> var r refcursor;
SQL> exec p_test(:r);
SQL> print r;