plgcols.sps

Oracle PL/SQL procedure generator (second generator type)

CREATE OR REPLACE PACKAGE PLGcols &authidopen AUTHID CURRENT_USER &authidclose

/*----------------------------------------------------------------
||                  PL/Vision Professional 
||----------------------------------------------------------------
||    File: PLGcols.sps
||  Author: Steven Feuerstein
||
|| This is a part of the PL/Vision Professional Code library.
|| Copyright (C) 1996-99 Quest Software, Inc.
|| All rights reserved.
||
|| For more information, call Quest Software at 1-800-REVEAL4
|| or check out our Web page: www.Quest Software.com
||
-----------------------------------------------------------------*/
IS
   c_nullable CONSTANT CHAR(1) := 'Y';
   c_notnullable CONSTANT CHAR(1) := 'N';

   TYPE col_rectype IS RECORD
      (column_id ALL_TAB_COLUMNS.COLUMN_ID%TYPE,
       column_name ALL_TAB_COLUMNS.COLUMN_NAME%TYPE,
       data_type ALL_TAB_COLUMNS.DATA_TYPE%TYPE,
       data_length ALL_TAB_COLUMNS.DATA_LENGTH%TYPE,
       data_precision ALL_TAB_COLUMNS.DATA_PRECISION%TYPE,
       data_declaration VARCHAR2(100),
       nullable ALL_TAB_COLUMNS.NULLABLE%TYPE,
       default_length ALL_TAB_COLUMNS.DEFAULT_LENGTH%TYPE,
       data_default ALL_TAB_COLUMNS.DATA_DEFAULT%TYPE,
       comments ALL_COL_COMMENTS.COMMENTS%TYPE /* available as comment area */,
       /* New for 1997 Q3 */
       constraint_name ALL_CONSTRAINTS.CONSTRAINT_NAME%TYPE,
       constraint_type ALL_CONSTRAINTS.CONSTRAINT_TYPE%TYPE,
       pky_position ALL_CONS_COLUMNS.POSITION%TYPE /* For PK only */,
       pky_table_name ALL_CONSTRAINTS.TABLE_NAME%TYPE /* For FK only */
       );
   
   TYPE col_tabtype IS TABLE OF col_rectype 
      INDEX BY BINARY_INTEGER;
         
   FUNCTION fortab (tab IN VARCHAR2, sch IN VARCHAR2 := NULL,
      getkeys IN BOOLEAN := FALSE)
      RETURN col_tabtype;

   PROCEDURE setcomment (colrec_inout IN OUT col_rectype, 
      comment_in IN ALL_COL_COMMENTS.COMMENTS%TYPE);
   
   FUNCTION ispky (coltab IN col_tabtype, colrow IN PLS_INTEGER) RETURN BOOLEAN;
   
   FUNCTION iscolumn (tab IN VARCHAR2, col IN VARCHAR2, sch IN VARCHAR2 := NULL)
      RETURN BOOLEAN;
      

END PLGcols;                      
/