PGM
DCL &MBROPT *CHAR 10 VALUE(‘*REPLACE’)
DCL &OUTFILE *CHAR 10 VALUE(‘ALLAUTL’)
DCL &OUTLIB *CHAR 10 VALUE(‘TLIB’)
DCLF QADSPOBJ
DSPOBJD OBJ(QSYS/*ALL) OBJTYPE(*AUTL) +
OUTPUT(*OUTFILE) OUTFILE(QTEMP/AUTL)
OVRDBF QADSPOBJ QTEMP/AUTL
READ: RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(EOF))
DSPAUTLOBJ AUTL(&ODOBNM) OUTPUT(*OUTFILE) +
OUTFILE(&OUTLIB/&OUTFILE) OUTMBR(*FIRST +
&MBROPT)
MONMSG MSGID(CPF6250 CPF9800) EXEC(GOTO CMDLBL(READ))
CHGVAR &MBROPT ‘*ADD’
GOTO READ
EOF: RETURN
ENDPGM