Hallo,

wir benutzen unten stehendes Reorg-PGM. Als Übergabeparameter ist die Bibliothek einzugeben. Anschließend werden alle PFs einer Lib reorganisiert:

PGM PARM(&LIB)
DCLF FILE(QSYS/QAFDMBRL)
DCL VAR(&LIB) TYPE(*CHAR) LEN(10)
DSPFD FILE(&LIB/*ALL) TYPE(*MBRLIST) +
OUTPUT(*OUTFILE) FILEATR(*PF) +
OUTFILE(QTEMP/FDMBRLST)
OVRDBF FILE(QAFDMBRL) TOFILE(QTEMP/FDMBRLST)
LESEN:
RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDE)) /*EOF */
IF COND(&MLNDTR *EQ 0) THEN(GOTO CMDLBL(LESEN))
REORG:
RGZPFM FILE(&MLLIB/&MLFILE) MBR(&MLNAME)
MONMSG MSGID(CPF0000)
GOTO CMDLBL(LESEN)
ENDE:
ENDPGM

Gruß
Martin