PGM
             CHKOBJ     OBJ(AF4TOOL/EXECDQ) OBJTYPE(*DTAQ)
             MONMSG CPF0000 EXEC(DO)
             CRTDTAQ    DTAQ(AF4TOOL/EXECDQ) MAXLEN(522) SEQ(*KEYED) +
                          KEYLEN(4) SENDERID(*YES)
             ENDDO
             SBMJOB     ?*CMD(CALL PGM(AF4TOOL/EXECAJE)) ?*JOB(EXEC) +
                          JOBD(AF4TOOL/EXECJD) ??JOBQ(QCTL)
              MONMSG CPF0000 EXEC(DO)
                SNDPGMMSG  MSG('commande annulée') MSGTYPE(*DIAG)
                RETURN
              ENDDO
             SNDPGMMSG  MSG('Exec démarré, pour arreter utilisez le +
                          pgm ENDEXEC.')
             ENDPGM