COBOL（コボル）言語のファイル操作と書き方とは

COBOL(コボル)言語で扱うファイルには４つのファイルが存在します。順ファイル（レコードを順番に書き込んだファイル）、テキストファイル（改行で区切られたファイル）、相対ファイル（相対キーを利用したファイル）、索引ファイル（索引キーを利用したファイル）がその４つです。この中でよく使われているファイルは順ファイル、テキストファイルになります。テキストファイルは順ファイルの拡張仕様になります。

では実際にファイルを使用したプログラムを作成してみましょう。

使用例：

使用例は”Hello World !”という文字列をOUT01ファイルに出力する処理です。

実行結果：画面表示なし

実行結果（OUT01)

1.ファイルを使用することを宣言するためには、SELECT句を使用します。

2.どのファイルを使用するかを宣言するためには、ASSIGN句を使用します。

3.ファイルをどのような形式で取り扱うかはORGANIZATION句で指定します。

ORGANIZATION句を指定しない場合は順ファイルとみなされます。

4.データ部(DATA DIVISION)のファイル節（FILE SECTION）でレコード構造を定義します。

ファイルは環境部（ENVIRONMENT DIVISION）、データ部（DATA DIVISION）の定義だけでは機能せず、手続き部（PROCEDURE DIVISION）で決められた操作文を記述することで利用できるようになります。

以下はどのファイル編成を操作する際に使用する文です。特にOPEN文、CLOSE文は必ず記述が必要になります。

「OPEN文：ファイルを開く、CLOSE文：ファイルを閉じる、READ文：ファイルを読み込む、WRITE文：ファイルを書き込む、REWRITE文：ファイルを更新する」

また、OPEN文にはモードがあり、用途に合わせて記述します。

INPUT：入力モード、ファイル読み込み用。OUTPUT：出力モード、ファイル書き込み用、I-O：入出力モード、ファイル読み書き用。それぞれ分けて使用することが一般的です。

COBOL言語のファイルは先ほどご紹介した通り、基本的なプログラミングであり、多くのCOBOLプログラムで使用されています。特に順ファイル、テキストファイルの形式は構造がシンプルなため使用される機会が多いです。活用法では、実際に紹介したいろいろなファイルの操作文を記述することで、その動きを確認してみましょう。

サンプルプログラム：

IDENTIFICATION        DIVISION.
PROGRAM-ID.            FILE_SAMPLE02.
ENVIRONMENT             DIVISION.
INPUT-OUTPUT           SECTION.
FILE-CONTROL.
 SELECT IN01-FILE
  ASSIGN TO "in01.txt"
  ORGANIZATION IS LINE SEQUENTIAL
  FILE STATUS  IS IN-FILE-STATUS.
 SELECT OUT01-FILE
  ASSIGN TO "out01.txt"
  ORGANIZATION IS LINE SEQUENTIAL.
DATA                 DIVISION.
FILE                SECTION.
FD  IN01-FILE.
01  IN01.
 03  IN01-SUJI          PIC X(13).
FD  OUT01-FILE.
01  OUT01.
 03  OUT01-SUJI         PIC X(13).
WORKING-STORAGE              SECTION.
01  IN-FILE-STATUS   PIC XX.
PROCEDURE               DIVISION.
*>  1.初期処理（ファイルオープン）
 OPEN  INPUT  IN01-FILE.
 OPEN  OUTPUT  OUT01-FILE.
*>  2.主処理（ファイル読み込み処理）
 PERFORM UNTIL IN-FILE-STATUS NOT = "00"
  READ IN01-FILE
   AT END
    DISPLAY "READ END"
   NOT AT END
    MOVE IN01-SUJI TO OUT01-SUJI
    WRITE  OUT01
  END-READ
 END-PERFORM.
*>  3.終了処理（ファイルクローズ）
 CLOSE  IN01-FILE.
 CLOSE  OUT01-FILE.
STOP RUN.

使用例はIN01ファイルの情報をOUT01ファイルに出力する処理です。

入力ファイル（IN01）

実行結果：

実行結果：

今回はCOBOL言語のファイルについてご紹介しました。どのプログラム言語を学ぶ際にも理解しておく必要がある内容になりますので、実際にプログラミングして覚えていきましょう。また、他のプログラミング言語を学ばれている方は、その言語と比較しながら違いについても理解してみましょう。

• 前の記事へ

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

【未経験者歓迎】COBOLプログラマー・システムエンジニアの募集

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

COBOL入門のカテゴリー

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