plgtype.sps

Oracle PL/SQL procedure generator (second generator type)

CREATE OR REPLACE PACKAGE PLGtype
/*----------------------------------------------------------------
||                  PL/Vision Professional 
||----------------------------------------------------------------
||    File: PLGtype.sps
||  Author: Steven Feuerstein
||
|| This is a part of the PL/Generator Code library.
|| Copyright (C) 1996-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
|| ------- ------ -----------------------------------------------
|| 5/01     SEF    Check for new datatypes that are not supported
|| 1/98     SEF    Add float type
|| 1/97     SEF    1997Q1 Release
******************************************************************/
IS
   c_boolean CONSTANT CHAR(7) := 'BOOLEAN';
   c_date CONSTANT CHAR(4) := 'DATE';
   c_number CONSTANT CHAR(6) := 'NUMBER';
   c_varchar2 CONSTANT CHAR(8) := 'VARCHAR2';
   c_char CONSTANT CHAR(4) := 'CHAR';
   c_long CONSTANT CHAR(4) := 'LONG';
   c_raw CONSTANT CHAR(3) := 'RAW';
   c_mslabel CONSTANT CHAR(7) := 'MSLABEL';
   c_float CONSTANT CHAR(7) := 'FLOAT';

   c_b CONSTANT CHAR(1) := 'B';
   c_c CONSTANT CHAR(1) := 'C';
   c_d CONSTANT CHAR(1) := 'D';
   c_n CONSTANT CHAR(1) := 'N';
   c_v CONSTANT CHAR(1) := 'V';
   c_l CONSTANT CHAR(1) := 'L';
   c_r CONSTANT CHAR(1) := 'R';
   c_m CONSTANT CHAR(1) := 'M';

   bval BOOLEAN;
   dval DATE;
   nval NUMBER;
   vcval VARCHAR2(1);
   vcbigval PLGadmin.dbmaxvc2;
   vcsmallval VARCHAR2(100);
   vcmaxval PLGadmin.maxvc2;
   identval PLGadmin.identifier;
   
   FUNCTION stg (val_in IN BOOLEAN) RETURN VARCHAR2;
   FUNCTION stg (val_in IN DATE) RETURN VARCHAR2;
   FUNCTION stg (val_in IN NUMBER) RETURN VARCHAR2;
   FUNCTION stg (val_in IN VARCHAR2, len_in IN INTEGER := NULL)
      RETURN VARCHAR2;

   FUNCTION isboolean (stg_in IN VARCHAR2) RETURN BOOLEAN;
   FUNCTION isdate (stg_in IN VARCHAR2) RETURN BOOLEAN;
   FUNCTION isnumber (stg_in IN VARCHAR2) RETURN BOOLEAN;
   FUNCTION ischar (stg_in IN VARCHAR2) RETURN BOOLEAN;
   FUNCTION isvarchar2 (stg_in IN VARCHAR2) RETURN BOOLEAN;
   FUNCTION isstring (stg_in IN VARCHAR2) RETURN BOOLEAN;
   FUNCTION ismslabel (stg_in IN VARCHAR2) RETURN BOOLEAN;
   FUNCTION israw (stg_in IN VARCHAR2) RETURN BOOLEAN;
   
   FUNCTION name (stg_in IN VARCHAR2) RETURN VARCHAR2;
   FUNCTION len (stg_in IN VARCHAR2) RETURN INTEGER;

   /* Only for dates, numbers, strings for now...*/
   FUNCTION decl (type_in IN VARCHAR2) RETURN VARCHAR2;

   /* 2000.2.9 Returns TRUE if the column has a datatype new to 8, 8i or 9i */
   function is_adv_type (type_in in varchar2)
      RETURN BOOLEAN;
      
   function is_long_type (type_in in varchar2)
      RETURN BOOLEAN;
END PLGtype;
/