plgdoir.sps

Oracle PL/SQL procedure generator (second generator type)

   FUNCTION plsql_command_src
      (drv IN VARCHAR2,
       srctype IN VARCHAR2)
      RETURN BOOLEAN;

   FUNCTION iteration_specific_src
      (drv IN VARCHAR2,
       srctype IN VARCHAR2)
      RETURN BOOLEAN;

   FUNCTION driver_wide_src
      (drv IN VARCHAR2,
       srcrec IN src_rectype)
      RETURN BOOLEAN;

   FUNCTION column_specific_src
      (drv IN VARCHAR2,
       srcrec IN src_rectype)
      RETURN BOOLEAN;

   FUNCTION plsql_command_src
      (drv IN VARCHAR2,
       srcrec IN src_rectype)
      RETURN BOOLEAN;

   FUNCTION iteration_specific_src
      (drv IN VARCHAR2,
       srcrec IN src_rectype)
      RETURN BOOLEAN;

   PROCEDURE setsrc
      (drv IN VARCHAR2,
       srcstring IN VARCHAR2,
       srctype IN VARCHAR2,
       plsqlcmd IN VARCHAR2 := NULL,
       returntype IN VARCHAR2 := NULL,
       doc IN VARCHAR2 := NULL,
       objtype_in IN VARCHAR2 := NULL);

   PROCEDURE set_driver_wide
      (drv IN VARCHAR2,
       srcstring IN VARCHAR2,
      doc IN VARCHAR2 := NULL);

   PROCEDURE set_column_specific
      (drv IN VARCHAR2,
       srcstring IN VARCHAR2,
      doc IN VARCHAR2 := NULL);

   PROCEDURE set_plsql_command
      (drv IN VARCHAR2,
       srcstring IN VARCHAR2,
       returntype IN VARCHAR2,
       plsqlcmd IN VARCHAR2 := NULL,
      doc IN VARCHAR2 := NULL,
      plsqltype IN VARCHAR2 := NULL);

   PROCEDURE set_iteration_specific
      (drv IN VARCHAR2,
       srcstring IN VARCHAR2,
      doc IN VARCHAR2 := NULL);

   PROCEDURE setdynboolean
      (drv IN VARCHAR2,
       srcstring IN VARCHAR2,
       cmd IN VARCHAR2 := NULL,
      doc IN VARCHAR2 := NULL);

   PROCEDURE setdynvarchar2
      (drv IN VARCHAR2,
       srcstring IN VARCHAR2,
       cmd IN VARCHAR2 := NULL,
      doc IN VARCHAR2 := NULL);

   PROCEDURE setdynnumber
      (drv IN VARCHAR2,
       srcstring IN VARCHAR2,
       cmd IN VARCHAR2 := NULL,
       doc IN VARCHAR2 := NULL);

   PROCEDURE set_array (
      drv IN VARCHAR2,
      array IN VARCHAR2,
      pkgname IN VARCHAR2 := 'PLGgen',
      doc IN VARCHAR2 := NULL
      );

   PROCEDURE set_array_tag (
      drv IN VARCHAR2,
      array IN VARCHAR2,
      tag IN VARCHAR2,
      pos IN PLS_INTEGER := NULL,
      doc IN VARCHAR2 := NULL
      );

   FUNCTION isarray (
      drv IN VARCHAR2,
      array IN VARCHAR2
      )
      RETURN BOOLEAN;

   FUNCTION isarray_tag (
      drv IN VARCHAR2,
      array IN VARCHAR2,
      tag IN VARCHAR2
      )
      RETURN BOOLEAN;

   PROCEDURE validate_isarray (
      drv IN VARCHAR2,
      array IN OUT VARCHAR2,
      pkgname OUT VARCHAR2
      );
      
   FUNCTION array_pkgname (
      drv IN VARCHAR2,
      array IN VARCHAR2
      )
      RETURN VARCHAR2;

   PROCEDURE set_array_element (
      drv IN VARCHAR2,
      array IN VARCHAR2,
      element IN VARCHAR2,
      doc IN VARCHAR2 := NULL
      );

   /* Hide from public usage
   PROCEDURE set_array_one
      (drv IN VARCHAR2,
       array IN VARCHAR2,
	   pkgname IN VARCHAR2 := 'PLGgen',
      doc IN VARCHAR2 := NULL);

   PROCEDURE set_array_multi
      (drv IN VARCHAR2,
       array IN VARCHAR2,
	   pkgname IN VARCHAR2 := 'PLGgen',
      doc IN VARCHAR2 := NULL);

   PROCEDURE set_array_have
      (drv IN VARCHAR2,
       array IN VARCHAR2,
	   pkgname IN VARCHAR2 := 'PLGgen',
      doc IN VARCHAR2 := NULL);

   PROCEDURE set_array_count
      (drv IN VARCHAR2,
       array IN VARCHAR2,
	   pkgname IN VARCHAR2 := 'PLGgen',
      doc IN VARCHAR2 := NULL);
   */

   FUNCTION srcinfo
      (drv IN VARCHAR2,
       srcstring IN VARCHAR2,
       raise_exc IN BOOLEAN := TRUE,
       orig_drv IN VARCHAR2 := NULL)
      RETURN src_rectype;

   /* Seq generation for test purposes */
   PROCEDURE settestseq
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       seq IN VARCHAR2,
       sch IN VARCHAR2 := NULL,
      doc IN VARCHAR2 := NULL);

   FUNCTION testseq
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       sch IN VARCHAR2 := NULL)
      RETURN VARCHAR2;

   /* OD2K compatibilty - NOT YET IMPLEMENTED */
   PROCEDURE use_from_od2k
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       sch IN VARCHAR2 := NULL);

   PROCEDURE nouse_from_od2k
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       sch IN VARCHAR2 := NULL);

   /* Tag Brackets - NOT YET IMPLEMENTED */
   PROCEDURE setbracket
      (drv IN VARCHAR2,
       bracketname IN VARCHAR2,
       openchar IN VARCHAR2,
       closechar IN VARCHAR2);

   PROCEDURE getbracket
      (drv IN VARCHAR2,
       bracketname IN VARCHAR2,
       openchar OUT VARCHAR2,
       closechar OUT VARCHAR2);

   FUNCTION openbracket
      (drv IN VARCHAR2,
       bracketname IN VARCHAR2)
      RETURN VARCHAR2;

   FUNCTION closebracket
      (drv IN VARCHAR2,
       bracketname IN VARCHAR2)
      RETURN VARCHAR2;

   /* Miscellaneous */
   PROCEDURE reggen
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       sch IN VARCHAR2,
       target_schema IN VARCHAR2 := NULL);

   PROCEDURE setappprefix
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       str IN VARCHAR2,
       sch IN VARCHAR2 := NULL);

   PROCEDURE show
      (drv IN VARCHAR2,
       objname_in IN VARCHAR2,
       objtype_in IN VARCHAR2 := c_table,
       sch IN VARCHAR2 := NULL);

   PROCEDURE showglobal
      (drv IN VARCHAR2,
       sch IN VARCHAR2 := NULL);

   PROCEDURE showdrvsrc
      (drv IN VARCHAR2);

/* Clear the OIR */

   PROCEDURE del
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       otype IN VARCHAR2,
       itype IN VARCHAR2,
       seq IN INTEGER,
       sch IN VARCHAR2,
       foundation_only IN BOOLEAN := FALSE,
       del_header IN BOOLEAN := FALSE,
       del_dirinfo IN BOOLEAN := FALSE
       );

   /* Remove foundation level driver entries */
   PROCEDURE delfoundation
      (drv IN VARCHAR2,
       sch IN VARCHAR2 := NULL);

   /* Single row delete with sequence number for table level entries */
   PROCEDURE del
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       typ IN VARCHAR2,
       seq IN INTEGER,
       sch IN VARCHAR2 := NULL);

   /* Table or schema level delete */
   PROCEDURE del
      (drv IN VARCHAR2,
       tab IN VARCHAR2 := NULL,
       sch IN VARCHAR2 := NULL);

   /* Single row delete for table level entries */
   PROCEDURE del
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       typ IN VARCHAR2,
       sch IN VARCHAR2);

   /* Attribute level delete */
   PROCEDURE delattr
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       attr IN VARCHAR2,
       typ IN VARCHAR2,
       seq IN INTEGER,
       sch IN VARCHAR2 := NULL);

   PROCEDURE delalias
      (drv IN VARCHAR2,
       tab IN VARCHAR2 := NULL,
       orig IN VARCHAR2 := '%',
       sch IN VARCHAR2 := NULL);

   PROCEDURE del_wrap_alias
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       name IN VARCHAR2,
       sch IN VARCHAR2);

   PROCEDURE del_plg_aliases
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       sch IN VARCHAR2);

   PROCEDURE delscreen
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       scr IN VARCHAR2,
       sch IN VARCHAR2);

   PROCEDURE delsrc
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       seq IN INTEGER,
       sch IN VARCHAR2);

   PROCEDURE delarray
      (drv IN VARCHAR2,
       arrayname IN VARCHAR2 := '%');

   FUNCTION intbool
      (intger IN INTEGER)
      RETURN BOOLEAN;

   FUNCTION boolint
      (bool IN BOOLEAN)
      RETURN INTEGER;

   /* NO LONGER USED
   PROCEDURE recurse
      (drv IN VARCHAR2);

   PROCEDURE norecurse
      (drv IN VARCHAR2);

   FUNCTION recursing
      (drv IN VARCHAR2)
      RETURN BOOLEAN;
	*/

   PROCEDURE drvfoundation;
   PROCEDURE nodrvfoundation;
   FUNCTION isdrvfoundation RETURN BOOLEAN;

   /* Query only elements desired. */

   PROCEDURE usequeryonly
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       sch IN VARCHAR2 := NULL);

   PROCEDURE nousequeryonly
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       sch IN VARCHAR2 := NULL);

   FUNCTION queryonly
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       sch IN VARCHAR2 := NULL)
       RETURN BOOLEAN;

   /* 2000.1.2 Check for data integrity toggle. */

   PROCEDURE usecheckdi
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       sch IN VARCHAR2 := NULL);

   PROCEDURE nousecheckdi
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       sch IN VARCHAR2 := NULL);

   FUNCTION checkdi
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       sch IN VARCHAR2 := NULL)
       RETURN BOOLEAN;

   /* Using standard header driver? Default is NO, read from file. */

   PROCEDURE usestdhdr
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       sch IN VARCHAR2 := NULL);

   PROCEDURE nousestdhdr
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       sch IN VARCHAR2 := NULL);

   FUNCTION using_stdhdr
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       sch IN VARCHAR2 := NULL)
       RETURN BOOLEAN;

   /* Set source and target types. */

   PROCEDURE setdrvsrctype
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       typ IN INTEGER,
       sch IN VARCHAR2 := NULL);

   FUNCTION drvsrctype
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       sch IN VARCHAR2 := NULL) RETURN PLS_INTEGER;

   PROCEDURE setdrvtrgtype
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       typ IN INTEGER,
       sch IN VARCHAR2 := NULL);

   FUNCTION drvtrgtype
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       sch IN VARCHAR2 := NULL) RETURN PLS_INTEGER;

   FUNCTION plgalias RETURN VARCHAR2;

   FUNCTION func_call (
      func IN VARCHAR2,
      drv IN VARCHAR2,
      tab IN VARCHAR2,
      sch IN VARCHAR2) RETURN VARCHAR2;

   /* Use srcinfo hashing? Default is YES. */
   PROCEDURE hash_srcinfo;
   PROCEDURE nohash_srcinfo;
   FUNCTION hashing_srcinfo RETURN BOOLEAN;

   /* Define physical line comment character for driver */
   PROCEDURE setcomment
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       cmnt IN VARCHAR2,
       sch IN VARCHAR2 := NULL);

   FUNCTION comment
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       sch IN VARCHAR2 := NULL) RETURN VARCHAR2;

END PLGdoir;
/