Cl zur Beantwortung von MSGW's

[Robi]

Schaut Euch mal STRWCH an
der hilft Euch (ab V5R4)

Robi

[svente]

Danke für die Tips. Ich werde mich dann mal durch das iSeries Information Center, Version 5 Release 4 kämpfen.
Wenn ich was brauchbares draus gemacht habe, dann kann ich es ja mal hier posten.

Schönes Wochenende.

[kitvb1]

Du kannst diese in CL nutzen, es klappt wundäboar. Das Auto-Reply wird nach Program lauf gelöscht.

             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