ファイル定義とファイル制御

COBOL では、外部ファイル (ディスク上のテキスト アーカイブやバイナリ レコードなど) の管理は、バッチ企業アプリケーションにとって最も重要な機能の 1 つです。 COBOL は現代のデータベースよりずっと前に設計されたため、ディスク ファイルはプライマリ ストレージとして機能します。

オペレーティング システムに保存されている物理ファイルとプログラムの内部変数の接続は、次の 2 つのフェーズで行われます。

1. ENVIRONMENT DIVISION の論理と物理の関連付け。
2. DATA DIVISION 内のデータ レコードの定義。

1.関連付け: FILE-CONTROL と SELECT ASSIGN

プログラム構造に特化した章では、ENVIRONMENT DIVISION について説明しました。その中の INPUT-OUTPUT SECTION には、プログラムで使用される外部ファイルを宣言する FILE-CONTROL 段落が含まれています。

プログラム内の論理ファイル (SALES-FILE など) をディスク上の実際の物理ファイル (sales.dat など) に関連付けるには、SELECT ... ASSIGN TO ... ステートメントを使用します。

       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT SALES-FILE ASSIGN TO "sales.dat"
               ORGANIZATION IS LINE SEQUENTIAL.

• SELECT SALES-FILE: プログラムがファイルを参照するために使用する論理名を定義します。
• ASSIGN TO "sales.dat": ディスク上の実際の物理ファイル名 (またはパス) を指定します。
• ORGANIZATION IS LINE SEQUENTIAL (オプション): ファイルが、各行がレコードを表すプレーン テキスト ファイルであることを示します (改行文字で区切られています)。

2. 宣言: ファイルセクションとFD

ENVIRONMENT DIVISION でファイルを関連付けた後、DATA DIVISION でそのレコードの構造を定義する必要があります。これを行うには、FILE SECTION (WORKING-STORAGE SECTION の前にある) という専用のセクションを使用します。

選択したすべてのファイルには、レコード構造を宣言する FD (ファイルの説明) エントリが必要です。

       DATA DIVISION.
       FILE SECTION.
       FD SALES-FILE.
       01 SALES-RECORD.
           05 EMP-ID       PIC 9(5).
           05 EMP-NAME     PIC X(20).
           05 EMP-SALARY   PIC 9(6)V99.

• FD SALES-FILE.: 論理名 SALES-FILE のファイル説明を識別します。ピリオドで終わることに注意してください。
• 01 SALES-RECORD.: ファイルに関連付けられたグループ構造 (レコード) を指定します。各読み取り/書き込み操作では、このメモリ構造を使用してデータが交換されます。

試してみてください