Super Tarasik,

hat funktioniert. Mit dem unter stehenden CLP kann ich jetzt die zuletzt vergebene Spooldateinummer der SPFL QSYSPRT, die ich hier als Beispiel genommen habe, ermitteln. Diese steht dann in der Variable &SPLFNBR.


PGM
DCL &SPLFNBR *CHAR 4
DCL &WHICHSPLF *CHAR 4
DCL &RCVLEN *CHAR 4
DCL &RECEIVER *CHAR 80
CHGVAR VAR(%BIN(&WHICHSPLF)) VALUE(-1)
CHGVAR VAR(%BIN(&RCVLEN)) VALUE(80)
CALL PGM(QUSRSPLA) PARM(&RECEIVER &RCVLEN +
'SPLA0100' '*' ' ' ' ' QSYSPRT &WHICHSPLF)
CHGVAR VAR(&SPLFNBR) VALUE(%BIN(&RECEIVER 77 4))
ENDPGM


Vielen Dank

Jürgen Schnichels