返回结果集的存储过程实例及调用

1、创建一个包，定义一个游标类型，为存储过程的输出参数使用

create or replace package sp_emp_pk as
type sp_emp_cursor is ref cursor;
end sp_emp_pk;
/

2、创建返回结果集的存储过程

create or replace PROCEDURE sproc_cursor(deptnum in number,emp_cursor out sp_emp_pk.sp_emp_cursor) is
begin
open emp_cursor for select ename,sal from emp where deptno=deptnum;
end sproc_cursor;
/

3、返回结果集的存储过程的调用

declare 
type sp_emp_cursor is ref cursor;
emp_cursor sp_emp_cursor;
--v_empno emp.empno%type:=7839;
v_deptno emp.deptno%type:=10;
v_ename emp.ename%type;
v_sal emp.sal%type;
begin
sproc_cursor(v_deptno,emp_cursor);
loop
fetch emp_cursor into v_ename,v_sal;
exit when emp_cursor%notfound;
--sp_pro8(v_empno,v_ename);
dbms_output.put_line(v_ename);
end loop;
--dbms_output.put_line('Hello world');
close emp_cursor;
end;
/