Datei-E/A-Operationen

Sobald eine Datei verknüpft und in der DATA DIVISION deklariert ist, können wir sie innerhalb der PROCEDURE DIVISION bearbeiten. In COBOL folgt die Verwaltung des Lebenszyklus einer Datei einem standardmäßigen und imperativen Ablauf: Öffnen, Operation (Lesen oder Schreiben) und Schließen.

1. Öffnen von Dateien: Die OPEN-Anweisung

Bevor Sie eine Datei lesen oder schreiben können, muss diese geöffnet werden, wobei der entsprechende Zugriffsmodus anzugeben ist:

       OPEN INPUT SALES-FILE.

Die Hauptmodi sind:

• INPUT: Die Datei wird im schreibgeschützten Modus geöffnet. Die Datei muss auf der Festplatte vorhanden sein, andernfalls bricht das Programm mit einem Fehler ab.
• OUTPUT: Die Datei wird im Schreibmodus geöffnet. Wenn die Datei bereits existiert, wird ihr vorheriger Inhalt gelöscht (Überschreiben). Wenn sie nicht existiert, wird sie erstellt.
• EXTEND: Die Datei wird zum Hinzufügen von Daten geöffnet (Append). Die neuen Datensätze werden ab dem Ende der vorhandenen Datei geschrieben.
• I-O: Die Datei wird sowohl zum Lesen als auch zum Schreiben geöffnet (wird hauptsächlich für Dateien mit relativem oder indiziertem Zugriff verwendet, nicht für sequenzielle lineare Dateien).

2. Lesen von Daten: Die READ-Anweisung

Um einen Datensatz aus einer sequenziellen Datei zu lesen, verwenden wir die Anweisung READ. Da wir nicht im Voraus wissen, wie viele Datensätze die Datei enthält, müssen wir die Dateiende-Bedingung (EOF - End Of File) immer mit der Klausel AT END verwalten:

       READ SALES-FILE
           AT END MOVE "Y" TO WS-EOF
       END-READ.

• READ SALES-FILE: Beachten Sie, dass sich die Anweisung auf den logischen Namen der Datei bezieht (definiert in SELECT und FD), nicht auf den Datensatz.
• AT END: Gibt die Anweisungen an, die ausgeführt werden sollen, wenn versucht wird, über den letzten verfügbaren Datensatz hinaus zu lesen. Üblicherweise wird eine Flag-Variable (wie WS-EOF) auf "Y" gesetzt.
• END-READ: Schließt die Leseanweisung explizit ab.

3. Schreiben von Daten: Die WRITE-Anweisung

Um Daten in eine Datei einzufügen, verwenden wir die Anweisung WRITE.

[!WARNING] In COBOL liest man eine Datei (READ SALES-FILE), schreibt aber einen Datensatz (WRITE SALES-RECORD). Das Schreiben von WRITE SALES-FILE ist ein häufiger Syntaxfehler, der die Kompilierung verhindert.

       MOVE 1001 TO EMP-ID.
       MOVE "MARIO ROSSI" TO EMP-NAME.
       WRITE SALES-RECORD.

Vor dem Ausführen von WRITE müssen die untergeordneten Felder der Gruppenstruktur des FD-Datensatzes (in diesem Fall SALES-RECORD) im Speicher entsprechend initialisiert worden sein.

4. Schließen von Dateien: Die CLOSE-Anweisung

Am Ende der Verarbeitung muss jede geöffnete Datei geschlossen werden, um Systemressourcen freizugeben und sicherzustellen, dass alle Daten tatsächlich auf die Festplatte geschrieben werden:

       CLOSE SALES-FILE.

Beachten Sie, dass die Anweisung CLOSE den logischen Namen der Datei als Argument akzeptiert (und nicht den Datensatz).

Probier es selbst aus