Hänge da echt bischen ab:

Könnte sowas funktionieren?:

CREATE OR REPLACE PROCEDURE SCHEMANAME.SP_CBL_PRG (
IN LINKAREA CHAR(1024) CCSID 273 ,
 IN PRG_PAR CHAR(1292) CCSID 273 ,
 OUT RETURN_CODE INTEGER )
LANGUAGE COBOL
BEGIN
 DECLARE SQLCODE INTEGER DEFAULT 0;
 DECLARE SQLSTATE CHAR(5) DEFAULT '00000';
 DECLARE CONTINUE HANDLER FOR SQLEXCEPTION SET RETURN_CODE=SQLCODE;
 DECLARE CONTINUE HANDLER FOR SQLWARNING SET RETURN_CODE=SQLCODE;
 DECLARE CONTINUE HANDLER FOR NOT FOUND SET RETURN_CODE=SQLCODE;
END;
 SPECIFIC SCHEMANAME.SP_CBL_PRG
DETERMINISTIC
 MODIFIES SQL DATA
 CALLED ON NULL INPUT
 EXTERNAL NAME 'BIBLIOTHEKNAME/PRG'
PARAMETER STYLE GENERAL ;