徹底解説！一歩先を行くCOBOL言語のファイル併合処理｜応用ガイド

COBOL(コボル)言語のファイルの結合処理の書き方とは

応用-SORT-MERGE-イメージ

COBOL(コボル)言語のファイルの併合処理とは？

COBOLに入門して基本が掴めてきたら、ファイルの併合処理についても理解を深めましょう。ファイルの併合処理とは、SORT文やMERGE文の処理で一時的にファイルが作成されて、一時ファイルでデータの並べ替えや結合処理などを行う処理のことを指します。

併合用ファイルは、プログラムの実行中に一時的に作成されるファイルのため、ユーザー自身がファイルを開いて参照したり、編集することはできません。

併合用ファイルも読み込み・書き込みを行う通常のファイルと同様に環境部（ENVIRONMENT DIVISION）のファイル節（FILE-CONTROL）にファイルを定義する必要があります。

つまり、ファイルの併合処理を行う場合は、以下のように最低でもレコードを結合するための2つの入力ファイルと結果を出力するファイル、併合用ファイルの最低でも4つのファイルを定義する必要があります。

*>***環境部***
 ENVIRONMENT             DIVISION.
 INPUT-OUTPUT            SECTION.
 FILE-CONTROL.
 
   SELECT [ファイル項目] ASSIGN TO ‘入力ファイル1’
   SELECT [ファイル項目] ASSIGN TO ‘入力ファイル2’
   SELECT [ファイル項目] TO ‘出力ファイル’
   SELECT [ファイル項目] TO ‘併合ファイル’.

併合処理の使い方

整列併合用ファイルを使用して、ファイルの整列を行う場合はSORT文を使用しますが、ファイルの併合を行う場合はMERGE文を使用します。

MERGE文はSORT文と似た形式で記述しますが、ファイルの併合を行うため、MERGE文のUSING句ではファイルを最低でも2つ指定する必要があります。

MERGE 併合用ファイル
  ASCENDING KEY ソートキー
  USING 入力ファイル1 入力ファイル2 …
  GIVING 出力ファイル.

以下にファイル併合処理を行うサンプルを紹介します。
併合処理を行うファイルは事前に用意しておきます。ここでは、行順編成のフラット形式で以下のようなレコードを記述します。

merge1.txt
——————-
11111AAAAAaaaaa
22222BBBBBbbbbb
33333CCCCCccccc
44444DDDDDddddd
——————-

merge2.txt
——————-
55555EEEEEeeeee
66666FFFFFfffff
77777GGGGGggggg
88888HHHHHhhhhh
——————-
応用-SORT-MERGE-サンプル
実行結果1:kekka.txt
応用-SORT-MERGE-実行結果1
サンプルではファイルを併合するために「merge1.txt」と「merge2.txt」を用意し、MERGE文で2つのファイルを併合し、「kekka.txt」に出力しています。

「kekka.txt」を確認すると、結合されたレコードが作成されていることがわかります。

併合処理の応用的な使い方

ここでは並列併合処理で2つのファイルを結合し、レコードを降順と昇順で並び替えたファイルを、それぞれ作成するサンプルを紹介します。

使用するファイルは並列併合の使い方で使用した「merge1.txt」「merge2.txt」を使用します。

 IDENTIFICATION          DIVISION.
 PROGRAM-ID.             MERGE_SAMPLE02.
 ENVIRONMENT             DIVISION.
 INPUT-OUTPUT            SECTION.
 FILE-CONTROL. 
   SELECT TEST-FILE1 ASSIGN TO 'merge1.txt'  *>入力ファイル1
     ORGANIZATION    IS LINE SEQUENTIAL
     STATUS          IS IN-FIlE-STATUS.
   SELECT TEST-FILE2 ASSIGN TO 'merge2.txt'  *>入力ファイル2
     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 MERGE-FILE ASSIGN TO 'merge.wak'. *>併合用ファイル
 
 DATA                    DIVISION.
 FILE                    SECTION.
*>入力ファイル1
 FD TEST-FILE1.
   01 TEST-RECORD-1.
     05 NO-CORD          PIC 9(5).
     05 DATA-1           PIC X(5).
     05 DATA-2           PIC X(5).
*>入力ファイル2
 FD TEST-FILE2.
   01 TEST-RECORD-2.
     05 NO-CORD          PIC 9(5).
     05 DATA-1           PIC X(5).
     05 DATA-2           PIC X(5).
*>降順ファイル
 FD KOJUN-FILE.
   01 KOJUN-RECORD       PIC X(15).
*>昇順ファイル
 FD SHOJUN-FILE.
   01 SHOJUN-RECORD      PIC X(15).
*>併合ファイル
 SD MERGE-FILE.
   01 MERGE-RECORD.
     05 SORT-KEY         PIC 9(5).
     05 SORT-DATA        PIC X(10).
 
 WORKING-STORAGE         SECTION.
   01 IN-FILE-STATUS     PIC XX.
   01 IN-KOJUN-STATUS    PIC XX.
   01 IN-SHOJUN-STATUS   PIC XX.
 
 PROCEDURE               DIVISION.
   OPEN INPUT TEST-FILE1.
   OPEN INPUT TEST-FILE2. 
 
*>ファイルを結合して昇順でソートする
   MERGE MERGE-FILE 
     ASCENDING KEY SORT-KEY
     USING TEST-FILE1 TEST-FILE2
     GIVING KOJUN-FILE. 
 
*>ファイルを結合して降順でソートする
   MERGE MERGE-FILE 
     DESCENDING KEY SORT-KEY 
     USING TEST-FILE1 TEST-FILE2
     GIVING SHOJUN-FILE.
 
   CLOSE TEST-FILE1.
   CLOSE TEST-FILE2.
 
   DISPLAY "プログラム終了"
 
   STOP RUN.

実行結果1:shojun.txt
応用-SORT-MERGE-実行結果1

実行結果2:kojun.txt
応用-SORT-MERGE-実行結果2

紹介したサンプルでは、データを昇順と降順でソートしてファイルを作成する必要があるため、ファイル節で降順用の「kojun.txt」と昇順用の「shojun.txt」のファイルをそれぞれ定義しています。

MERGE文はSORT文と同様データをソートすることができますので、MERGE文の処理で昇順ソート（ASCENDING KEY）と降順ソート（DESCENDING KEY）を指定できます。

練習問題
併合処理で2つ以上のファイルを併合した場合は、レコードはどのような形で結合されるのでしょうか？

COBOLの併合機能（MERGE文）では、SORT文同様にMERGE文の中でソートキーを指定する必要があります。とくに指定が無い場合は昇順ソート（ASCENDING KEY）を指定すれば良いでしょう。

例題:
ここでは5つのファイルを使用して併合処理を行うプログラムを作成してみましょう。使用するファイルは以下のように指定します。あくまでわかりやすい例ですので、併合するファイルの内容は自由に設定いただいても構いません。
merge01.txt
——————-
00002
——————-

merge02.txt
——————-
00003
——————-

merge03.txt
——————-
00004
——————-

merge04.txt
——————-
00005
——————-

merge05.txt
——————-
00001
——————-

回答:

 IDENTIFICATION          DIVISION.
 PROGRAM-ID.             MERGE_SAMPLE03.
 ENVIRONMENT             DIVISION.
 INPUT-OUTPUT            SECTION.
 FILE-CONTROL.
   SELECT TEST-FILE1 ASSIGN TO 'merge01.txt' *>入力ファイル1
     ORGANIZATION    IS LINE SEQUENTIAL
     STATUS          IS IN-FIlE-STATUS.
   SELECT TEST-FILE2 ASSIGN TO 'merge02.txt' *>入力ファイル2
     ORGANIZATION    IS LINE SEQUENTIAL
     STATUS          IS IN-FIlE-STATUS.
   SELECT TEST-FILE3 ASSIGN TO 'merge03.txt' *>入力ファイル3
     ORGANIZATION    IS LINE SEQUENTIAL
     STATUS          IS IN-FIlE-STATUS.
   SELECT TEST-FILE4 ASSIGN TO 'merge04.txt' *>入力ファイル4
     ORGANIZATION    IS LINE SEQUENTIAL
     STATUS          IS IN-FIlE-STATUS.
   SELECT TEST-FILE5 ASSIGN TO 'merge05.txt' *>入力ファイル5
     ORGANIZATION    IS LINE SEQUENTIAL
     STATUS          IS IN-FIlE-STATUS.
   SELECT KEKKA-FILE ASSIGN TO 'kekka.txt'     *>出力ファイル
     ORGANIZATION    IS LINE SEQUENTIAL.
   SELECT MERGE-FILE ASSIGN TO 'merge.wak'. *>併合用ファイル
 
 DATA                    DIVISION.
 FILE                    SECTION.
 FD TEST-FILE1.
   01 TEST-RECORD. 
     05 NO-CORD          PIC 9(5).
 FD TEST-FILE2.
   01 TEST-RECORD. 
     05 NO-CORD          PIC 9(5).
 FD TEST-FILE3.
   01 TEST-RECORD. 
     05 NO-CORD          PIC 9(5).
 FD TEST-FILE4.
   01 TEST-RECORD. 
     05 NO-CORD          PIC 9(5).
 FD TEST-FILE5.
   01 TEST-RECORD. 
     05 NO-CORD          PIC 9(5).
 FD KEKKA-FILE.
   01 KEKKA-RECORD       PIC 9(5).
 
 SD MERGE-FILE.
   01 MERGE-RECORD.
     05 SORT-KEY         PIC X(5).
 WORKING-STORAGE     SECTION.
   01 IN-FILE-STATUS     PIC XX.
 
 PROCEDURE               DIVISION.
   OPEN INPUT TEST-FILE1.
   OPEN INPUT TEST-FILE2.
   OPEN INPUT TEST-FILE3.
   OPEN INPUT TEST-FILE4.
   OPEN INPUT TEST-FILE5.
 
   MERGE MERGE-FILE
     ASCENDING KEY SORT-KEY
     USING TEST-FILE1 TEST-FILE2 TEST-FILE3 
           TEST-FILE4 TEST-FILE5
     GIVING KEKKA-FILE.
 
   CLOSE TEST-FILE1.
   CLOSE TEST-FILE2.
   CLOSE TEST-FILE3.
   CLOSE TEST-FILE4.
   CLOSE TEST-FILE5.
 
   DISPLAY "プログラム終了"
 
   STOP RUN.