create procedure "informix".n_cc_errmsg( ) RETURNING VARCHAR(254) ; -- Textblock DEFINE GLOBAL gcErrMsg1 VARCHAR(254) DEFAULT ''; DEFINE GLOBAL gcErrMsg2 VARCHAR(254) DEFAULT ''; IF ( gcErrMsg1 != '' ) THEN RETURN gcErrMsg1 WITH RESUME; END IF IF ( gcErrMsg2 != '' ) THEN RETURN gcErrMsg2; END IF end procedure
HTML-Autor: Rohloff, Datenbank: demodb, Datenstand: 31.05.00 17:07