--游标的使用
create or replace procedure p_rss_getSeedorUser(
id rss.t_rss_seed.id%type,
c_seed out SYS_REFCURSOR
)is

begin
if rtrim(ltrim(id))='1' then
open c_seed for 'select rss_seed_name from t_rss_seed';
elsif rtrim(ltrim(id))='2' then
open c_seed for 'select user_name from t_rss_user';
else
open c_seed for 'select * from dual';
end if;
end p_rss_getSeedorUser;

declare
c SYS_REFCURSOR;
d SYS_REFCURSOR;
lv rss.t_rss_seed.rss_seed_name%type;
begin
dbms_output.put_line('********************1*********************');
p_rss_getSeedorUser('1',c);
/**
for i in c loop
dbms_output.put_line('T_RSS_SEED.Name:=' || i.name);
end loop;*/

d:=c;
loop
fetch d into lv;
exit when d%notfound=true;
dbms_output.put_line('T_RSS_SEED.Name:=' || lv);
end loop;
dbms_output.put_line('********************1*********************');
p_rss_getSeedorUser('2',c);
d:=c;
loop
fetch d into lv;
exit when d%notfound=true;
dbms_output.put_line('T_RSS_User.Name:=' || lv);
end loop;
dbms_output.put_line('********************3*********************');
p_rss_getSeedorUser('3',c);
d:=c;
loop
fetch d into lv;
exit when d%notfound=true;
dbms_output.put_line('T_RSS_SEED.Name:=' || lv);
end loop;
close d;
end;