PGM        PARM(&DSTID &OPTION)
             DCLF       FILE(WRKMAILD)
             DCL        VAR(&DSTID) TYPE(*CHAR) LEN(20)
             DCL        VAR(&OPTION) TYPE(*CHAR) LEN(1)
             IF (&option = '4') +
               RCVDST     DSTID(&DSTID) USRID(*CURRENT) KEEP(*NO)
             IF         COND(&OPTION = '8') THEN(DO)
   affich:     SNDRCVF    RCDFMT(WIN05)
               IF         COND(&IN03) THEN(RETURN)
               RCVDST     DSTID(&DSTID) USRID(*CURRENT) DOC(&DOC) +
                            FLR(&FLR) KEEP(*YES)
                 monmsg cpf0000 exec(do)
                 chgvar &in45 '1'
                 goto affich
                 enddo
             ENDDO
             ENDPGM