QCMDEXC und Fehlermeldung CPA4086

[MR-BN]

um zu testen, ob für den Tagesabschluß das richtige Band bereits eingelegt ist, habe ich ein kleines RPG-ILE Programm erstellt. Dieses soll eine Fehlermeldung bringen, wenn es nicht so ist.

Nur die Fehlermeldung CPA4086 (Einheit nicht bereit, weil kein Band eingelegt ist) erzeugt einen Meldung beim QSYSOPR und kann per Error-Code nicht abgefragt werden, weil die Steuerung nicht sofort an das aufrufende Programm weiter gegeben wird.

Kennt einer einer Lösung für das Problem.

[Pikachu]

Probiers mal so:


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.

[Fuerchau]

CHGJOB INQMSGRPY(*DFT)
könnte reichen, da die Defaultantwort ja "C" ist.