create or repalce package empdata as
cursor cur1 is select * from tabs;
type empcur is ref cursor return cur1%rowtype;
peocedure getempDate(myempcur in out empcur);
end empdata;
create or replace package body empdata as
procedure getempdata(myempcur in out empcur)
is
begin
open myempcur for
select * from tabs;
end getempdata;
end empdata;
解决办法如下 :
declare curs empdata.cur1%rowtype;
begin
IF empdata.cur1%ISOPEN THEN
CLOSE empdata.cur1;
END IF;
open empdata.cur1;
loop
fetch empdata.cur1 into curs;
exit when empdata.cur1%ROWCOUNT>10;
dbms_output.put_line(curs.TABLE_NAME);
end loop;
close empdata.cur1;
end;
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/90618/viewspace-426897/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/90618/viewspace-426897/