RGZPFM - Organiser la réorganisation

04/03/2017
On établi la liste des membres de fichiers à réorganiser.
/* La liste des fichiers dépasse souvent dix mille enregistrements */

CRTDUPOBJ OBJ(QAFDMBRL) FROMLIB(QSYS) OBJTYPE(*FILE) +
       TOLIB(WRKLIB) NEWOBJ(LSTRGZ) CST(*NO) TRG(*NO)
ADDPFM FILE(WRKLIB/LSTRGZ) MBR(LSTRGZ)
CHGPF FILE(WRKLIB/LSTRGZ) SIZE(*NOMAX)
DSPFD FILE(*ALLUSR/*ALL) TYPE(*MBRLIST) +
OUTPUT(*OUTFILE) FILEATR(*PF) +
OUTFILE(WRKLIB/LSTRGZ)
QSH CMD('DB2 "DELETE FROM WRKLIB.LSTRGZ WHERE MLNDTR = 0" ')


En premier lieu nous dupliquons le fichier modèle QAFDMBRL dans notre bibliothèque de travail.
Le format du fichier QAFDMBRL est celui généré par la commande DSPFD avec la valeur *MBRLIST pour le paramètre TYPE.
DSPFD (File definition) effectue le recensement de tous les membres de fichiers physiques. La liste de ces membres est inscrite dans le fichier LSTRGZ.
Le fichier LSTRGZ