COBOL(コボル)言語の順ファイルとファイル制御の書き方とは

順ファイルはCOBOL(コボル)における最も基本的なファイル編成で、ファイル作成時は格納するレコードを順番に書き込み、読み込むときは格納されているレコードを順番にアクセスします。そのため、新しいレコードは常に末尾に追加されます。

順ファイルの記述例：

ここでは、実際に順ファイルのレコードを読み込んでデータ項目に保存し、ディスプレイに出力する方法を紹介します。
順ファイルは以下のような形式であらかじめ用意しておきます。
sample.txt————
Apple
Orange
Melon
Banana
Strawberry
——————————

サンプル：順ファイルを読み込んで出力する

実行結果：

このサンプルプログラムでは、ファイル管理段落で順ファイルを定義し、ORGANIZATION句ではLINE SEQUENTIALを指定しています。これはファイルの各レコードが1行のデータである可変長のレコードで構成され、復帰文字（CR）または改行文字（LF）で終了することを意味しています。

手続き部ではOPEN文のINPUTで入力モードを指定し、ファイルを開いています。

PERFROM文ではファイルのステータスが正常（00）である限り、ファイルを1件ずつ読み込んでファイル記述項で指定した項目にファイルのレコードを格納します。

読み込んだレコードはDISPLAY文で1行ずつレコードを出力し、ファイルを全て読み込んだら、CLOSE文でファイル制御を終了します。

1. 順ファイルは単純なレコードを格納したり、読み込むのに向いていますが、指定したキーに対してレコードを取得したり、頻繁に検索や更新を行う場合には向いていません。そのような場合は相対ファイルを使用します。

2. COBOLのREAD文では、ファイルの内容を一度に読み込むのではなく、1件ずつ読み込みます。そのため、FD（ファイル記述項）で指定するデータ項目には1件のレコードサイズを指定します。

順ファイルを作成してWRITE文でレコードを書き込んで保存し、書き込んだ順ファイルをREAD文で読み込んでレコードを出力するプログラムを作成してみましょう。

ファイルの書き込みはACCEPT文でコンソールからデータを入力し、"99"が入力されたら書き込みを終了する処理とします。

その後、書き込んだファイルを読み込んでレコードを1件ずつDISPLAY文で出力します。

回答：書き込んだ順ファイルを1件ずつ出力する

IDENTIFICATION DIVISION. 
PROGRAM-ID. SEQUENTIALFILE_SAMPLE02. 
ENVIRONMENT DIVISION. 
  INPUT-OUTPUT SECTION. 
  FILE-CONTROL. 
*>------------------------------ 
*> ファイルを指定する 
*>------------------------------ 
  SELECT SAMPLE-FILE ASSIGN TO 'sample.txt' 
    ORGANIZATION IS LINE SEQUENTIAL
    FILE STATUS IS IN-FILE-STATUS. 
DATA DIVISION. 
  FILE SECTION. 
    FD SAMPLE-FILE. 
      01 OUT-FILE-REC PIC X(50). 
      01 IN-FILE-REC PIC X(50).
 
  WORKING-STORAGE SECTION. 
      01 IN-FILE-STATUS PIC XX.
      01 ITEM PIC X(50). 
PROCEDURE DIVISION.
 
*>------------------------------ 
*> ファイルの書き込み 
*>------------------------------ 
  OPEN OUTPUT SAMPLE-FILE. 
  DISPLAY "レコードの書き込み"; 
  PERFORM UNTIL ITEM = "99" 
    DISPLAY "レコードを入力してください(終了：99)。
    >> " WITH NO ADVANCING 
    ACCEPT ITEM 
    IF ITEM NOT= "99" THEN 
      MOVE ITEM TO OUT-FILE-REC 
      WRITE OUT-FILE-REC 
      DISPLAY "WRITE: "OUT-FILE-REC 
    END-IF 
 END-PERFORM.
 CLOSE SAMPLE-FILE 
*>------------------------------ 
*> ファイルの読み込み 
*>------------------------------ 
 OPEN INPUT SAMPLE-FILE. 
 DISPLAY "レコードの読み込み"; 
 *>1レコードずつ読み込む 
 PERFORM UNTIL IN-FILE-STATUS NOT = "00" 
   READ SAMPLE-FILE 
     AT END 
        DISPLAY "READ END"; 
     NOT AT END 
        DISPLAY "READ: "IN-FILE-REC 
   END-READ
 
END-PERFORM. 
CLOSE SAMPLE-FILE. 
STOP RUN.

■実行結果：

• 前の記事へ
• 次の記事へ

この記事を読んだ人は、こちらの記事も読んでいます

あなたのCOBOL技術を活かしませんか？

株式会社COBOLの求人・転職・募集情報を見る

COBOL入門のカテゴリー

｜　 基礎 　｜　 応用 　｜　 勉強 　｜　 試験　｜　 辞書 　｜