Fehlermeldung unterdrücken (COBOL)

[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.