PACKAGE PKG1

Function list:


1. FCN_SEQ1_GET_NEXT

Procedure list:


1. PRC_2
2. PRC_REF_CUR_TAB2

Constants list:


1. GC_MAGIC_DATE

Types list:


1. TYPE1

Subtypes list:


1. SUBTYPE1

CREATE OR REPLACE PACKAGE pkg1 IS



/* ***************************************************

  This is a sample of a reference cursor

  declared in a package

*************************************************** */

  TYPE type1 IS REF CURSOR /*=>*/

    RETURN tab2%ROWTYPE;



/* ***************************************************

  This is a sample of a subtype

  declared in a package

*************************************************** */

  SUBTYPE subtype1 IS CHAR;



/* ***************************************************

  This is a sample of a constant declared in a package

*************************************************** */

  gc_magic_date CONSTANT DATE /*=>*/

    := TO_DATE('10/10/1998','MM/DD/YYYY');



--- Returns the next value of SEQ1  

  FUNCTION fcn_seq1_get_next RETURN NUMBER;





/* ***************************************************

  This procedure returns a reference cursor pointing

  to a SELECT statement.

*************************************************** */

  PROCEDURE prc_ref_cur_tab2(iov_ref IN OUT type1);



/* ***************************************************

  This procedure is a sample of how reference cursors

  can be used.

*************************************************** */

  PROCEDURE prc_2;



END;

/