Place une commande dans la DTAQ/CPP cde EXEC

BoTTom | 
             PGM        PARM(&CMD)
             DCL        VAR(&CMD) TYPE(*CHAR) LEN(512)
             DCL        VAR(&DTALEN) TYPE(*DEC) LEN(5 0) VALUE(512)
             DCL        VAR(&KEYLEN) TYPE(*DEC) LEN(3 0) VALUE(4)
             DCL        VAR(&KEY) TYPE(*CHAR) LEN(4) VALUE('*CMD')
 
             CHKOBJ     OBJ(AF4TOOL/EXECDQ) OBJTYPE(*DTAQ)
             MONMSG CPF0000 EXEC(DO)
             CRTDTAQ    DTAQ(AF4TOOL/EXECDQ) MAXLEN(522) SEQ(*KEYED) +
                          KEYLEN(4) SENDERID(*YES)
             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.')
             ENDDO
             CALL QSNDDTAQ PARM('EXECDQ' 'AF4TOOL'          +
                                &DTALEN &CMD                +
                                 &KEYLEN &KEY)
             SNDPGMMSG  MSG('Exécution demandée') MSGTYPE(*COMP)
             ENDPGM




©AF400