在一个存储过程中调用返回一个游标的另一个存储过程

今天看到网友在CSDN论坛问这个问题，问题内容是：如何在存储过程1 调用 存储过程2 ？存储过程2 返回多行记录。

 

我做了一个简单的例子，放在这里，以便大家参考:

 

1：首先你需要创建一个包，并定义你返回的游标的类型、存储过程

create or replace package TEST_PKG is

--定义游标
  type t_cur is REF CURSOR;

  --存储过程声明
  procedure test_proc (p_cur in out t_cur);

end TEST_PKG;


2：然后你再创建包体

create or replace package body TEST_PKG is
--在包体中定价过程
procedure test_proc (p_cur in out t_cur)
as
begin
open p_cur for select * from test where rownum=1;
end test_proc;
end TEST_PKG ;


3.调用返回游标的过程

create or replace procedure test1_proc as
p_cur1 test_pkg.t_cur;
p_id varchar2(100);
p_name varchar2(100);
begin
test_pkg.test_proc(p_cur1);

loop 
 fetch p_cur1 into p_id,p_name;
  exit when p_cur1%notfound;
  dbms_output.put_line(p_id);
  dbms_output.put_line(p_name);
end loop;
end test1_proc;

4.执行调用的过程
 set serveroutput on
 exec test1_proc;