To Retrieve ALL Libraries in QSYS to OUTFILE and Display Them in CL
Program
(Command : PRTLIBANL)
PGM
DCLF
FILE(QTEMP/OBJLST)
DSPOBJD
OBJ(QSYS/*ALL)
OBJTYPE(*LIB) +
OUTPUT(*OUTFILE) OUTFILE(QTEMP/OBJLST)
READ: RCVF
MONMSG MSGID(CPF0864)
EXEC(GOTO CMDLBL(END))
IF COND((%SST(&ODOBNM
1 1) *EQ 'Q') *OR +
(%SST(&ODOBNM 1 1) *EQ '#')) THEN(GOTO
READ)
PRTLIBANL LIB(&ODOBNM)
MONMSG MSGID(CPF0000)
GOTO CMDLBL(READ)
END: ENDPGM
No comments