PGM        PARM(&EMAIL &WATTACHE)
             DCL        VAR(&eMAIL) TYPE(*CHAR) LEN(100)
             DCL        VAR(&WATTACHE) TYPE(*CHAR) LEN(1)

             DCL        VAR(&ATTACHE) TYPE(*CHAR) LEN(4)
             DCL        VAR(&TYPE) TYPE(*CHAR) LEN(5)

              MONMSG CPF0000


/* TRAITEMENT DU PARAMETRE CHOISI  */

             IF         COND(&WATTACHE = '5') THEN(DO)
                  CHGVAR     VAR(&ATTACHE) VALUE('*NO')
                  CHGVAR &TYPE '*HTML'
                  GOTO IMPRESSION
             ENDDO
             IF         COND(&WATTACHE = '6') THEN(DO)
                  CHGVAR     VAR(&ATTACHE) VALUE('*NO')
                  CHGVAR &TYPE '*TEXT'
                  GOTO IMPRESSION
             ENDDO
                  CHGVAR VAR(&ATTACHE) VALUE('*YES')
                  IF (&WATTACHE = '1') THEN(CHGVAR &TYPE '*HTML')
                  IF (&WATTACHE = '2') THEN(CHGVAR &TYPE '*TEXT')
                  IF (&WATTACHE = '3') THEN(CHGVAR &TYPE '*TIFF')
                  IF (&WATTACHE = '4') THEN(CHGVAR &TYPE '*PDF')

 /*TRAITEMENT DE LA DEMANDE */

IMPRESSION:  WRKACTJOB  OUTPUT(*PRINT)

 /* JE GARDE UNE TRACE EN CAS D'ERREUR LORS DE LA SAISIE DE L'EMAIL */
             SNDMSG     MSG(&EMAIL) TOUSR(QSYSOPR)

 /* ENVOI DU MAIL */
             SPLF2/SNDSPLMEL FILE(QPDSPAJB) JOB(*) SPLNBR(*LAST) +
                          A(&EMAIL) DE('infos@volubis.fr') +
                          NOMDE('PGM CGI (Volubis)') SUJET('Spool +
                          WRKACTJOB') MESSAGE('Comme convenu, +
                          veuillez trouver ci-joint le spool AS/400 +
                          [WRKACTJOB].') ATTACHE(&ATTACHE) TYPE(&TYPE)

/* SUPPRESSION DU SPOOL , DEVENU INUTILE */
             DLTSPLF    FILE(QPDSPAJB) SPLNBR(*LAST)
             ENDPGM