Quellcode Prozedur n_v_excsave

Das DB-Objekt selbst

create procedure "informix".n_v_excsave(
  piDBSqlError  INTEGER DEFAULT 0,
  piDBIsamError INTEGER DEFAULT 0,
  pcDBErrMsg    CHAR(80) DEFAULT ""
)
  DEFINE GLOBAL giDBSqlError  INTEGER  DEFAULT 0;
  DEFINE GLOBAL giDBIsamError INTEGER DEFAULT 0;
  DEFINE GLOBAL gcDBErrMsg    CHAR(72) DEFAULT "";
  IF piDBSqlError <> 0 THEN
    LET giDBSqlError = piDBSqlError;
    LET giDBIsamError = piDBIsamError;
    LET gcDBErrMsg = pcDBErrMsg;
  END IF
end procedure

Abhängige Objekte, Rechte

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

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