Hallo Detfall,

z.B.:

PGM /* START */
DSPMSG MSGQ(*SYSOPR)
DSPLOG LOG(QHST) PERIOD((*AVAIL *CURRENT) (*AVAIL *CURRENT)) OUTPUT(*)
WRKSPLF SELECT(*ALL)
WRKUSRJOB USER(*ALL) STATUS(*ACTIVE)
DSPLOG PERIOD((*AVAIL *BEGIN)) MSGID(CPF2200)
WRKDSKSTS
ENDPGM

Manfred Maschke