Probiers mal so:

PHP-Code:
DCL        VAR(&INQMSGRPY) TYPE(*CHAR) LEN(10)

RTVJOBA    INQMSGRPY(&INQMSGRPY)
CHGJOB     INQMSGRPY(*SYSRPYL)

ADDRPYLE   SEQNBR(1234) MSGID(CPA4086) RPY(C)
...
RMVRPYLE   SEQNBR(1234)
CHGJOB     INQMSGRPY(&INQMSGRPY) 
Die vorhandenen Einträge der Systemantwortliste und bereits belegte Nummern zeigt der Befehl WRKRPYLE.