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

SAME句で指定した複数のファイルは、ファイルの読み込みやファイル操作中などの処理時にメモリを共有することができます。

SAME句は、昔の基幹業務システムなどに用いられた汎用機のスペックが低かった時代に、ファイル領域を複数ファイルで共用して、限られたリソースを節約するために使われた機能です。

しかし、現在ではSAME句を使用する機会はほとんどありません。

書き方1:

SAME RECORD AREA FOR ファイル名1 [ファイル名2] …

書き方2:

SAME [SORTまたは、SORT-MERGE] AREA FOR ファイル名1 [ファイル名2] …

書き方3:

SAME AREA FOR ファイル名1 [ファイル名2] …

SAME句はI-O-CONTROL（入出力管理段落）に記述し、2つ以上のファイルを指定します。

RECORDを指定すると、現在のレコードを処理するための記憶領域が、SAME句で指定した他のファイルと共用されます。

SORTまたはSORT-MERGEを指定すると、整列併合ファイルでない2つ以上のファイルを処理中に、同じ記憶領域を共用できます。

また、SAME AREA句において、SAME SORTとSAME SORT-MERGEは同義語となります。

使用例:

行順編成の3つのファイルを、SAME句を使用して共用したい場合は、以下のように記述します。

SAME句は必ずI-O-CONTROL（入出力管理段落）に記述する必要があります。

1. SAME RECORD AREA FOR ファイル名などの間の空白や改行は、自由に指定できます。
2. 各ファイル名はSAME句と同じブログラムのFILE-CONTROL（ファイル管理段落）に記述する必要があります。
3. SAME句はプログラム中に2つ以上指定することができます。
4. SAME RECORD AREA句、又はSAME AREA句で指定するファイルは、同じ編成、呼出し法でなくても構いません。
5. SAME RECORD AREA句で指定されたファイルは、同時にいくつでもファイルを開くことができます。しかし、SAME AREA句で指定されたファイルは、同時に2つ以上開いておくことはできません。
6. WRITE文またはREWRITE文の実行が成功すると、そのレコードはレコード領域中で使用不可となりますが、対象のファイルがSAME RECORD AREA句で指定されていた場合は、レコードが使用不能なることはありません。

1. SAME句で指定したファイル名は外部結合子を参照してはいけません。
2. SAME AREA句では、並列併合用ファイルを指定することはできません。
3. ファイル名は予約語または定数、利用者名を指定することができません。
4. 同じファイル名を2つ以上SAME RECORD AREA句に記述してはいけません。
5. 同じファイル名を2つ以上SAME AREA句に記述してはいけません。

※同じファイル名を指定した場合、以下のように複数参照のコンパイルエラーが発生します。

コンパイルエラー

SAME句を使用すれば、異なるファイル間で記憶領域を共用し、リソースを節約することができます。

また、SAME句はI-O-CONTROL（入出力管理段落）中に複数記述することができます。

以下に通常のファイルと、ソート用ファイルをそれぞれSAME句で指定したサンプルを紹介します。

（プログラムの詳細な処理内容については、ここでは省略します）

IDENTIFICATION          DIVISION.
PROGRAM-ID.            SAME_SAMPLE.
ENVIRONMENT             DIVISION.
  INPUT-OUTPUT          SECTION.
 
*>ファイル管理段落
  FILE-CONTROL.
     SELECT SORT-FILE-1 ASSIGN TO 'sort1.txt'
       ORGANIZATION    IS LINE SEQUENTIAL
       STATUS     IS IN-FIlE-STATUS.
     SELECT SORT-FILE-2 ASSIGN TO 'sort2.txt'
       ORGANIZATION    IS LINE SEQUENTIAL
       STATUS     IS IN-FIlE-STATUS.
     SELECT KOJUN-FILE ASSIGN TO 'kojun.txt'
       ORGANIZATION    IS LINE SEQUENTIAL
       STATUS     IS IN-KOJUN-STATUS.
     SELECT SHOJUN-FILE ASSIGN TO 'shojun.txt'
       ORGANIZATION    IS LINE SEQUENTIAL
       STATUS     IS IN-SHOJUN-STATUS.
     SELECT SORT-FILE ASSIGN TO 'sort.wak'.
 
     SELECT WORK-FILE-1 ASSIGN TO 'work1.txt'
       ORGANIZATION    IS LINE SEQUENTIAL.
 
     SELECT WORK-FILE-2 ASSIGN TO 'work2.txt'
       ORGANIZATION    IS LINE SEQUENTIAL.
 
     SELECT WORK-FILE-3 ASSIGN TO 'work3.txt'
       ORGANIZATION    IS LINE SEQUENTIAL.
 
*>入出力管理段落
  I-O-CONTROL.
     SAME RECORD AREA FOR WORK-FILE-1 WORK-FILE-2 WORK-FILE-3
     SAME SORT AREA FOR SORT-FILE-1 SORT-FILE-2.
 
 
省略...
 
 
  STOP RUN.

サンプルで紹介したように、I-O-CONTROL（入出力管理段落）でSAME句を記述しておけば、指定されたファイルは、ファイル処理において記憶領域が共用されることになります。

しかし、現在では汎用機のメモリも大容量化しているため、SAME句を使用する頻度は少ないと言えます。

ただし、SAME句の使用はシステムの規模が大きく、頻繁に複数のファイル処理が同時並行で行われるプログラムに対して指定すれば、多少のリソースの節約になるかもしれません。

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

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

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

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

COBOL入門のカテゴリー

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