Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch Seite 268

Simultanverarbeitung (SHARED-UPDATE)
Beispiel 9-13
Verzweigen zu einer USE AFTER STANDARD ERROR-Prozedur
...
FILE-CONTROL.
SELECT ISAM1
...
FILE STATUS IS FILESTAT1.
WORKING-STORAGE SECTION.
77 FILESTAT1
...
PROCEDURE DIVISION.
DECLARATIVES.
ISAM1ERR SECTION.
USE AFTER STANDARD ERROR PROCEDURE ON ISAM1.
SPERRE.
IF FILESTAT1 = 93
ISAM1ERR-EX.
EXIT. —————————————————————————————————————————————————————————————— (1)
END DECLARATIVES.
STEUER SECTION.
...
(1)
268
PIC 99.
THEN DISPLAY "SATZ ZUR ZEIT GESPERRT" UPON T
ELSE DISPLAY "DMS-FEHLER ISAM1, FILE-STATUS="
FILESTAT1 UPON T.
Verzweigen auf die Anweisung hinter der fehlerverursachenden Anweisung.
Wie der aufgetretene Fehler sinnvoll zu behandeln ist, muss für den jeweiligen
Anwendungsfall entschieden werden.
Dateiverarbeitung
U41113-J-Z125-6