ファイル I/O 操作

ファイルが関連付けられ、DATA DIVISION で宣言されると、PROCEDURE DIVISION 内でそのファイルを操作できるようになります。 COBOL では、ファイルのライフサイクルの管理は、ファイルを開き、操作 (読み取りまたは書き込み) を実行し、閉じるという標準的な強制的なフローに従います。

1. ファイルを開く: OPEN ステートメント

ファイルの読み取りまたは書き込みを行う前に、適切なアクセス モードを指定してファイルを開く必要があります。

       OPEN INPUT SALES-FILE.

主なモードは次のとおりです。

• INPUT: ファイルは読み取り専用モードで開かれます。ファイルはディスク上に存在する必要があります。存在しない場合、プログラムは失敗します。
• OUTPUT: ファイルは書き込みモードで開かれています。ファイルがすでに存在する場合、以前の内容は削除されます (上書き)。存在しない場合は作成されます。
• EXTEND: データを追加するためにファイルが開かれています。新しいレコードは、既存のファイルの末尾から書き込まれます。
• I-O: ファイルは読み取りと書き込みの両方のために開かれます (主に、線形順次ファイルではなく、相対またはインデックス付きアクセス ファイルに使用されます)。

2. データの読み取り: READ ステートメント

シーケンシャル ファイルからレコードを読み取るには、READ ステートメントを使用します。ファイルに含まれるレコードの数が事前にわからないため、常に AT END 句を使用してファイルの終わり (EOF) 条件を処理する必要があります。

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

• READ SALES-FILE: このステートメントはレコード名ではなく、論理ファイル名 (SELECT 句と FD 句で定義されている) を参照していることに注意してください。
• AT END: 利用可能な最後のレコードを超えて読み取ろうとするときに実行する命令を指定します。通常、フラグ変数 (WS-EOF など) を "Y" に設定します。
• END-READ: 読み取りステートメントを明示的に終了します。

3. データの書き込み: WRITE ステートメント

ファイルにデータを挿入するには、WRITE ステートメントを使用します。

[!警告] COBOL では、ファイル (READ SALES-FILE) を読み取りますが、レコード (WRITE SALES-RECORD) を書き込みます。 WRITE SALES-FILE の記述は、コンパイルを妨げる一般的な構文エラーです。

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

WRITE ステートメントを実行する前に、FD レコード構造の下位フィールド (この場合は SALES-RECORD) をメモリに設定する必要があります。

4. ファイルを閉じる: CLOSE ステートメント

処理が完了したら、開いているすべてのファイルを閉じてシステム リソースを解放し、すべてのデータがディスクに書き込まれるようにする必要があります。

       CLOSE SALES-FILE.

CLOSE ステートメントは、レコード名ではなく論理ファイル名を引数として取ることに注意してください。

試してみてください