PGM
             SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) +
                          MSGDTA('Références croisées terminées') +
                          TOPGMQ(*EXT) MSGTYPE(*STATUS)
             ENDPGM