plgerr.sps

Oracle PL/SQL procedure generator (second generator type)

CREATE OR REPLACE PACKAGE PLGerr

/* PL/Generator Error Handling Package */

/*----------------------------------------------------------------
||                  PL/Generator from Quest Software 
||----------------------------------------------------------------
||    File: PLGerr.sps
||  Author: Steven Feuerstein
||
|| This is a part of the PL/Generator Code library.
|| Copyright (C) 1997-1998 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
||	-------- ------ -----------------------------------------------
|| 04/98    SEF    Created on Kangaroo Island
-----------------------------------------------------------------*/
IS 
   c_errinfo CONSTANT CHAR(7) := 'ERRINFO';

   general_error       CONSTANT INTEGER := 200000;
   driver_not_found    CONSTANT INTEGER := 200001;
   unmatched_readahead CONSTANT INTEGER := 200002;
   hash_value_notfound CONSTANT INTEGER := 200003;
   read_error          CONSTANT INTEGER := 200004;
   no_closing_tag      CONSTANT INTEGER := 200005;
   too_many_iterations CONSTANT INTEGER := 200006;
   invalid_target      CONSTANT INTEGER := 200007;
   unmatched_endif     CONSTANT INTEGER := 200008;
   srcinfo_failure     CONSTANT INTEGER := 200009;
   insert_failure      CONSTANT INTEGER := 200010;
   unmatched_idtags    CONSTANT INTEGER := 200011;
   too_long_to_compile CONSTANT INTEGER := 200012;
   trial_limit_exceeded CONSTANT INTEGER := 200013;
   invalid_assign      CONSTANT INTEGER := 200014;
   invalid_copyto      CONSTANT INTEGER := 200015;
   invalid_dyn_plsql   CONSTANT INTEGER := 200016;
   generation_cancelled CONSTANT INTEGER := 200017;
   undefined_array     CONSTANT INTEGER := 200018;
   undefined_objtag    CONSTANT INTEGER := 200019;


   PROCEDURE doraise;
   PROCEDURE nodoraise;
   FUNCTION raising RETURN BOOLEAN;

   PROCEDURE assert (
      bool IN BOOLEAN,
      err IN INTEGER
      );   

   PROCEDURE assert (
      bool IN BOOLEAN,
      msg IN VARCHAR2 := NULL,
      err IN INTEGER := NULL
      );

   PROCEDURE raise (
      err_in IN INTEGER, 
      text_in IN VARCHAR2 := NULL,
      add_to_stack IN BOOLEAN :=TRUE,
      raiseexc IN BOOLEAN := raising      
      );

   PROCEDURE raise (
      text_in IN VARCHAR2,
      add_to_stack IN BOOLEAN :=TRUE,
      raiseexc IN BOOLEAN := raising      
      );

   PROCEDURE notify (
      err_in IN INTEGER, 
      text_in IN VARCHAR2 := NULL,
      add_to_stack IN BOOLEAN :=TRUE      
      );

   PROCEDURE notify (
      text_in IN VARCHAR2,
      add_to_stack IN BOOLEAN :=TRUE      
      );

   PROCEDURE set_context (str IN VARCHAR2);
   FUNCTION context RETURN VARCHAR2;
   
   FUNCTION errtext (err_in IN INTEGER := NULL) RETURN VARCHAR2;
   FUNCTION errcode RETURN INTEGER;
   
   PROCEDURE reset (reset_context IN BOOLEAN := TRUE);

   PROCEDURE adddef (
      err_in IN INTEGER, 
      text_in IN VARCHAR2     
      );

   PROCEDURE remdef (
      err_in IN INTEGER 
      );

END PLGerr;
/