Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch Seite 266

Simultanverarbeitung (SHARED-UPDATE)
Beispiel 9-12
Lesen und Zurückschreiben in Datei ISAM1, wenn vor dem Zurückschreiben Daten
aus einer Datei ISAM2 benötigt werden
a)
...
READ ISAM1 INTO WORK1 ————————————————————————————————————————————————— (1)
INVALID KEY...
...
READ ISAM2 ———————————————————————————————————————————————————————————— (2)
INVALID KEY...
...
Verarbeitung von WORK1 unter Berücksichtigung von ISAM2SATZ
...
READ ISAM1 ———————————————————————————————————————————————————————————— (3)
INVALID KEY...
Prüfung, ob ISAM1SATZ inzwischen geändert, gegebenenfalls erneute Verarbeitung
...
REWRITE ISAM1SATZ FROM WORK1——————————————————————————————————————————— (4)
INVALID KEY...
(1)
(2)
(3)
(4)
266
Ohne WITH NO LOCK-Zusatz: zweimalige READ-Anweisung auf dieselbe Datei
erforderlich, dafür Sperrzeiten kürzer:
Lesen eines Datensatzes aus ISAM1 und Zwischenspeichern in WORK1, betroffe-
ner Datenblock in ISAM1 gesperrt
Lesen eines Datensatzes aus ISAM2, Aufhebung der Sperre in ISAM1, Sperrung
des betroffenen Datenblocks in ISAM2
Erneutes Lesen des Datensatzes in ISAM1, Aufhebung der Sperre in ISAM2, Sper-
rung des betroffenen Datenblocks in ISAM1
Zurückschreiben des Datensatzes nach ISAM1, Aufhebung der Sperre in ISAM1
Dateiverarbeitung
U41113-J-Z125-6