Reorganize All Files In Selected
Library
PGM PARM(&LIB)
DCLF FILE(MLIST)
DCL VAR(&LIB)
TYPE(*CHAR) LEN(10) /*
LIBRARY TO REORGANIZE */
DSPFD FILE(&LIB/*ALL)
TYPE(*MBRLIST) +
OUTPUT(*OUTFILE)
OUTFILE(UTILITIES/MLIST)
MONMSG MSGID(CPF0000) EXEC(GOTO
CMDLBL(EOF))
READ:
RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(EOF))
RGZPFM
FILE(&MLLIB/&MLFILE)
MONMSG MSGID(CPF0000)
GOTO CMDLBL(READ)
EOF:
ENDPGM
No comments