Oracle存储过程调用存储过程

今天突然突发奇想让一个存储过程调用另外一个存储过程返回的游标，一个自己写的demo

内存储过程（v_id为传入的参数，result_cursor为传出的存储过程，放在cursor_package中）

create or replace procedure proc_innercursor(v_id in varchar, result_cursor out cursor_package.type_cursor) is
v_name varchar2(10);
begin
open result_cursor for select t.name from sys_resource t where t.id=v_id;
end proc_innercursor;

定义包

create or replace package cursor_package as
type type_cursor is ref cursor;
end;

外部调用的存储过程

create or replace procedure proc_testcursor (v_id in varchar2) is
result_cursor cursor_package.type_cursor;
type c_resor is record(
v_pid sys_resource.name%type  自定type
);
v_pidid c_resor;
begin
proc_tesetcursor(v_id,result_cursor);
loop
fetch result_cursor into v_pidid;
exit when result_cursor%notfound;
dbms_output.put_line(v_pidid.v_pid);
end loop;
close result_cursor;
end proc_testcursor;