EMZETT.Die Stärke von COBOL ist die Stapelverarbeitung großer Dateien. In der ENVIRONMENT DIVISION verbindest du eine Datei mit SELECT name ASSIGN TO "datei.txt", in der DATA DIVISION beschreibst du ihren Satzaufbau unter FILE SECTION mit FD. Im Code öffnest du mit OPEN INPUT oder OPEN OUTPUT, liest mit READ ... AT END ..., schreibst mit WRITE und schließt mit CLOSE.
Typisch ist die Schleife "lies Satz für Satz, bis die Datei zu Ende ist". Genau so verarbeiten Banken nachts Millionen von Buchungen.
IDENTIFICATION DIVISION.
PROGRAM-ID. DATEIEN.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT KUNDEN ASSIGN TO "kunden.txt"
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD KUNDEN.
01 KUNDEN-SATZ PIC X(40).
WORKING-STORAGE SECTION.
01 WS-ENDE PIC X VALUE "N".
PROCEDURE DIVISION.
OPEN INPUT KUNDEN.
PERFORM UNTIL WS-ENDE = "J"
READ KUNDEN
AT END MOVE "J" TO WS-ENDE
NOT AT END DISPLAY KUNDEN-SATZ
END-READ
END-PERFORM.
CLOSE KUNDEN.
STOP RUN.Merke
SELECT ... ASSIGN TOverbindet eine DateiOPEN,READ,WRITE,CLOSEAT ENDerkennt das Dateiende
Aufgabe
Lege eine Textdatei an und gib jede Zeile mit COBOL aus.