plgte.sps

来自「Oracle PL/SQL procedure generator (secon」· SPS 代码 · 共 83 行

CREATE OR REPLACE PACKAGE PLGte

/* Table Encapsulation Driver Foundation */

/*----------------------------------------------------------------
||                  PL/Generator from Quest Software 
||----------------------------------------------------------------
||    File: PLGte.sps
||  Author: Steven Feuerstein
||
|| PL/Generator Table Encapsulator 
||
|| This is a part of the PL/Generator Code library.
|| Copyright (C) 1998-1999 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
||
------------------ Modification History --------------------------
|| Date     By     Description
||	-------- ------ -----------------------------------------------
|| 3/99     SEF    Add copy of constants from plggen.
|| 1/98     SEF    Created 
-----------------------------------------------------------------*/
IS 
   both  CONSTANT PLS_INTEGER := 0;
   pkgspec CONSTANT PLS_INTEGER := 1;
   pkgbody CONSTANT PLS_INTEGER := 2;
   
   driver CONSTANT CHAR(2) := 'TE';

   /* ARRAY names. Also in plggen.sps, but should be here. */
   c_gencol CONSTANT CHAR(6) := 'GENCOL';
   c_pkycol CONSTANT CHAR(6) := 'PKYCOL';
   c_desccol CONSTANT CHAR(7) := 'DESCCOL';
   c_nonpkycol CONSTANT CHAR(9) := 'NONPKYCOL';
   c_fky CONSTANT CHAR(3) := 'FKY';
   c_fkycol CONSTANT CHAR(6) := 'FKYCOL';
   c_fkydesc CONSTANT CHAR(7) := 'FKYDESC';
   c_fkydesccol CONSTANT CHAR(10) := 'FKYDESCCOL';
   c_updcol CONSTANT CHAR(6) := 'UPDCOL';
   c_notnullcol CONSTANT CHAR(10) := 'NOTNULLCOL';
   c_col CONSTANT CHAR(3) := 'COL';
   c_uind CONSTANT CHAR(4) := 'UIND';
   c_uindcol CONSTANT CHAR(7) := 'UINDCOL';
   c_ind CONSTANT CHAR(3) := 'IND';
   c_indcol CONSTANT CHAR(6) := 'INDCOL';
   c_cons CONSTANT CHAR(4) := 'CONS';
   c_conscol CONSTANT CHAR(7) := 'CONSCOL';
   c_uconscol CONSTANT CHAR(8) := 'UCONSCOL';
   c_curs CONSTANT CHAR(4) := 'CURS';
   c_dbobject CONSTANT CHAR(8) := 'DBOBJECT';
   c_invalid_idents CONSTANT CHAR(14) := 'INVALID_IDENTS';
      
   PROCEDURE fortable (
      tab IN VARCHAR2, 
      sch IN VARCHAR2 := NULL,
      target_schema IN VARCHAR2 := NULL,
      compile IN BOOLEAN := FALSE,
      regonly IN BOOLEAN := FALSE,
      metaonly IN BOOLEAN := FALSE
   );

   PROCEDURE compile (tab IN VARCHAR2);

   PROCEDURE setfiles;

   PROCEDURE setidentifiers;

   PROCEDURE setaliases;

   PROCEDURE setsrc;

   PROCEDURE setlookups;

   PROCEDURE initialize;
   
   PROCEDURE session_init (override_str IN VARCHAR2 := NULL);

END PLGte;
/