PGM
              MONMSG CPF0000
 
             ENDTCPSVR  SERVER(*SMTP)
             ENDMSF
             DLYJOB     DLY(5)
 
             CRTDTAARA  DTAARA(QUSRSYS/QTMSCLEAN) TYPE(*CHAR) LEN(1) +
                          VALUE('c')
 
 /* NE SERT PLUS EN V5 */
             CRTDTAARA  DTAARA(QUSRSYS/QZMFKQ) TYPE(*CHAR) LEN(33) +
                          VALUE(*ALL)
             CHGOBJOWN  OBJ(QUSRSYS/QZMFKQ) OBJTYPE(*DTAARA) +
                          NEWOWN(QSYS)
 
 
             STRMSF     MSGOPT(*CLEAR)
             STRTCPSVR  SERVER(*SMTP)
             ENDPGM