PGM PARM(&BIB &FICSRC &BIBSRC)
DCL &BIB *CHAR 10
DCL &FICSRC *CHAR 10
DCL &BIBSRC *CHAR 10
 
             SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) +
                          MSGDTA('Création de WRKMAIL en cours  +
                          ...') MSGTYPE(*STATUS)
 
             CRTDSPF    FILE(&BIB/WRKMAILD) SRCFILE(&BIBSRC/&FICSRC)
             ADDLIBLE &BIB
              MONMSG CPF0000
 
             CRTCLMOD   MODULE(QTEMP/WRKMAILC) SRCFILE(&BIBSRC/&FICSRC)
             CRTCLMOD   MODULE(QTEMP/WRKMAILC2) +
                          SRCFILE(&BIBSRC/&FICSRC)
             CRTCLMOD   MODULE(QTEMP/WRKMAILC3) +
                          SRCFILE(&BIBSRC/&FICSRC)
             CRTRPGMOD  MODULE(QTEMP/WRKMAILG) SRCFILE(&BIBSRC/&FICSRC)
 
             CRTPGM     PGM(&BIB/WRKMAIL) MODULE(QTEMP/WRKMAILC +
                          QTEMP/WRKMAILC2 QTEMP/WRKMAILC3 +
                          QTEMP/WRKMAILG) ACTGRP(WRKMAIL)
 
             CRTCMD     CMD(&BIB/WRKMAIL) PGM(&BIB/WRKMAIL) +
                          SRCFILE(&BIBSRC/&FICSRC)
 
             SNDPGMMSG  MSG('Création de WRKMAIL terminée !')
             ENDPGM