Erst mal allen Danke.

So sieht mein CL aus:

PGM 050809
DCL VAR(&VAR001) TYPE(*DEC) LEN(6) 070411
DCL VAR(&VAR002) TYPE(*CHAR) LEN(6) 070411
DCLF FILE(ERKUL/TEST1) 070411
TAG: 050809
RCVF 050809
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDE)) 050809
050809
CHGVAR VAR(&VAR001) VALUE(000000) 070410
070410
CHGVAR VAR(&VAR001) VALUE(&SEL0006 + 000000) 070411
CHGVAR VAR(&VAR002) VALUE(&VAR001 ) 070410
070410
070410
CHGSPLFA FILE(&SPOOL00001) + 070411
JOB(&JOBNUMMER/&BENUTZER/&JOBNAME) + 070411
SPLNBR(&VAR002) OUTQ(QGPL/ERKUL1) 070411
070411
MONMSG MSGID(CPF3340) EXEC(GOTO CMDLBL(TAG)) 070405
050809
GOTO CMDLBL(TAG) 050809
ENDE: 050809
ENDPGM 001016

@GeorgG, wie hast du es gelöst?


Gruss Miles