plggenv.sps

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

CREATE OR REPLACE
PACKAGE PLGgenv

/* Generator Variables */

/*----------------------------------------------------------------
||                  PL/Generator from Quest Software
||----------------------------------------------------------------
||    File: PLGgenv.sps
||  Author: Steven Feuerstein
||
|| 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
||	-------- ------ -----------------------------------------------
|| 06/97    SEF    Created
-----------------------------------------------------------------*/
IS
/*
|| Variables for elements of template. Present so they are
|| accessible to dynamic PL/SQL execution.
*/
   /* Elements in this record do not change throughout call to PLGgen.tofile */

   TYPE genrectype IS RECORD (
      /* Generate-level information */
      driver PLGadmin.identifier,
      dbsrc PLGadmin.identifier,
      target PLGadmin.identifier,
      create_at DATE,
      objname PLGadmin.identifier,
      
      /* 2000. 2 */
      jobjname PLGadmin.identifier,

      objtype PLGadmin.identifier,
      objabbrev PLGadmin.identifier, /* 99.2 */
      useobjabbrev BOOLEAN, /* 99.2 */
      -- relSpacing BOOLEAN, /* 99.2 */
      schema PLGadmin.identifier,
      dbobjname PLGadmin.identifier,
      dbschema PLGadmin.identifier,
      tabforview PLGadmin.identifier,
      arrayname PLGadmin.identifier,

      target_schema PLGadmin.identifier,
      pkgpart PLGadmin.identifier,
      pkgname PLGadmin.identifier,
      pkyname PLGadmin.identifier,
      
      pkycolname PLGadmin.identifier,

      /* 2000.2 */
      jpkycolname PLGadmin.identifier,
      jipkycolname PLGadmin.identifier,

      progname PLGadmin.identifier,

      descindex INTEGER,

      /* Exception handling options */
      errnum VARCHAR2(10),
      errmsg PLGadmin.dbmaxvc2,

      /* Pky related information */
      internal_ins PLGadmin.identifier,

      /* Loop state information */
      statetype INTEGER,
      currrow INTEGER,
      nthrow INTEGER,
      statecommand VARCHAR2(100),
      statevar VARCHAR2(100),
      statelabel VARCHAR2(100),
      beforetext VARCHAR2(100),
      betweentext VARCHAR2(100),
      aftertext VARCHAR2(100),
      istrue BOOLEAN
      );

   genrec genrectype;
   empty_genrec genrectype;

   TYPE colrectype IS RECORD
      (
      colname PLGadmin.identifier,
      uppercolname PLGadmin.identifier,
      lowercolname PLGadmin.identifier,
      
      /* 2000.2 */
      jcolname PLGadmin.identifier,
      jicolname PLGadmin.identifier,
      
      coldatatype PLGadmin.identifier,
      coldatalength INTEGER,
      colnullable CHAR(1),
      desccol PLGadmin.identifier,
      tabdesc PLGadmin.identifier,
      coldmlval PLGadmin.dbmaxvc2,
      fkpkgname PLGadmin.identifier,
      defcolval PLGadmin.dbmaxvc2,
      colhasdef VARCHAR2(10),
      pkdesccol PLGadmin.identifier,
      parmcoldef PLGadmin.dbmaxvc2
      );

   colrec colrectype;
   empty_colrec colrectype;   

   dummy VARCHAR2(10);
END PLGgenv;
/