plgdoir.sps

Oracle PL/SQL procedure generator (second generator type)

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

   /* Primary key related functions */
   FUNCTION seqname
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       sch IN VARCHAR2 := NULL)
      RETURN VARCHAR2;

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

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

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

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

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

/* Column functions */
   FUNCTION havehidden
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       sch IN VARCHAR2 := NULL)
      RETURN BOOLEAN;

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

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

   /* Miscellaneous */
   FUNCTION usingxmn
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       sch IN VARCHAR2 := NULL)
      RETURN BOOLEAN;

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

   FUNCTION isactive
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       infotype_in IN PLG_doir.infotype%TYPE,
       sch IN VARCHAR2 := NULL)
      RETURN BOOLEAN;

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

   FUNCTION colfunc
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       col IN VARCHAR2,
       sch IN VARCHAR2 := NULL)
      RETURN PLG_doir.info%TYPE;

   /* Driver File Information */
   PROCEDURE defdrv
      (name IN VARCHAR2,
       dbsrc IN VARCHAR2,
       descr IN VARCHAR2 := NULL,
       just_like IN VARCHAR2 := NULL);

   FUNCTION drvdbsrc (drv IN VARCHAR2) RETURN VARCHAR2;

   PROCEDURE defdrvsrc
      (drv IN VARCHAR2,
       seq IN INTEGER := 1,
       fname IN VARCHAR2 := NULL,
       descr IN VARCHAR2 := NULL,
       ftype IN INTEGER := c_ft_code,
       use_file IN BOOLEAN := TRUE,
       tab IN VARCHAR2 := NULL,
       sch IN VARCHAR2 := NULL);

   PROCEDURE defprepsrc
      (drv IN VARCHAR2,
       fname IN VARCHAR2 := NULL,
       use_file IN BOOLEAN := TRUE,
       tab IN VARCHAR2 := NULL,
       sch IN VARCHAR2 := NULL);

   PROCEDURE defhdrsrc
      (drv IN VARCHAR2,
       fname IN VARCHAR2 := NULL,
       use_file IN BOOLEAN := TRUE,
       tab IN VARCHAR2 := NULL,
       sch IN VARCHAR2 := NULL);

   PROCEDURE defcustsrc
      (drv IN VARCHAR2,
       fname IN VARCHAR2 := NULL,
       use_file IN BOOLEAN := TRUE,
       tab IN VARCHAR2 := NULL,
       sch IN VARCHAR2 := NULL);

   /* Generated code output directory and op sys delimiter */
   PROCEDURE setgendir
      (drv IN VARCHAR2,
       tab IN VARCHAR2 := NULL,
       dir IN VARCHAR2,
       sch IN VARCHAR2 := NULL);

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

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

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

   /* Driver file location and op sys delimiter */
   PROCEDURE setdrvdir
      (drv IN VARCHAR2,
       dir IN VARCHAR2,
       tab IN VARCHAR2 := NULL,
       sch IN VARCHAR2 := NULL);

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

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

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

   PROCEDURE usedrvsrc
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       seq IN INTEGER := 1,
       sch IN VARCHAR2 := NULL);

   PROCEDURE usedrvsrc
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       startseq IN INTEGER,
       endseq IN INTEGER,
       sch IN VARCHAR2 := NULL);

   PROCEDURE nousedrvsrc
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       seq IN INTEGER := 1,
       sch IN VARCHAR2 := NULL);

   PROCEDURE nousedrvsrc
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       startseq IN INTEGER,
       endseq IN INTEGER,
       sch IN VARCHAR2 := NULL);

   FUNCTION driver
      (name IN VARCHAR2)
      RETURN driver_rectype;

   PROCEDURE set_just_like_drv (
      drv IN VARCHAR2, cache_only IN BOOLEAN := FALSE);
   PROCEDURE reset_just_like_drv; /* Set cached value to NULL */   

   FUNCTION just_like_drv (
      drv IN VARCHAR2
      )
      RETURN VARCHAR2;
   --PRAGMA RESTRICT_REFERENCES (just_like_drv, WNPS, WNDS);

   FUNCTION drvsrc
      (drv IN VARCHAR2,
       seq IN INTEGER,
       tab IN VARCHAR2 := NULL,
       sch IN VARCHAR2 := NULL)
      RETURN drvrec_t;

   FUNCTION drvsrcname
      (drv IN VARCHAR2,
       seq IN INTEGER,
       tab IN VARCHAR2 := NULL,
       sch IN VARCHAR2 := NULL)
      RETURN VARCHAR2;

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

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

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

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

   FUNCTION i_tfile
      (drv IN VARCHAR2,
       seq IN INTEGER,
       tab IN VARCHAR2 := NULL,
       sch IN VARCHAR2 := NULL)
      RETURN PLG_doir%ROWTYPE;

   FUNCTION srctype (srctypename IN VARCHAR2) RETURN PLS_INTEGER;
   
   FUNCTION ismetasrc
      (ftype IN INTEGER)
      RETURN BOOLEAN;

   FUNCTION ishtmlsrc
      (ftype IN INTEGER)
      RETURN BOOLEAN;

   FUNCTION iscodesrc
      (ftype IN INTEGER)
      RETURN BOOLEAN;

   FUNCTION iscustsrc
      (ftype IN INTEGER)
      RETURN BOOLEAN;

   FUNCTION isprepsrc
      (ftype IN INTEGER)
      RETURN BOOLEAN;

   FUNCTION ishdrsrc
      (ftype IN INTEGER)
      RETURN BOOLEAN;

   /* Set information values */
   PROCEDURE ins
      (drv IN VARCHAR2,
       sch IN VARCHAR2,
       objname_in IN VARCHAR2,
       objtype_in IN VARCHAR2,
       attrname_in IN VARCHAR2,
       attrtype_in IN VARCHAR2,
       infotype_in IN PLG_doir.infotype%TYPE,
       seq_in IN PLG_doir.infoseq%TYPE,
       info_in IN PLG_doir.info%TYPE,
       uc_attrname IN BOOLEAN := TRUE,
       doc_in IN PLG_doir.doc%TYPE := '*IGNORE',
       upd_attrtype IN BOOLEAN := FALSE);

   PROCEDURE settabinfo
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       infotype_in IN PLG_doir.infotype%TYPE,
       info_in IN PLG_doir.info%TYPE,
       seq_in IN PLG_doir.infoseq%TYPE := 1,
       sch IN VARCHAR2 := NULL,
       verify_data IN BOOLEAN := FALSE,
       objtype_in IN VARCHAR2 := c_table,
       aname IN VARCHAR2 := NULL,
       atype IN VARCHAR2 := NULL);

   PROCEDURE setactive
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       infotype_in IN PLG_doir.infotype%TYPE,
       sch IN VARCHAR2 := NULL);

   PROCEDURE setinactive
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       infotype_in IN PLG_doir.infotype%TYPE,
       sch IN VARCHAR2 := NULL);

   PROCEDURE setdescindex
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       unique_index IN VARCHAR2 := NULL,
       indexfunc IN VARCHAR2 := NULL,
       func_datatype IN VARCHAR2 := 'VARCHAR2',
       sch IN VARCHAR2 := NULL);

   PROCEDURE setcolfunc
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       col IN VARCHAR2,
       func IN PLG_doir.info%TYPE,
       sch IN VARCHAR2 := NULL);

   /* Primary key generation */
   PROCEDURE setpkycol
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       col IN VARCHAR2,
       pos IN INTEGER := 1,
       sch IN VARCHAR2 := NULL);

   PROCEDURE setseqname
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       seq IN VARCHAR2,
       genonly IN BOOLEAN := TRUE,
       sch IN VARCHAR2 := NULL);

   PROCEDURE setpkyproc
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       proc IN VARCHAR2,
       genonly IN BOOLEAN := TRUE,
       sch IN VARCHAR2 := NULL);

   PROCEDURE setpkyfunc
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       func IN VARCHAR2,
       genonly IN BOOLEAN := TRUE,
       sch IN VARCHAR2 := NULL);

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

   /* Performance Options *//* Data Caching */
   PROCEDURE setloadnone
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       sch IN VARCHAR2 := NULL);

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

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

   /* Return Type options */
   PROCEDURE setcurvar
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       sch IN VARCHAR2 := NULL);

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

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

   /* Static vs Dynamic SQL options */
   PROCEDURE setstaticSQL
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       sch IN VARCHAR2 := NULL);

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

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

   /* Stand-alone programs option */
   PROCEDURE setsaprogs
      (drv IN VARCHAR2,
       tab IN VARCHAR2,
       sch IN VARCHAR2 := NULL);

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

   FUNCTION usesaprogs