返回是游标的函数

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;