3,491
社区成员
发帖
与我相关
我的任务
分享
CREATE OR REPLACE PACKAGE PACK_TEST
AS
--这个是游标
TYPE TESTCUR IS REF CURSOR;
--这个是过程
PROCEDURE sp_test1(P_CUR OUT TESTCUR);
END PACK_TEST;
--声明包体
CREATE OR REPLACE PACKAGE BODY PACK_TEST
AS
PROCEDURE sp_test1(P_CUR OUT TESTCUR) is
strsql varchar2(1000);
begin
strsql:='select * from test_table ;
open p_cur for strsql ;
end sp_test1;
end PACK_TEST;