Du kannst den Spool in eine Datei kopieren und diese Datei in CL durchlesen.

Für das Copy vom Spoolfile fragst du mit der Option *last an welche Datei du kopieren willst.

Also etwa so:


wrkactjob *print
cpyspoolfile *last -> tmp/dat1
read dat1
wenn substring(string, 10 , 15) = job & substring(string(20,15) = "MSGW" dann haue Roten Knopf
ansonsten lies weiter.

GG

Habe mal gerade auf meiner Kiste nach gesehen:

CRTPF FILE(QTEMP/DAT01) RCDLEN(120)
CPYSPLF FILE(QPDSPAJB) TOFILE(QTEMP/DAT01) SPLNBR(*LAST)

Dann hast Du die Daten in der Datei.