CREATE OR REPLACE PACKAGE BODY pkg_test
AS
function fun_get(p_rc varchar2)
return SYS_REFCURSOR
is
sqlstr VARCHAR2 (500);
retcusor SYS_REFCURSOR;
BEGIN
sqlstr:='select 1 row_id,''2'' row_name from dual';
OPEN retcusor FOR sqlstr;
return retcusor ;
END fun_get;
END pkg_test;
调式sql
-- Created on 2008-4-7 by QINDY
declare
-- Local variables here
iLen integer;
sName varchar2(100);
cur SYS_REFCURSOR;
begin
-- Test statements here
cur := pkg_test.fun_get('a');
FETCH cur into iLen,sName;
dbms_output.put_line(sName);
close cur;
end;
本文介绍了一个PL/SQL过程包的创建与调试示例,包括如何定义过程包体,实现返回游标的函数,并通过局部变量进行调试。示例展示了如何使用`SYS_REFCURSOR`类型来返回查询结果。
1166

被折叠的 条评论
为什么被折叠?



