Erstellen Einer Relativen Datei Mit Wahlfreiem Zugriff - Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch

Relative Dateien

9.3.5 Erstellen einer relativen Datei mit wahlfreiem Zugriff

Das folgende Beispiel gibt ein einfaches COBOL-Programm wieder, mit dem eine relative
Datei mit wahlfreiem Zugriff erstellt werden kann. Die Datensätze können dabei in beliebi-
ger Reihenfolge in die Datei geschrieben werden.
Beispiel 9-9
Programm zum wahlfreien Erstellen einer relativen Datei
URLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLU
OU
IDENTIFICATION DIVISION.
OU
PROGRAM-ID.
OU
ENVIRONMENT DIVISION.
OU
CONFIGURATION SECTION.
OU
SPECIAL-NAMES.
OU
OU
INPUT-OUTPUT SECTION.
OU
FILE-CONTROL.
OU
OU
OU
OU
OU
OU
OU
DATA DIVISION.
OU
FILE SECTION.
OU
FD
OU
01
OU
WORKING-STORAGE SECTION.
OU
01
OU
OU
01
OU
OU
OU
OU
OU
OU
01
OU
OU
OU
01
OU
OU
OU
OU
OU
PROCEDURE DIVISION.
OU
DECLARATIVES.
OU
AUSGABE-FEHLER SECTION.
OU
OU PERMANENTER-FEHLER. LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (4) OU
OU
OU
OU
OU
OU
232
RELATIV.
TERMINAL IS T.
SELECT RELATIV-DATEI
ASSIGN TO "RELFILE"
ORGANIZATION IS RELATIVE
ACCESS MODE IS RANDOM LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (1) OU
RELATIVE KEY IS REL-KEY LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (2) OU
FILE STATUS IS FS-CODE DVS-CODE. LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (3) OU
RELATIV-DATEI.
RELATIV-SATZ
REL-KEY
88 EINGABE-ENDE
EIN-AUSGABE-ZUSTAND.
05 FS-CODE
05 DVS-CODE.
06 DVS-CODE-1
88 DVS-CODE-2-DEFINIERT
06 DVS-CODE-2
CLOSE-SCHALTER
88 DATEI-OFFEN
88 DATEI-GESCHLOSSEN
RELATIV-TEXT.
05
VALUE "******DIES IST SATZ NR. ".
05 SATZNR
05
USE AFTER STANDARD ERROR PROCEDURE ON RELATIV-DATEI.
IF FS-CODE NOT LESS THAN 30
DISPLAY "NICHT BEHEBBARER FEHLER FUER RELATIV-DATEI"
UPON T
DISPLAY "FILE STATUS: " FS-CODE UPON T
IF DVS-CODE-2-DEFINIERT
PIC X(33).
PIC 9(3).
VALUE ZERO.
PIC 9(2).
PIC 9(2) COMP.
VALUE 64.
PIC X(4).
PIC X VALUE "0".
VALUE "1".
VALUE "0".
PIC X(24)
PIC 9(3).
PIC X(6) VALUE "$$$$$$".
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
OU
OU
OU
OU
OU
OU
U41113-J-Z125-6