PGM
             SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) +
                          MSGDTA('Recherche des références croisées +
                          en cours') TOPGMQ(*EXT) MSGTYPE(*STATUS)
             CHKOBJ QTEMP/SBSTEMP  *FILE
              MONMSG CPF0000 *N DO
                     CRTPF QTEMP/SBSTEMP RCDLEN(132)
                     GOTO SUIT1
                     ENDDO
              CLRPFM QTEMP/SBSTEMP
 SUIT1:      CHKOBJ QTEMP/DSPSBSP1 *FILE
              MONMSG CPF0000 *N DO
                     CRTDUPOBJ  OBJ(DSPSBSP1) FROMLIB(AF4TOOL) +
                          OBJTYPE(*FILE) TOLIB(QTEMP)
                     GOTO SUIT2
                     ENDDO
              CLRPFM QTEMP/DSPSBSP1
 SUIT2:      OVRPRTF QPDSPSBS HOLD(*YES)
             OVRDBF SBSTEMP QTEMP/SBSTEMP
             OVRDBF DSPSBSP1 QTEMP/DSPSBSP1
             WRKSBS     OUTPUT(*PRINT)
             CPYSPLF    FILE(QPDSPSBS) TOFILE(QTEMP/SBSTEMP) +
                          SPLNBR(*LAST)
             DLTSPLF    FILE(QPDSPSBS) SPLNBR(*LAST)
             CALL DSPSBSG
             DLTOVR *ALL
             RMVMSG     CLEAR(*ALL)
             SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) +
                          MSGDTA('Chargement des références +
                          croisées') TOPGMQ(*EXT) MSGTYPE(*STATUS)
             ENDPGM