Du kannst diese in CL nutzen, es klappt wundäboar. Das Auto-Reply wird nach Program lauf gelöscht.
Code:
             DCL        VAR(&SYSRPYCRT) TYPE(*LGL) LEN(1) VALUE('0')
             DCL        VAR(&JOBRPY) TYPE(*CHAR) LEN(10)
             DCL        VAR(&RPLYSEQ) TYPE(*DEC) LEN(4 0) VALUE(5555)     
...
                  RTVJOBA    INQMSGRPY(&JOBRPY)                            
                  CHGJOB     INQMSGRPY(*SYSRPYL)                           
A32B2RETRY:       CHGVAR     VAR(&RPLYSEQ) VALUE(&RPLYSEQ + 1)             
                  ADDRPYLE   SEQNBR(&RPLYSEQ) MSGID(CPA32B2) RPY('I')      
                  MONMSG     MSGID(CPF2555) EXEC(GOTO CMDLBL(A32B2RETRY))  
                  CHGVAR     VAR(&SYSRPYCRT) VALUE('1')  
...
do stuff
...
                IF         COND(&SYSRPYCRT *EQ '1') THEN(DO) 
                   RMVRPYLE   SEQNBR(&RPLYSEQ)               
                   MONMSG     MSGID(CPF0000)                 
                   CHGJOB     INQMSGRPY(&JOBRPY) 
                ENDDO