ref cursor类型create or replace package pag_cs_power as    type c_Type is ref cursor;
  
FUNCTION FUN_CS_GETDICTLIST(
  v_DictIndex in  varchar2) return c_Type;end pag_cs_power;存储过程代码:FUNCTION FUN_CS_GETDICTLIST(
  v_DictIndex in  varchar2) return c_Type
     as
        c_cursor            c_Type;
begin
   open c_cursor for
      select DICTID,DICTNAME FROM SYS_DICT WHERE DICTINDEX = v_DictIndex;
   return c_cursor;
end FUN_CS_GETDICTLIST;

解决方案 »

  1.   

    CREATE OR REPLACE PACKAGE pkg_test
    AS
       TYPE myrctype IS REF CURSOR;
    END pkg_test;
    /
    CREATE PROCEDURE sp_fauleinfo(pAgentID in varchar2,p_rc out pkg_test.myrctype)
    AS
    begin
    open p_rc for 'Select Agent_id,Agent_name from failinfo where AgentID='||pAgentID;
    end;
      

  2.   

    Create Or Replace Package pac_test
    is
    Type Cur_MyCur is ref cursor;
    function fun_test(para1 varchar2)
    return Cur_MyCur;
    end pac_test;
    /create or replace package body pac_test
    is
    function fun_test(para1 varchar2)
    return Cur_MyCur Is CurRet Cur_MyCur;
    begin
    Open CurRet For
    Select * from BT_Roles;
    return CurRet;
    end;
    end pac_test;
    /哎。也来晚了。