第一种情况是返回的游标是某个具体的表或视图的数据，如：
sql-code:
复制代码 代码如下:
create or replace procedure p_testa (
presult out sys_refcursor
)
as
begin
open presult for select * from users;
end p_testa;
其中users就是数据库中一个表。在调用的时候只要声明一个该表的rowtype类型就可以了：
sql-code:
复制代码 代码如下:
create or replace procedure p_testb
as
varcursor sys_refcursor;
r users%rowtype;
begin
p_testa(varcursor);
loop
fetch varcursor into r;
exit when varcursor%notfound;
dbms_output.put_line(r.name);
end loop;
end p_testb;
第二种情况，我们返回的不是表的所有的列，或许只是其中一列或两列，如：
sql-code:
复制代码 代码如下:
create or replace procedure p_testa (
presult out sys_refcursor
)
as
begin
open presult for select id,name from users;
end p_testa;
这里我们只返回了users表的id,name这两个列，那么调用的时候也必须做相应的修改：
sql-code:
复制代码 代码如下:
create or replace procedure p_testb
as
varcursor sys_refcursor;
cursor tmpcursor is select id,name from users where rownum=1;
r tmpcursor%rowtype;
begin
p_testa(varcursor);
loop
fetch varcursor into r;
exit when varcursor%notfound;
dbms_output.put_line(r.id);
end loop;
end p_testb;
与之前不同的是我们声明了一个游标类型的变量tmpcursor ，注意tmpcursor 的结构必须与存储过程p_testa 返回的游标结构一致，否则就会出现错误。同理只要保持两个游标类型结构一致，就可以实现自由调用。