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
HTML-Autor: Rohloff, Datenbank: demodb, Datenstand: 31.05.00 17:07