plgiseg.sps

Oracle PL/SQL procedure generator (second generator type)

CREATE OR REPLACE PACKAGE PLGiseg
/*----------------------------------------------------------------
||                  PL/Vision Professional 
||----------------------------------------------------------------
||    File: PLGiseg.sps
||  Author: Steven Feuerstein
||
|| This is a part of the PL/Vision Professional Code library.
|| Copyright (C) 1996-99 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
||
-----------------------------------------------------------------*/
IS
   c_segdelim CONSTANT CHAR(1) := '.';
   c_itemdelim CONSTANT CHAR(1) := ',';

   TYPE seglist_rectype IS RECORD
      (string PLGadmin.maxvc2,
       numsegs INTEGER,
       fixedlen BOOLEAN,
       spacing INTEGER,
       startlenrow INTEGER, 
       endlenrow INTEGER, 
       itemlen INTEGER,
       itemdelim VARCHAR2(20),
       numitems INTEGER,
       segdelim VARCHAR2(20),
       curritem INTEGER,
       startitem INTEGER,
       enditem INTEGER,
       oneitem BOOLEAN := FALSE);

   PROCEDURE setdelims
      (item IN VARCHAR2 := NULL, seg IN VARCHAR2 := NULL);
   FUNCTION defitemdelim RETURN VARCHAR2;
   FUNCTION defsegdelim RETURN VARCHAR2;

/* Load the segmented list as a single string. */

   PROCEDURE loadstg 
      (string IN VARCHAR2,
       itemdelim IN VARCHAR2 := defitemdelim,
       segdelim IN VARCHAR2 := defsegdelim,
       numsegs IN INTEGER := NULL,
       seglist IN OUT seglist_rectype);

   PROCEDURE loaditem 
      (item IN VARCHAR2,
       segdelim IN VARCHAR2 := defsegdelim,
       numsegs IN INTEGER := NULL,
       seglist IN OUT seglist_rectype);

/* Get information about the segmented list. */
   
   FUNCTION numitems (seglist IN OUT seglist_rectype) RETURN INTEGER;
   
   FUNCTION numsegs (seglist IN OUT seglist_rectype) RETURN INTEGER;

   FUNCTION itemdelim (seglist IN OUT seglist_rectype) RETURN VARCHAR2;
   
   FUNCTION segdelim (seglist IN OUT seglist_rectype) RETURN VARCHAR2;

   FUNCTION itemlen (seglist IN OUT seglist_rectype) RETURN INTEGER;

/* Get and Set Programs for Values in the List */

   PROCEDURE setitem (seglist IN OUT seglist_rectype, pos IN INTEGER);
   FUNCTION item (seglist IN OUT seglist_rectype,
       pos IN INTEGER := NULL) RETURN VARCHAR2;
   FUNCTION itempos (seglist IN OUT seglist_rectype) RETURN INTEGER;

   /* Gets Nth segment value from current or specified item */
   FUNCTION val (seglist IN OUT seglist_rectype,
       pos IN INTEGER) RETURN VARCHAR2;
   FUNCTION val (seglist IN OUT seglist_rectype,
       item IN INTEGER, seg IN INTEGER) RETURN VARCHAR2;

END PLGiseg;
/
rem show errors