Ein-/Ausgabezustände - Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch

Dateiverarbeitung
9.3.6 Ein-/Ausgabezustände
Jeder Datei im Programm können mit der FILE STATUS-Klausel Datenfelder zugeordnet
werden, in denen das Laufzeitsystem nach jedem Zugriff auf die Datei Informationen darü-
ber hinterlegt,
– ob die Ein-/Ausgabeoperation erfolgreich war und
– welcher Art ggf. die dabei aufgetretenen Fehler sind.
Diese Informationen können z.B. in den DECLARATIVES durch USE-Prozeduren ausge-
wertet werden und gestatten eine Analyse von Ein-/Ausgabefehlern durch das Programm.
Als Erweiterung zum COBOL-Standard bietet COBOL2000 die Möglichkeit, in diese Analy-
se auch die Schlüssel der DVS-Fehlermeldungen einzubeziehen. Dadurch lässt sich eine
feinere Differenzierung der Fehlerursachen erreichen. Die FILE STATUS-Klausel wird im
FILE-CONTROL-Paragrafen der ENVIRONMENT DIVISION angegeben; ihr Format ist
(siehe Handbuch „COBOL2000-Sprachbeschreibung" [1]):
LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR
FILE STATUS IS datenname-1 [datenname-2]
LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR
Dabei müssen datenname-1 und, falls angegeben, datenname-2 in der
WORKING-STORAGE SECTION oder der LINKAGE SECTION definiert sein. Für die For-
mate und die möglichen Werte dieser beiden Datenfelder gelten folgende Regeln:
datenname-1
– muss als zwei Byte langes alphanumerisches Datenfeld erklärt werden, also z.B.
– enthält nach jeder Ein-/Ausgabeoperation auf die zugeordnete Datei einen zweistelli-
gen numerischen Zustandscode, dessen Bedeutung der Tabelle am Ende dieses Ab-
schnitts entnommen werden kann.
U41113-J-Z125-6
01 datenname-1 PIC X(2).
Relative Dateien
235