Oracle中存储过程相互调用问题

使用包返回存储过程结果集，例子：

create or replace package pkg_return_table
is
type c1 is ref
cursor;
procedure p_return_table(v_c1 out c1); --定义存储过程返回一个结果集

function f_return_table return pkg_return_table.c1; --定义函数返回一个结果集
procedure
p_return_table1(v_id int,v_c1 out c1,v_c2 out c1);
--定义存储过程返回多个结果集
end;
/

create or replace package body pkg_return_table
is
procedure
p_return_table(v_c1 out c1)
is
begin
open v_c1 for select * from
student;
end p_return_table;
function f_return_table return
pkg_return_table.c1
is
v_c1 pkg_return_table.c1;
begin

open v_c1 for select * from student;
return v_c1;
end
f_return_table;
procedure p_return_table1(v_id int,v_c1 out c1,v_c2 out
c1)
is
sqlstr varchar2(500);
begin
sqlstr:='select * from
student';
open v_c1 for sqlstr; --使用动态sql
sqlstr:='select * from
student where id=:w_id';
open v_c2 for sqlstr using v_id; --动态sql传参

end p_return_table1;
end pkg_return_table;
/

--存储过程调用
variable v_c1 REFCURSOR;
exec
pkg_return_table.p_return_table(:v_c1);
print v_c1;

--存储过程调用
variable v_c1 REFCURSOR;
variable
v_c2 REFCURSOR;
exec
pkg_return_table.p_return_table1(1,:v_c1,:v_c2);
print v_c1;
print
v_c2;

--函数调用
select pkg_return_table.f_return_table()
from dual;

重点是定义游标变量，获取存储过程结果集，然后Open游标，就跟平常的游标一样的操作啦
不用包应该也可以的，定义REFCURSOR变量即可

直接在P2里调用P1，P2中的o_result作为P1中的o_result参数。然后P1调用之后。P1的o_result就赋值给P2的o_result了。

没有这样的语法 过程可以调用过程 包 都行，但不能包含创建的实体