Quellcode Prozedur n_v_error

[ Überblick   Tabellen  Views  Prozeduren  Trigger  n_v_error ]

Das DB-Objekt selbst

create procedure "informix".n_v_error(
  pcExcMsg  CHAR(254)    DEFAULT NULL, -- Exception Text
  pcErrMsg1 VARCHAR(254) DEFAULT '',   -- 1. Textblock
  pcErrMsg2 VARCHAR(254) DEFAULT ''    -- 2. Textblock
)
  -- fuer Exception-Verwaltung
  DEFINE GLOBAL giDBSqlError  INTEGER  DEFAULT 0;
  DEFINE GLOBAL giDBIsamError INTEGER DEFAULT 0;
  DEFINE GLOBAL gcDBErrMsg    CHAR(72) DEFAULT "";
  -- zusaetzlicher Fehlertext
  DEFINE GLOBAL gcErrMsg1 VARCHAR(254) DEFAULT "";
  DEFINE GLOBAL gcErrMsg2 VARCHAR(254) DEFAULT "";
  LET giDBSqlError  = -746;
  LET giDBIsamError = 0;
  IF pcExcMsg IS NULL THEN
    LET gcDBErrMsg = 'Fehlerstring ist NULL';
  ELSE
    LET gcDBErrMsg = pcExcMsg[1,72];
  END IF
  LET gcErrMsg1 = pcErrMsg1;
  LET gcErrMsg2 = pcErrMsg2;
  RAISE EXCEPTION giDBSqlError, giDBIsamError, gcDBErrMsg;
end procedure

Abhängige Objekte, Rechte

grant  execute on "informix".n_v_error to "public" as "informix";

HTML-Autor: Rohloff, Datenbank: demodb, Datenstand: 31.05.00 17:07