定义公共的package－－REF CURSOR篇

create or replace PACKAGE "TYPES"
AS
 TYPE cursor_type IS REF CURSOR;
END; 

 

使用：

CREATE OR REPLACE
PROCEDURE "USP_MT_RSN_S#REASONTYPE"
/*
    Copyright(c) 1987-2003 eBworx,Inc.
    Remark : First Creation (kkgan@ebworx.com 20031202)
*/
(
    mt_rsn_typ_cd_in    IN  tbl_mt_rsn.mt_rsn_typ_cd%TYPE,
    result_cursor   OUT TYPES.cursor_type
)
AS

BEGIN
    OPEN result_cursor FOR
        SELECT
                tbl_mt_rsn.cd,
                tbl_mt_rsn.dscp,
                tbl_mt_rsn.alt_dscp

   FROM
    tbl_mt_rsn

   WHERE
             tbl_mt_rsn.is_del  = 'N'
         AND tbl_mt_rsn.is_deactivated  = 'N'
      AND tbl_mt_rsn.mt_rsn_typ_cd  LIKE UPPER(mt_rsn_typ_cd_in);

END;