Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch Seite 255

Dateiverarbeitung
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
NACHLAUF.
OU
OU
OU
SATZ-VERARBEITEN.
OU *
OU *
OU *
ORLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLROL
(1)
(2)
(3)
(4)
(5)
U41113-J-Z125-6
NOT AT END
DISPLAY "HOECHSTER SATZSCHLUESSEL: " REC-KEY
UPON T
PERFORM SATZ-VERARBEITEN
END-READ
END-START
PERFORM WITH TEST BEFORE UNTIL VERARBEITUNGS-ENDE
READ IND-DATEI PREVIOUS LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (4) OU
AT END
SET VERARBEITUNGS-ENDE TO TRUE
NOT AT END
DISPLAY "NAECHSTER SATZSCHLUESSEL: " REC-KEY
UPON T
PERFORM SATZ-VERARBEITEN
END-READ
END-PERFORM.
CLOSE IND-DATEI
STOP RUN.
VERARBEITUNG DES AKTUELLEN SATZES LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (5) OU
Für die Verarbeitung wird die Datei IND-DATEI mit OPEN I-O eröffnet.
Um den Satz mit dem höchsten Schlüssel in der Datei zu erhalten, wird
– der RECORD KEY mit dem höchstmöglichen Wert (HIGH-VALUE im NATIVE-
Alphabet) vorbelegt und
– mit START...KEY LESS OR EQUAL positioniert.
READ...PREVIOUS liest den Satz ein, auf den zuvor mit START positioniert wurde.
READ...PREVIOUS liest den Vorgänger des zuletzt gelesenen Satzes.
Der eingelesene Satz wird verarbeitet. Falls sein RECORD KEY dabei verändert
wird, muss dessen ursprünglicher Wert vor der folgenden START-Anweisung wie-
derhergestellt werden.
Indizierte Dateien
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
255