PGM
             DCL        VAR(&CMD) TYPE(*CHAR) LEN(512) value('*END')
             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(RETURN)
             CALL QSNDDTAQ PARM('EXECDQ' 'AF4TOOL'          +
                                &DTALEN &CMD                +
                                 &KEYLEN &KEY)
             SNDPGMMSG  MSG('Arret demandé.') MSGTYPE(*COMP)
             ENDPGM