Fehlermeldung unterdrücken (COBOL)

[Fuerchau]

Nein, die gibt es nicht. Auf Grund der Meldung wird ja " invalid key " ausgelöst.
Würdest du die Meldung unterdrücken, wäre die Fehlerabfrage nicht mehr möglich.
Im RPG ist das i.Ü. identisch.

[camouflage]

Bau einen Monitor darum.
:-)

[Fuerchau]

Den gibts in COBOL nicht.
Bespiel Write COBOL:

WRITE RECORD
INVALID KEY mach was
END-WRITE

Write ILERPG

WRITE(E) RECORD;
if %error();
mach was
endif;

In beiden Fällen wird die Nachricht ins Joblog geschrieben.
In COBOL wird INVALID KEY ausgeführt, in ILERPG wird der %error()-Status gesetzt.
Selbst in ILERPG verschwindet dann die Nachricht nicht.

Um die Nachricht explizit zu entfernen benötigst du einen RCVMSG (oder das API dazu, ggf. QMHRCVM).

Das Hauptproblem in solchen Fällen ist ins besonders bei Masseninserts und häufigen Konflikten, dass das Joblog sehr groß wird (und je nach Einstellung vor einem WRAP erst mal gedruckt wird) und auch die Performance nicht unerheblich beeinflusst wird.

Aber selbst ein Prüflesen kann zu doppelten Schlüsseln führen, könnte allerdings die Anzahl der Konflikte reduzieren.

[nico1964]

Naja so ganz direkt glaube ich das nicht. Ich kann auch in COBOL eine File-Status nach dem Write abfragen:

COBOL select

SELECT VIB1 ASSIGN TO DATABASE-LEAVIB1
ORGANIZATION IS INDEXED
ACCESS MODE IS DYNAMIC
RECORD KEY IS EXTERNALLY-DESCRIBED-KEY
FILE STATUS IS WS-STATUS.

write Statement


WRITE-VIB1-IND.
INITIALIZE WS-FILE-NAME
PERFORM FILL-KEY-VIB1 THRU FILL-KEY-VIB1-EX
MOVE 1 TO WRK-FOUND.
WRITE VIB1-SATZ
INVALID KEY MOVE ZEROES TO WRK-FOUND.
STRING CONST-DATEI-VIB1 DELIMITED BY SIZE
CONST-TRENN-ZEICHEN DELIMITED BY SIZE
INTO WS-FILE-NAME
END-STRING
PERFORM STD-FILSTAT THRU STD-FILSTAT-EX.
WRITE-VIB1-IND-EX.
EXIT.

STD-FILSTAT.
IF WS-STATUS NOT < '30'

mache irgendwas


END-IF.
STD-FILSTAT-EX.

Funktioniert bei uns seit 1990

EXIT.

[Fuerchau]

Das hat mit der MSG nichts zu tun.
Invalid Key wird bei Fehler ausgelöst, über den Filestatus kann ich den Grund näher bestimmen.