Also ich komme nur geringfügig weiter:

Ich rufe jetzt via einer SQL SP die CBL SP auf, da mit die AS400 nicht erlaubt innerhalb der CBL SP SQL-Code (Language SQL) auszuführen (richtig?), sieht so aus:

SQL SP:
CREATE OR REPLACE PROCEDURE SCHEMA.SP_CBL_PRG(
IN LINKAREA_PAR CHAR(1024) CCSID 273,
 IN PRG_PAR CHAR(1292) CCSID 273
)
LANGUAGE SQL
 BEGIN
 DECLARE RETURN_VALUE INTEGER;
 CALL SCHEMA.SP_CBL_PRG(LINKAREA_PAR,PRG_PAR,RETURN_VALUE);
 INSERT INTO SCHEMA.PRG_RETURN VALUES (LINKAREA_PAR,PRG_PAR,RETURN_VALUE);
 END;


CBL SP:
CREATE OR REPLACE PROCEDURE SCHEMA.SP_CBL_PRG(
INOUT LINKAREA_PAR CHAR(1024) CCSID 273 ,
 INOUT PRG_PAR CHAR(1292) CCSID 273,
 OUT RETURN_VALUE INTEGER DEFAULT 0
)
LANGUAGE COBOL
 DYNAMIC RESULT SETS 1
SPECIFIC SCHEMA.SP_CBL_PRG
DETERMINISTIC
 MODIFIES SQL DATA
 CALLED ON NULL INPUT
 EXTERNAL NAME 'SCHEMA/PRG'
PARAMETER STYLE GENERAL;

Das geht aber ich komme nicht an die Return Value (INTEGER) dran...