COBOL言語の「BLOCK CONTAINS句」とブロック化を解説！｜用語辞典

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

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

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

磁気テープやフロッピーディスクなどの記憶媒体は、複数のレコードが集まってブロック（BLOCK）を構成しています。ブロック化している理由については、ファイルの使用効率や処理速度を向上させるためと言われています。

BLOCK CONTAINS句では、「1つのブロックにいくつレコードが存在しているか」を設定します。

そのため、レコードの個数がシステムによって予め規定されているときに、レコードのサイズを明確にするために記述すると言ってもよいでしょう。

書き方1:

BLOCK CONTAINS 整数 RECORDS.または、CHARACTERS.

書き方2:

BLOCK 整数.

書き方3:

BLOCK CONTAINS [整数1 TO] 整数2 RECORDSまたは、CHARACTERS.

BLOCK CONTAINS句はFD句（ファイル記述項）に記述します。RECORDSはレコード数を表し、CHARACTERSを指定するときは、物理レコードを保管するときのバイト数を記述します。

また、書き方2のように省略形で記述することもできます。

整数にはレコードのサイズを指定します。書き方3のように整数1と整数2を両方指定すると、ブロックの最小の大きさと最大の大きさを指定することができます。

1つのブロックにレコードが5つ存在する場合は、以下のようにFD句にBLOCK CONTAINS句を記述します。

辞典・辞書-BLOCK-記述例

BLOCK CONTAINS句は、1ブロックに1レコードの場合もRECORDSと記述する必要があります。

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

BLOCK CONTAINS 整数 RECORDS CHARACTERSなどの間の空白や改行は、自由に指定できます。
BLOCK CONTAINS句は、予めレコードのサイズが決められているファイルに対して、注記項として取扱います。
整数には、レコードのサイズを整数値で指定する必要があります。
整数1と整数2の両方を記述した場合は、それぞれのブロックの最小の大きさと最大の大きさを表します。
CHARACTERSを指定するときは、ブロックの大きさとして、含まれる英数字や日本語文字の種類に関係なく、ブロックの格納に必要なバイト数を指定します。

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

BLOCK CONTAINS句で対応するファイルは、すべてBLOCK CONTAINS句で指定した整数の範囲内で一致している必要があります。

BLOCK CONTAINS句は、あくまでレコードや文字バイト数を明示的に指定するもので、実際に使用するファイルのレコードのサイズが異なっても、エラーなどは発生しません。

WRITE文などのレコードの追記によってレコードのサイズが変更になるような、可変長レコードに対しては整数1と整数2を記述して、最小値と最大値を指定する必要があります。

以下では、使用するファイルのレコード数の最小値が5、最大値が10の場合に整数1、整数2にレコード数をそれぞれ値を指定しています。

辞典・辞書-BLOCK-注意点1

また、ブロックのレコード数を特に指定しないことを表したいなら、「BLOCK CONTAINS 0 RECORDS」のように整数に0を指定します。

辞典・辞書-BLOCK-注意点2

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

BLOCK CONTAINS句は、磁気テープやフロッピーディスクを使用していたころに、256バイトなどの単位のブロックにいくつレコードが入っているか記述するもので、現在では使用する頻度は少ないと言えるでしょう。

しかし、BLOCK CONTAINS句は、ファイルのレコード数を明確に表すことができます。そのため、レコード数を明示的に示せば、予め必要なレコード数分を保存するためのデータ項目を、用意しておくことができます。

以下にBLOCK CONTAINS句を使用した、簡単なサンプルを紹介します。

読み込むファイルは予め用意しておきます。ここでは、わかりやすい行順編成のフラット形式で記述しています。

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

AAAAA

BBBBB

CCCCC

DDDDD

EEEEE

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

IDENTIFICATION          DIVISION.
PROGRAM-ID.            BLOCKCONTAINS_SAMPLE.
ENVIRONMENT             DIVISION.
  INPUT-OUTPUT          SECTION.
 
 
  FILE-CONTROL.
    SELECT TEST-FILE ASSIGN TO 'test.txt'
      ORGANIZATION IS LINE SEQUENTIAL
      SHARING WITH READ ONLY
      FILE STATUS  IS IN-FILE-STATUS.
 
 
DATA               DIVISION.
  FILE            SECTION.
    FD TEST-FILE
      BLOCK CONTAINS 5 RECORDS.
      01 IN-FILE-REC PIC X(5).
 
 
  WORKING-STORAGE         SECTION.
    01 IN-FILE-STATUS   PIC XX.
    01 WORK-AREA.
      03 WORK-DATA-ITEM OCCURS 5 PIC X(5).
    01 WORK-COUNT PIC 9(1) VALUE 1.
 
PROCEDURE           DIVISION.
 
  *>ファイルオープン
  OPEN INPUT TEST-FILE.
 
  PERFORM UNTIL IN-FILE-STATUS NOT = "00"
 
    READ TEST-FILE
 
    *>配列にレコードを格納
    MOVE IN-FILE-REC TO WORK-DATA-ITEM(WORK-COUNT)
 
    *>カウント項目を加算
    ADD 1 TO WORK-COUNT
 
  END-PERFORM.
 
  DISPLAY WORK-AREA.
 
 
  *>ファイルをクローズ
  CLOSE TEST-FILE.
 
  STOP RUN.