SQL> create table test2(s1 varchar(10),s2 varchar2(10));
表已创建。
SQL> insert into test2 values('11','111');
已创建 1 行。
SQL> insert into test2 values('22','222');
已创建 1 行。
SQL> CREATE OR REPLACE PACKAGE test222 AS
2 TYPE t_cursor IS REF CURSOR;
3 procedure p_test1( p_dd in out t_cursor);
4 end;
5 /
程序包已创建。
SQL> CREATE OR REPLACE package body test222 AS
2 procedure p_test1(
3 p_dd in out t_cursor)
4 is
5 begin
6 open p_dd for select * from test2;
7 end;
8 end;
9 /
程序包主体已创建。
SQL> var ss refcursor
SQL> exec test222.p_test1(:ss);
PL/SQL 过程已成功完成。
SQL> print ss
S1 S2
--------- ----------
11 111
22 222
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/9417382/viewspace-932261/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/9417382/viewspace-932261/