Hier das Script für die Erstellung der Procedure:
CREATE PROCEDURE MCCRTVDOMLEVEL1
(IN USR CHAR (10),
IN PWD CHAR (10),
IN SID CHAR (10),
OUT STS DEC (3, 0),
OUT SND CHAR (10),
IN E1MAX DEC (5, 0),
IN E1STR DEC (5, 0),
OUT E1CNT DEC (5, 0),
OUT E1OVF DEC (1, 0),
IN E1TYP CHAR (5),
OUT E1OID VARCHAR (32740),
OUT E1KNZ VARCHAR (32740),
OUT E1PMT VARCHAR (32740))
LANGUAGE RPGLE NOT DETERMINISTIC
MODIFIES SQL DATA EXTERNAL NAME
HTDOMSP001 PARAMETER STYLE GENERAL;

Die Entry-List sieht so aus:
parm E1USR 10
parm E1PWD 10
parm E1SID 10
parm E1STS 3 0
parm E1SND 10
parm E1MAX 5 0
parm E1STR 5 0
parm E1CNT 5 0
parm E1OVF 1 0
parm E1TYP 5
parm E1OID
parm E1KNZ
parm E1PMT

Die Definition der Parameter E1OID, E1KNZ, E1PMT wir folgt:
D E1OID S 32740A varying
D E1KNZ S 32740A varying
D E1PMT S 32740A varying