Positionieren Mit Start - Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch

Indizierte Dateien

9.4.5 Positionieren mit START

In indizierten (wie auch in relativen) Dateien kann mit START auf jeden beliebigen Daten-
satz als Ausgangspunkt für nachfolgende sequenzielle Leseoperationen positioniert wer-
den. Den Schlüssel (Primär- oder Sekundärschlüssel) des zuerst zu lesenden Satzes legt
START dabei über eine Vergleichsbedingung fest.
Das folgende Beispiel zeigt, wie es mit Hilfe der Spracherweiterung (gegenüber ANS85)
START...KEY LESS... und READ...PREVIOUS möglich ist, eine indizierte Datei sequenziell
in umgekehrter Richtung zu verarbeiten; d.h. in der Reihenfolge absteigender Satzschlüs-
sel, beginnend mit dem höchsten in der Datei vorhandenen Schlüssel:
Beispiel 9-11
Verarbeiten einer indizierten Datei in umgekehrter Richtung
URLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLU
OU
IDENTIFICATION DIVISION.
OU
PROGRAM-ID.
OU *
OU *
OU
ENVIRONMENT DIVISION.
OU
CONFIGURATION SECTION.
OU
SPECIAL-NAMES.
OU
OU
INPUT-OUTPUT SECTION.
OU
FILE-CONTROL.
OU
OU
OU
OU
OU
OU
DATA DIVISION.
OU
FILE SECTION.
OU
FD
OU
01
OU
OU
OU
WORKING-STORAGE SECTION.
OU
01
OU
OU
PROCEDURE DIVISION.
OU
VORLAUF.
OU
OU
OU
OU
DATEI-VERARBEITEN.
OU
OU
OU
OU
OU
OU
OU
OU
254
INDREV.
INDREV VERARBEITET DIE SAETZE EINER INDIZIERTEN DATEI
IN DER FOLGE ABSTEIGENDER SATZSCHLUESSEL.
TERMINAL IS T.
SELECT IND-DATEI
ASSIGN TO "INDFILE"
ORGANIZATION IS INDEXED
ACCESS IS DYNAMIC
RECORD KEY IS REC-KEY.
IND-DATEI.
IND-SATZ.
05 REC-KEY
05 REC-TEXT
VERARBEITUNGS-SCHALTER
88 VERARBEITUNGS-ENDE
OPEN I-O IND-DATEI LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (1) OU
MOVE HIGH-VALUE TO REC-KEY LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (2) OU
MOVE "0" TO VERARBEITUNGS-SCHALTER.
START IND-DATEI KEY LESS OR EQUAL REC-KEY
INVALID KEY
DISPLAY "DATEI IST LEER" UPON T
SET VERARBEITUNGS-ENDE TO TRUE
NOT INVALID KEY
READ IND-DATEI PREVIOUS LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (3) OU
AT END
SET VERARBEITUNGS-ENDE TO TRUE
PIC X(8).
PIC X(72).
PIC X.
VALUE "1".
Dateiverarbeitung
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
U41113-J-Z125-6