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