COBOL言語の「SELECT句」を理解してファイル操作をしよう｜用語辞典

COBOL(コボル)言語の予約語SELECT句を使った命令文の書き方とは

辞典・辞書-SELECT-イメージ

COBOL(コボル)言語のSELECT句とは？

COBOL(コボル)におけるSELECT句は、使用するファイル名を指定したり、ファイルの属性やファイルのステータスを定義するときに使用します。

プログラム内で読み書きを行うファイルの関連付けを定義するSELECT句は、ファイル管理段落（FILE-CONTROL）内で記述します。

書き方:

SELECT ファイル名項目 ASSIGN TO データ名 [ORGANIZATION IS ファイル編成].

ファイル名項目はプログラムで使用するファイル名と関連付けられたファイル項目を指定します。

データ名には実際に使用するファイル名を指定します。データ名は「/Users/COBOL/test.txt」のようにパスから指定することも可能です。

ファイル編成には使用するファイルの編成などを指定します。なお、「ORGANIZATION IS」を省略した場合は、デフォルトで順編成が指定されます。

「ORGANIZATION IS」で指定できるファイルは主に「順編成ファイル」「行順編成ファイル」「相対ファイル」「牽引ファイル」などがあります。

ファイルの編成	指定する内容	備考
順編成ファイル	SEQUENTIAL	指定したレコード長で管理するファイル
行順編成ファイル	LINE SEQUENTIAL	レコードを改行区切りで管理するファイル
相対ファイル	RELATIVE	レコードをファイル内の順位によって識別するファイル
牽引ファイル	INDEXED	各レコードを主キーによって管理するファイル

例えば行順編成のファイルを指定する場合は、以下のように記述します。

SELECT ファイル名項目 ASSIGN TO データ名 ORGANIZATION IS LINE SEQUENTIAL.

使用例:

実際にSELECT句を使用してファイル項目を指定し、ファイルを読み込む簡単なプログラムを紹介します。

読み込むファイルは事前に用意しておきます。ここでは、行順編成のフラット形式で以下のようにレコードを記述します。

test.txt-------------------

AAAAA

BBBBB

CCCCC

DDDDD

----------------------------

辞典・辞書-SELECT-使用例

実行結果:

辞典・辞書-SELECT-実行結果

サンプルでは、行順編成のファイルを読み込むために、「ORGANIZATION IS LINE SEQUENTIAL」を指定しています。

また、SELECT句以下にはFILE STATUS句（ファイル状態コード）を指定しています。これはファイル操作の度にファイルの状態コードが返されます。

そのため、行順編成のような改行区切りでレコードを読み込むファイルでは、ファイルのレコードが正常に読み込む度に状態コードが"00"を返しますので、PERFORM文などのループ処理の条件式として使用することができます。

SELECT句のCOBOL(コボル)言語における基本事項やルールについて

SELECT、ファイル名項目、ASSIGNなどの間の空白や改行は自由に指定できます。
複数のファイルを扱う場合には、個々のファイルにてそれぞれSELECT句を定義します。
「ORGANIZATION IS ファイル編成」を省略した場合は順編成のファイルとみなされます。
ファイル管理段落（FILE-CONTROL）を省略した場合はSELECT句も省略します。

COBOL(コボル)言語のSELECT句を扱う上での注意点

ファイルを読み書きする場合には、必ずSELECT句を指定しなければいけません。
SELECT句はMOVE文のように、複数のデータをまとめて1つのSELECT句で定義することはできません。

例えば以下のように記述するとコンパイルエラーとなります。

SELECT ファイル名項目 ASSIGN TO データ名1 データ名2 [ORGANIZATION IS ファイル編成].

<コンパイルエラー>

SELECT句を使ったCOBOL(コボル)プログラムの活用法

SELECT句の活用法として、書き込むファイルと読み込むファイルを個々にSELECT句で指定して、それぞれ書き込み、読み込みを行う簡単なサンプルを以下に紹介します。

読み込みで使用するファイルは、使用例で紹介したものと同じ内容となります。

IDENTIFICATION             DIVISION.
PROGRAM-ID.               SELECT_SAMPLE02.
ENVIRONMENT                DIVISION.
  INPUT-OUTPUT             SECTION.
 
 
*>ファイル管理段落
  FILE-CONTROL.
*>書き込むファイルを指定する
     SELECT WRITE-FILE ASSIGN TO 'write.txt'.
 
*>読み込むファイルを指定する
     SELECT READ-FILE ASSIGN TO 'read.txt'
       ORGANIZATION IS LINE SEQUENTIAL
       FILE STATUS  IS IN-FILE-STATUS.
 
DATA                DIVISION.
  FILE             SECTION.
     FD WRITE-FILE.
       01 OUT-FILE-REC PIC 99.  *>書き込みレコード
     FD READ-FILE.
       01 IN-FILE-REC PIC X(5). *>読み込みレコード
 
 
  WORKING-STORAGE          SECTION.
     01 IN-FILE-STATUS   PIC XX.
     01 TEST_NUM  PIC 9(2).
 
PROCEDURE             DIVISION.
 
*>------------------------------
*>  ファイルの書き込み
*>------------------------------
 
  OPEN OUTPUT WRITE-FILE.
 
  *>書き込み用データの作成
  MOVE 10 TO TEST_NUM.
  MOVE TEST_NUM TO OUT-FILE-REC.
 
  *>ファイルに書きこむ
  WRITE OUT-FILE-REC.
 
  DISPLAY "WRITE: "OUT-FILE-REC
 
  CLOSE WRITE-FILE
 
*>------------------------------
*>  ファイルの読み込み
*>------------------------------
 
  OPEN INPUT READ-FILE.
 
  *>1レコードずつ読み込む
  PERFORM UNTIL IN-FILE-STATUS NOT = "00"
 
     READ READ-FILE
 
       AT END
         DISPLAY "READ END";
       NOT AT END
         DISPLAY IN-FILE-REC
     END-READ
 
  END-PERFORM.
 
 
  CLOSE READ-FILE.
 
  STOP RUN.