PGM
             DCLF QADSPOBJ
             MONMSG CPF0000
 /* ECRITURE DE LA LISTE DES OBJETS DANS DSPOBJ1 */
             DSPOBJD    OBJ(QSYS/*ALL) OBJTYPE(*FILE) DETAIL(*FULL) +
                          OUTPUT(*OUTFILE) OUTFILE(QTEMP/DSPOBJ1)
             DSPOBJD    OBJ(QGPL/*ALL) OBJTYPE(*FILE) DETAIL(*FULL) +
                          OUTPUT(*OUTFILE) OUTFILE(QTEMP/DSPOBJ1) +
                          OUTMBR(*FIRST *ADD)
             DSPOBJD    OBJ(QPDA/*ALL) OBJTYPE(*FILE) DETAIL(*FULL) +
                          OUTPUT(*OUTFILE) OUTFILE(QTEMP/DSPOBJ1) +
                          OUTMBR(*FIRST *ADD)
             DSPOBJD    OBJ(-MABIB1/*ALL) OBJTYPE(*FILE) +
                          DETAIL(*FULL) OUTPUT(*OUTFILE) +
                          OUTFILE(QTEMP/DSPOBJ1) OUTMBR(*FIRST *ADD)
             DSPOBJD    OBJ(-MABIB2/ALL) OBJTYPE(*FILE) +
                          DETAIL(*FULL) OUTPUT(*OUTFILE) +
                          OUTFILE(QTEMP/DSPOBJ1) OUTMBR(*FIRST *ADD)
 /* COPIE AVEC SELECTION DES PRTF UNIQUEMENT DANS DSPOBJ2 */
             CPYF       FROMFILE(QTEMP/DSPOBJ1) TOFILE(QTEMP/DSPOBJ2) +
                          MBROPT(*REPLACE) CRTFILE(*YES) +
                          PRINT(*COPIED) INCREL((*IF &ODOBAT *EQ PRTF))
 
             OVRDBF QADSPOBJ QTEMP/DSPOBJ2
             CHGJOB     LOG(4 00 *MSG) LOGCLPGM(*YES)
 
 LECTURE:    RCVF /* LECTURE */
              MONMSG CPF0864 *N GOTO FIN
             CHGPRTF    FILE(&ODLBNM/&ODOBNM) PAGESIZE(88 198) +
                          LPI(8) CPI(15) OVRFLW(84) PRTQLTY(*DRAFT) +
                          HOLD(*YES)
             GOTO LECTURE
 
 FIN:        CHGPRTF    FILE(QPJOBLOG) OUTQ(QEZJOBLOG)
             CHGPRTF    FILE(QPPGMDMP) OUTQ(QEZDEBUG)
             CHGPRTF    FILE(QPSRVDMP) OVRFLW(80) OUTQ(QEZDEBUG) +
                          HOLD(*YES)
             ENDPGM