plgte.spb

Oracle PL/SQL procedure generator (second generator type)

      PLGdoir.defdrvsrc (driver, 15, 'tewspec.gdr',
         'Write-only package specification',
         ftype => PLGdoir.c_ft_code,
         use_file => FALSE,
         tab => PLGdoir.c_global,
         sch => PLGdoir.c_global);

      PLGdoir.defdrvsrc (driver, 16, 'tewbody.gdr',
         'Write-only package body',
         ftype => PLGdoir.c_ft_code,
         use_file => FALSE,
         tab => PLGdoir.c_global,
         sch => PLGdoir.c_global);
      */

      /* COMMENTED OUT
         -- Specification and Body of Forms Builder Package
      PLGdoir.defdrvsrc (driver, 17, 'tefbspec.gdr',
         'Package specification for Forms Builder datablock',
         ftype => PLGdoir.c_ft_code,
         use_file => FALSE,
         tab => PLGdoir.c_global,
         sch => PLGdoir.c_global);

      PLGdoir.defdrvsrc (driver, 18, 'tefbbody.gdr',
         'Package body for Forms Builder datablock',
         ftype => PLGdoir.c_ft_code,
         use_file => FALSE,
         tab => PLGdoir.c_global,
         sch => PLGdoir.c_global);
      */
   END;

   PROCEDURE setidentifiers
   IS
   BEGIN
   /* Define the identifiers for this driver. The identifiers define the list
      of possible names on which you can set aliases. */

      /* Object level Identifiers */

      PLGdoir.set_objident (
          driver, 'package', 
          '{'||PLGdoir.plgalias||'apppre}{'||PLGdoir.plgalias||'pkgpre}{[objname]}{'||PLGdoir.plgalias||'pkgsuf}',
         'Name of package');

      PLGdoir.set_objident (driver, 
         'schpackage', 
         '[target_schema]{'||PLGdoir.plgalias||'apppre}{'||PLGdoir.plgalias||'pkgpre}{[objname]}{'||PLGdoir.plgalias||'pkgsuf}',
         'Name of package with schema attached');

      PLGdoir.set_objident (driver, 'tstpackage', 
         '{'||PLGdoir.plgalias||'testpre}{'||PLGdoir.plgalias||'apppre}{'||PLGdoir.plgalias||'pkgpre}{[objname]}{'||PLGdoir.plgalias||'pkgsuf}{'||PLGdoir.plgalias||'testsuf}',
         'Name of test package');

      PLGdoir.set_objident (driver, 'tableCV', '{'||PLGdoir.plgalias||'cvtpre}{[objname]}{'||PLGdoir.plgalias||'cvtsuf}',
         'Cursor variable TYPE for the table');

      /* "Static" identifiers that do not change within a generation. */
      PLGdoir.set_ident (driver, 'inrec', '{'||PLGdoir.plgalias||'inpre}{'||PLGdoir.plgalias||'rec}{'||PLGdoir.plgalias||'insuf}',
         'IN record for all visible columns');
      PLGdoir.set_ident (driver, 'oldinrec', '{'||PLGdoir.plgalias||'inpre}old{'||PLGdoir.plgalias||'rec}{'||PLGdoir.plgalias||'insuf}',
         'IN record for old values of primary key columns');
      PLGdoir.set_ident (driver, 'inoutrec', '{'||PLGdoir.plgalias||'inoutpre}{'||PLGdoir.plgalias||'rec}{'||PLGdoir.plgalias||'inoutsuf}',
         'IN OUT record for all visible columns');
      PLGdoir.set_ident (driver, 'pkyRT', '{'||PLGdoir.plgalias||'rtpre}{'||PLGdoir.plgalias||'pky}{'||PLGdoir.plgalias||'rtsuf}',
         'Record TYPE corresponding to columns of primary key');
      PLGdoir.set_ident (driver, 'allcolsRT', '{'||PLGdoir.plgalias||'rtpre}{'||PLGdoir.plgalias||'allcols}{'||PLGdoir.plgalias||'rtsuf}',
         'Record TYPE corresponding to subset of columns of table (minus hidden columns)');
      PLGdoir.set_ident (driver, 'pkyCV', '{'||PLGdoir.plgalias||'cvtpre}{'||PLGdoir.plgalias||'pky}{'||PLGdoir.plgalias||'cvtsuf}',
         'Cursor Variable TYPE for primary key');
      PLGdoir.set_ident (driver, 'outRC', '{'||PLGdoir.plgalias||'outpre}{'||PLGdoir.plgalias||'rowcount}{'||PLGdoir.plgalias||'outsuf}',
         'Subtype used to name the argument returning number of rows affected');

      PLGdoir.set_ident (driver, 'closeallproc', '{'||PLGdoir.plgalias||'procpre}{'||PLGdoir.plgalias||'closeall}{'||PLGdoir.plgalias||'procsuf}',
         'Procedure closes all open cursors defined in the package');

      PLGdoir.set_ident (driver, 'loadproc', '{'||PLGdoir.plgalias||'procpre}{'||PLGdoir.plgalias||'load_to_memory}{'||PLGdoir.plgalias||'procsuf}',
         'Loads data from table to in-memory cache');

      PLGdoir.set_ident (driver, 'showloadproc', '{'||PLGdoir.plgalias||'procpre}{'||PLGdoir.plgalias||'showload}{'||PLGdoir.plgalias||'procsuf}',
         'Shows data currently in in-memory cache');

      PLGdoir.set_ident (driver, 'inoutstart', '{'||PLGdoir.plgalias||'inoutpre}{'||PLGdoir.plgalias||'start}{'||PLGdoir.plgalias||'inoutsuf}',
         'Starting row for display of in-memory cache');

      PLGdoir.set_ident (driver, 'inoutend', '{'||PLGdoir.plgalias||'inoutpre}{'||PLGdoir.plgalias||'end}{'||PLGdoir.plgalias||'inoutsuf}',
         'Ending row for display of in-memory cache');

      PLGdoir.set_ident (driver, 'isnullfunc', '{'||PLGdoir.plgalias||'funcpre}{'||PLGdoir.plgalias||'isnullpky}{'||PLGdoir.plgalias||'funcsuf}',
         'Returns TRUE if primary key has NULL values');
      PLGdoir.set_ident (driver, 'onerowfunc', '{'||PLGdoir.plgalias||'funcpre}{'||PLGdoir.plgalias||'onerow}{'||PLGdoir.plgalias||'funcsuf}',
         'Returns one row for a primary key');
      PLGdoir.set_ident (driver, 'tabcountfunc', '{'||PLGdoir.plgalias||'funcpre}{'||PLGdoir.plgalias||'rowcount}{'||PLGdoir.plgalias||'funcsuf}',
         'Returns count of rows in table');
      PLGdoir.set_ident (driver, 'pkycountfunc', '{'||PLGdoir.plgalias||'funcpre}{'||PLGdoir.plgalias||'pky}{'||PLGdoir.plgalias||'rowcount}{'||PLGdoir.plgalias||'funcsuf}',
         'Returns count of rows in table for specific primary key');
      PLGdoir.set_ident (driver, 'SAonerowfunc', '{'||PLGdoir.plgalias||'sapre}{'||PLGdoir.plgalias||'funcpre}{'||PLGdoir.plgalias||'onerow}{'||PLGdoir.plgalias||'funcsuf}{'||PLGdoir.plgalias||'sasuf}',
         'Stand-alone Returns one row for a primary key');
      PLGdoir.set_ident (driver, 'onerowCVfunc', '{'||PLGdoir.plgalias||'funcpre}{'||PLGdoir.plgalias||'cvfuncpre}{'||PLGdoir.plgalias||'onerow}{'||PLGdoir.plgalias||'cvfuncsuf}{'||PLGdoir.plgalias||'funcsuf}',
         'Returns one row for primary key');
      PLGdoir.set_ident (driver, 'valproc', '{'||PLGdoir.plgalias||'procpre}{'||PLGdoir.plgalias||'validate}{'||PLGdoir.plgalias||'procsuf}',
         'Procedure validates all check constraints');
      PLGdoir.set_ident (driver, 'resetfrcproc', '{'||PLGdoir.plgalias||'procpre}{'||PLGdoir.plgalias||'frcpre}{'||PLGdoir.plgalias||'reset}{'||PLGdoir.plgalias||'frcsuf}{'||PLGdoir.plgalias||'procsuf}',
         'Procedure resets all force flags for column updates');
      PLGdoir.set_ident (driver, 'initrecfunc', '{'||PLGdoir.plgalias||'funcpre}{'||PLGdoir.plgalias||'initrec}{'||PLGdoir.plgalias||'funcsuf}',
         'Function initializes record to default values');
      PLGdoir.set_ident (driver, 'initrecproc', '{'||PLGdoir.plgalias||'procpre}{'||PLGdoir.plgalias||'initrec}{'||PLGdoir.plgalias||'procsuf}',
         'Procedure initializes record to default values');
      PLGdoir.set_ident (driver, 'nextpkyfunc', '{'||PLGdoir.plgalias||'funcpre}{'||PLGdoir.plgalias||'nextpky}{'||PLGdoir.plgalias||'funcsuf}',
         'Returns the next primary key value');

      PLGdoir.set_ident (driver, 'insproc', '{'||PLGdoir.plgalias||'procpre}{'||PLGdoir.plgalias||'ins}{'||PLGdoir.plgalias||'procsuf}',
         'Procedures inserts a row in the table');
      PLGdoir.set_ident (driver, 'updproc', '{'||PLGdoir.plgalias||'procpre}{'||PLGdoir.plgalias||'upd}{'||PLGdoir.plgalias||'procsuf}',
         'Procedure updates a row in the table');
      PLGdoir.set_ident (driver, 'updpkyproc', '{'||PLGdoir.plgalias||'procpre}{'||PLGdoir.plgalias||'upd}pky{'||PLGdoir.plgalias||'procsuf}',
         'Procedure updates the primary key column(s)');
      PLGdoir.set_ident (driver, 'delproc', '{'||PLGdoir.plgalias||'procpre}{'||PLGdoir.plgalias||'del}{'||PLGdoir.plgalias||'procsuf}',
         'Procedure deletes a row in the table');

      PLGdoir.set_ident (driver, 'SAinsproc', '{'||PLGdoir.plgalias||'sapre}{'||PLGdoir.plgalias||'procpre}{'||PLGdoir.plgalias||'ins}{'||PLGdoir.plgalias||'procsuf}{'||PLGdoir.plgalias||'sasuf}',
         'Stand-alone insert procedure');
      PLGdoir.set_ident (driver, 'SAupdproc', '{'||PLGdoir.plgalias||'sapre}{'||PLGdoir.plgalias||'procpre}{'||PLGdoir.plgalias||'upd}{'||PLGdoir.plgalias||'procsuf}{'||PLGdoir.plgalias||'sasuf}',
         'Stand-alone update procedure');
      PLGdoir.set_ident (driver, 'SAdelproc', '{'||PLGdoir.plgalias||'sapre}{'||PLGdoir.plgalias||'procpre}{'||PLGdoir.plgalias||'del}{'||PLGdoir.plgalias||'procsuf}{'||PLGdoir.plgalias||'sasuf}',
         'Stand-alone delete procedure');

      PLGdoir.set_ident (driver, 'lookupfkydescproc', '{'||PLGdoir.plgalias||'procpre}{'||PLGdoir.plgalias||'lookup_fkydescs}{'||PLGdoir.plgalias||'procsuf}',
         'Procedure returns foreign key descriptors');

      /*Column related identifiers. */
      PLGdoir.set_colident (driver, 'incol',
         '{'||PLGdoir.plgalias||'inpre}{[colname]}{'||PLGdoir.plgalias||'insuf}',
         'IN parameter for column in table');
      PLGdoir.set_colident (driver, 'oldincol',
         '{'||PLGdoir.plgalias||'inpre}old{[colname]}{'||PLGdoir.plgalias||'insuf}',
         'IN parameter for old value of primary key column');
      PLGdoir.set_colident (driver, 'outcol',
         '{'||PLGdoir.plgalias||'outpre}{[colname]}{'||PLGdoir.plgalias||'outsuf}',
         'OUT parameter for column in table');
      PLGdoir.set_colident (driver, 'colfld',
         '{'||PLGdoir.plgalias||'fldpre}{[colname]}{'||PLGdoir.plgalias||'fldsuf}',
         'Field of record for column in table');
      PLGdoir.set_colident (driver, 'inpkycol',
         '{'||PLGdoir.plgalias||'inpre}{[pkycolname]}{'||PLGdoir.plgalias||'insuf}',
         'IN parameter for primary key column',
         override => 'pkycolname');
      PLGdoir.set_colident (driver, 'getupdcol',
         '{'||PLGdoir.plgalias||'funcpre}{'||PLGdoir.plgalias||'getvalpre}{[updcol.colname]}{'||PLGdoir.plgalias||'getvalsuf}{'||PLGdoir.plgalias||'funcsuf}',
         'Returns single column value for a primary key');
      PLGdoir.set_colident (driver, 'updcolproc',
         '{'||PLGdoir.plgalias||'procpre}{'||PLGdoir.plgalias||'updcolpre}{[updcol.colname]}{'||PLGdoir.plgalias||'updcolsuf}{'||PLGdoir.plgalias||'procsuf}',
         'Procedure updates single column value for a primary key');
      PLGdoir.set_colident (driver, 'frccolfunc',
         '{'||PLGdoir.plgalias||'funcpre}{'||PLGdoir.plgalias||'frcpre}{[colname]}{'||PLGdoir.plgalias||'frcsuf}{'||PLGdoir.plgalias||'funcsuf}',
         'Function forces use of NULL value in general update procedure');

      /*Cursor related identifiers. */
      PLGdoir.set_ident (driver, 'bypkycur', '{'||PLGdoir.plgalias||'curpre}[curname]{'||PLGdoir.plgalias||'bypky}{'||PLGdoir.plgalias||'cursuf}',
         'Cursor returning specified columns from all rows');
      PLGdoir.set_ident (driver, 'openbypkycurproc', '{'||PLGdoir.plgalias||'procpre}open{'||PLGdoir.plgalias||'divider}{'||PLGdoir.plgalias||'bypkycur}{'||PLGdoir.plgalias||'procsuf}',
         'Procedure opens the cursor returning specified columns from all rows');
      PLGdoir.set_ident (driver, 'closebypkycurproc', '{'||PLGdoir.plgalias||'procpre}close{'||PLGdoir.plgalias||'divider}{'||PLGdoir.plgalias||'bypkycur}{'||PLGdoir.plgalias||'procsuf}',
         'Procedure closes the cursor returning specified columns from all rows');
      PLGdoir.set_ident (driver, 'getbypkyCV', '{'||PLGdoir.plgalias||'funcpre}{'||PLGdoir.plgalias||'cvfuncpre}[curname]{'||PLGdoir.plgalias||'bypky}{'||PLGdoir.plgalias||'cvfuncsuf}{'||PLGdoir.plgalias||'funcsuf}',
         'Returns cursor variable to specified columns from all rows');

      PLGdoir.set_ident (driver, 'forpkycur', '{'||PLGdoir.plgalias||'curpre}[curname]{'||PLGdoir.plgalias||'forpky}{'||PLGdoir.plgalias||'cursuf}',
         'Cursor returning specified columns for a primary key');
      PLGdoir.set_ident (driver, 'openforpkycurproc', '{'||PLGdoir.plgalias||'procpre}open{'||PLGdoir.plgalias||'divider}{'||PLGdoir.plgalias||'forpkycur}{'||PLGdoir.plgalias||'procsuf}',
         'Procedure opens the cursor returning specified columns for a primary key');
      PLGdoir.set_ident (driver, 'closeforpkycurproc', '{'||PLGdoir.plgalias||'procpre}close{'||PLGdoir.plgalias||'divider}{'||PLGdoir.plgalias||'forpkycur}{'||PLGdoir.plgalias||'procsuf}',
         'Procedure closes the cursor returning specified columns for a primary key');
      PLGdoir.set_ident (driver, 'getforpkyCV',
         '{'||PLGdoir.plgalias||'funcpre}{'||PLGdoir.plgalias||'cvfuncpre}[curname]{'||PLGdoir.plgalias||'forpky}{'||PLGdoir.plgalias||'cvfuncsuf}{'||PLGdoir.plgalias||'funcsuf}',
         'Returns cursor variable to specified columns for a primary key');

      /*Index related identifiers. */
      PLGdoir.set_indident (driver, 'getvalind', '{'||PLGdoir.plgalias||'funcpre}{'||PLGdoir.plgalias||'getvalpre}{[indname]}{'||PLGdoir.plgalias||'getvalsuf}{'||PLGdoir.plgalias||'funcsuf}',
         'Returns index values for primary key');
      PLGdoir.set_indident (driver, 'getrowind', '{'||PLGdoir.plgalias||'funcpre}{'||PLGdoir.plgalias||'getrowpre}{[indname]}{'||PLGdoir.plgalias||'getrowsuf}{'||PLGdoir.plgalias||'funcsuf}',
         'Returns row for unique index entry');
      PLGdoir.set_indident (driver, 'getpkyind', '{'||PLGdoir.plgalias||'funcpre}{'||PLGdoir.plgalias||'getpkypre}{[indname]}{'||PLGdoir.plgalias||'getpkysuf}{'||PLGdoir.plgalias||'funcsuf}',
         'Returns primary key for unique index entry');

      PLGdoir.set_indident (driver, 'getvalindCV',
         '{'||PLGdoir.plgalias||'funcpre}{'||PLGdoir.plgalias||'getvalcvpre}{[indname]}{'||PLGdoir.plgalias||'getvalcvsuf}{'||PLGdoir.plgalias||'funcsuf}',
         'Returns cursor variable to index values for a primary key');
      PLGdoir.set_indident (driver, 'getrowindCV',
         '{'||PLGdoir.plgalias||'funcpre}{'||PLGdoir.plgalias||'getrowcvpre}{[indname]}{'||PLGdoir.plgalias||'getrowcvsuf}{'||PLGdoir.plgalias||'funcsuf}',
         'Returns cursor variable to row for unique index entry');
      PLGdoir.set_indident (driver, 'getpkyindCV',
         '{'||PLGdoir.plgalias||'funcpre}{'||PLGdoir.plgalias||'getpkycvpre}{[indname]}{'||PLGdoir.plgalias||'getpkycvsuf}{'||PLGdoir.plgalias||'funcsuf}',
         'Returns cursor variable to primary key for unique index entry');

      PLGdoir.set_indident (driver, 'indexRT', '{'||PLGdoir.plgalias||'rtpre}{[indname]}{'||PLGdoir.plgalias||'rtsuf}',
         'Record TYPE for a unique index');
      PLGdoir.set_indident (driver, 'indexCV', '{'||PLGdoir.plgalias||'cvtpre}{[indname]}{'||PLGdoir.plgalias||'cvtsuf}',
         'Cursor variable TYPE for a unique index');
      PLGdoir.set_indident (driver, 'descindexRT', '{'||PLGdoir.plgalias||'rtpre}{[fkydescindex]}{'||PLGdoir.plgalias||'rtsuf}',
         'Record TYPE for a foreign key''s descriptor index',
         override => 'fkydescindex');
      PLGdoir.set_indident (driver, 'descindexfunc',
         '{'||PLGdoir.plgalias||'funcpre}{'||PLGdoir.plgalias||'getvalpre}{[fkydescindex]}{'||PLGdoir.plgalias||'getvalsuf}{'||PLGdoir.plgalias||'funcsuf}',
         'Returns the index values for a foreign key',
         override => 'fkydescindex');

      PLGdoir.set_consident (driver, 'chkfunc',
         '{'||PLGdoir.plgalias||'funcpre}{'||PLGdoir.plgalias||'chkpre}{[constraint_name]}{'||PLGdoir.plgalias||'chksuf}{'||PLGdoir.plgalias||'funcsuf}',
         'Returns TRUE if check constraint valid');

      PLGdoir.set_fkyident (driver,
         'fkycur',
         '{'||PLGdoir.plgalias||'curpre}{[fkyname]}{'||PLGdoir.plgalias||'divider}[curname]{'||PLGdoir.plgalias||'cursuf}',
         'Cursor returning rows for foreign key');
      PLGdoir.set_fkyident (driver, 'openfkycurproc',
         '{'||PLGdoir.plgalias||'procpre}open{'||PLGdoir.plgalias||'divider}{'||PLGdoir.plgalias||'curpre}{[fkyname]}{'||PLGdoir.plgalias||'divider}[curname]{'||PLGdoir.plgalias||'cursuf}{'||PLGdoir.plgalias||'procsuf}',
         'Opens cursor returning rows for foreign key');
      PLGdoir.set_fkyident (driver, 'closefkycurproc',
         '{'||PLGdoir.plgalias||'procpre}close{'||PLGdoir.plgalias||'divider}{'||PLGdoir.plgalias||'curpre}{[fkyname]}{'||PLGdoir.plgalias||'divider}[curname]{'||PLGdoir.plgalias||'cursuf}{'||PLGdoir.plgalias||'procsuf}',
         'Closes cursor returning rows for foreign key');
      PLGdoir.set_fkyident (driver, 'delbyfkyproc',
         '{'||PLGdoir.plgalias||'procpre}{'||PLGdoir.plgalias||'del}by{'||PLGdoir.plgalias||'divider}{[fkyname]}{'||PLGdoir.plgalias||'procsuf}',
         'Deletes all rows for foreign key value');
      PLGdoir.set_fkyident (driver, 'fkyrt',
         '{'||PLGdoir.plgalias||'rtpre}{[fkyname]}{'||PLGdoir.plgalias||'rtsuf}',
         'Foreign key-based record TYPE');
      PLGdoir.set_fkyident (driver, 'outfkyparm',
         '{'||PLGdoir.plgalias||'outpre}{[fkyname]}{'||PLGdoir.plgalias||'outsuf}',
         'Foreign key-based OUT argument record');
      PLGdoir.set_fkyident (driver, 'getfkyCV',
         '{'||PLGdoir.plgalias||'funcpre}{'||PLGdoir.plgalias||'cvfuncpre}{[fkyname]}{'||PLGdoir.plgalias||'divider}[curname]{'||PLGdoir.plgalias||'cvfuncsuf}{'||PLGdoir.plgalias||'funcsuf}',
         'Returns cursor variable to rows for foreign key');
      PLGdoir.set_fkyident (driver, 'fkycountfunc',
         '{'||PLGdoir.plgalias||'funcpre}{[fkyname]}{'||PLGdoir.plgalias||'rowcount}{'||PLGdoir.plgalias||'funcsuf}',
         'Returns count for foreign key');
      PLGdoir.set_fkyident (driver, 'fkypackage', 
         '{'||PLGdoir.plgalias||'apppre}{'||PLGdoir.plgalias||'pkgpre}{[pkytabpkgname]}{'||PLGdoir.plgalias||'pkgsuf}',
         'Name of package for foreign key',