plgplsql.sps

Oracle PL/SQL procedure generator (second generator type)

CREATE OR REPLACE PACKAGE PLGplsql

/* PL/SQL Code Driver Foundation */

/*----------------------------------------------------------------
||                  PL/Generator from Quest Software
||----------------------------------------------------------------
||    File: PLGplsql.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
||	-------- ------ -----------------------------------------------
|| 9/98     SEF    Created from plgte
-----------------------------------------------------------------*/
IS
   driver CONSTANT CHAR(5) := 'PLSQL';

   c_use_composites CONSTANT CHAR(15) := 'USE_COMPOSITES';
   c_converted_type CONSTANT CHAR(8) := 'CONVTYPE';
   c_composite      CONSTANT CHAR(9) := 'COMPOSITE';
   c_return         CONSTANT CHAR(8) := '*RETURN*';
   c_ibtab_conv     CONSTANT CHAR(9) := 'IBTABCONV';

   c_fixlen         CONSTANT PLS_INTEGER := 0;
   c_delimited      CONSTANT PLS_INTEGER := 1;

   PROCEDURE setfiles;

   PROCEDURE setidentifiers;

   PROCEDURE setaliases;

   PROCEDURE setsrc;

   PROCEDURE setlookups;

   PROCEDURE initialize;

   PROCEDURE analyze_code (
      progname IN VARCHAR2,
      prog_out IN OUT PLGdesc.prog_tt,
      arglist_out IN OUT PLGdesc.arglist_tt,
      retarglist_out IN OUT PLGdesc.arglist_tt,
      sch IN VARCHAR2 := NULL
      );

   /* Interface to PLGdoir */

   /* Use composite data types in parameter lists */
   PROCEDURE use_composites
      (prog IN VARCHAR2,
       sch IN VARCHAR2 := NULL);

   PROCEDURE nouse_composites
      (prog IN VARCHAR2,
       sch IN VARCHAR2 := NULL);

   FUNCTION using_composites
      (prog IN VARCHAR2,
       sch IN VARCHAR2 := NULL)
       RETURN BOOLEAN;

   PROCEDURE set_composite
      (prog IN VARCHAR2,
       argname IN VARCHAR2,
       compname IN VARCHAR2,
       sch IN VARCHAR2 := NULL);

   FUNCTION composite
      (prog IN VARCHAR2,
       argname IN VARCHAR2,
       sch IN VARCHAR2 := NULL)
      RETURN VARCHAR2;

   PROCEDURE set_composite
      (pkg IN VARCHAR2,
       prog IN VARCHAR2,
       ovrload IN INTEGER,
       argname IN VARCHAR2,
       compname IN VARCHAR2,
       sch IN VARCHAR2 := NULL);

   FUNCTION composite
      (pkg IN VARCHAR2,
       prog IN VARCHAR2,
       ovrload IN INTEGER,
       argname IN VARCHAR2,
       sch IN VARCHAR2 := NULL)
      RETURN VARCHAR2;

   PROCEDURE set_composite_return
      (prog IN VARCHAR2,
       compname IN VARCHAR2,
       sch IN VARCHAR2 := NULL);

   FUNCTION composite_return
      (prog IN VARCHAR2,
       sch IN VARCHAR2 := NULL)
      RETURN VARCHAR2;

   PROCEDURE set_composite_return
      (pkg IN VARCHAR2,
       prog IN VARCHAR2,
       ovrload IN INTEGER,
       compname IN VARCHAR2,
       sch IN VARCHAR2 := NULL);

   FUNCTION composite_return
      (pkg IN VARCHAR2,
       prog IN VARCHAR2,
       ovrload IN INTEGER,
       sch IN VARCHAR2 := NULL)
      RETURN VARCHAR2;

   PROCEDURE setconvtype
      (prog IN VARCHAR2,
       orig_type IN VARCHAR2,
       convert_to IN VARCHAR2,
       sch IN VARCHAR2 := NULL);

   FUNCTION convtype
      (prog IN VARCHAR2,
       orig_type IN VARCHAR2,
       sch IN VARCHAR2 := NULL,
       fullval IN BOOLEAN := FALSE)
      RETURN VARCHAR2;

   PROCEDURE setboolconv
      (prog IN VARCHAR2,
       convert_type IN VARCHAR2,
       trueval IN VARCHAR2,
       falseval IN VARCHAR2,
       sch IN VARCHAR2 := NULL);

   FUNCTION boolconvtype
      (prog IN VARCHAR2,
       sch IN VARCHAR2 := NULL)
      RETURN VARCHAR2;

   FUNCTION booltrueval
      (prog IN VARCHAR2,
       sch IN VARCHAR2 := NULL)
      RETURN VARCHAR2;

   FUNCTION boolfalseval
      (prog IN VARCHAR2,
       sch IN VARCHAR2 := NULL)
      RETURN VARCHAR2;

   FUNCTION fromplsql_val (
      sch IN VARCHAR2, prog IN VARCHAR2, argname IN VARCHAR2, dtype IN INTEGER)
      RETURN VARCHAR2;

   FUNCTION toplsql_val (
      sch IN VARCHAR2, prog IN VARCHAR2, argname IN VARCHAR2, dtype IN INTEGER)
      RETURN VARCHAR2;

   PROCEDURE set_ibtab_conversion (
      pkg IN VARCHAR2,
      prog IN VARCHAR2,
      ovrload IN INTEGER,
      argname IN VARCHAR2,
      convtype IN INTEGER, /* delimited or fixed length */
      itemdelim IN VARCHAR2 :=NULL,
      segdelim IN VARCHAR2 := NULL,
      sch IN VARCHAR2 := NULL);

   FUNCTION ibtab_convtype (
      pkg IN VARCHAR2,
      prog IN VARCHAR2,
      ovrload IN INTEGER,
      argname IN VARCHAR2,
      sch IN VARCHAR2 := NULL)
      RETURN INTEGER;

   FUNCTION ibtab_itemdelim (
      pkg IN VARCHAR2,
      prog IN VARCHAR2,
      ovrload IN INTEGER,
      argname IN VARCHAR2,
      sch IN VARCHAR2 := NULL)
      RETURN VARCHAR2;

   FUNCTION ibtab_segdelim (
      pkg IN VARCHAR2,
      prog IN VARCHAR2,
      ovrload IN INTEGER,
      argname IN VARCHAR2,
      sch IN VARCHAR2 := NULL)
      RETURN VARCHAR2;

END PLGplsql;
/