PGM
             DCLF WRKMAILD
             SNDF       RCDFMT(WIN01)
             QRYDST
              RCVMSG
             QRYDST     OUTFILE(QTEMP/DSTIN)
             OVRDBF     FILE(DSTIN) TOFILE(QTEMP/DSTIN)
             OVRDBF     FILE(DSTDOC) TOFILE(QTEMP/DSTDOC)
 APPEL:      CALLPRC    PRC(WRKMAILG) PARM(&IN06)
             IF &IN06 DO
   envoi:      SNDRCVF    RCDFMT(WIN02)
               if &in03 goto appel
               if &in04 do
                    DSPDIRE
                    goto envoi
               enddo
               if (&intadr = ' ') then(do)
                    SNDDST     TYPE(*MSG) TOUSRID((&USER &SYSTEM)) +
                                 DSTD(&SUJET) MSG(&MSG)
                    MONMSG     (CPF0000) EXEC(CHGVAR &IN04 '1')
                    enddo
                    else do
                      SNDDST     TYPE(*LMSG) TOUSRID((&USER &SYSTEM)) +
                                   TOINTNET((&INTADR)) DSTD(&SUJET) +
                                   LONGMSG(&MSG)
                    MONMSG     (CPF0000)
                    enddo
                 GOTO APPEL
             ENDDO
             ENDPGM