pagetop

COBOLプログラムのパターンを学ぼう!「ファイル分割」|応用ガイド

COBOL(コボル)言語でよく使われるファイル分割とは?

応用-ファイル分割-イメージ

COBOL(コボル)言語の「ファイル分割」とは?

COBOL(コボル)プログラムの処理パターンの1つであるファイル分割は、1つのファイルを入力として、データを編集・分割した後、2つ以上のファイルに出力する処理を意味します。

どういう単位にファイルを分割するかについては、業務要件等により変わってきますが、基本的には入力データに対して、条件判断を行い、その判断に従って、ファイルを分けてデータを出力する事になります。

COBOL(コボル)言語の「ファイル分割」の処理構成

実際のファイル分割処理の基本的な処理構成について見ていきましょう。この処理構成を理解する事がファイル分割の処理の理解につながります。

[基本的な処理構成]

1.初期処理、2.主処理、3.終了処理

各処理で実施する処理内容は以下の通りです。

1.初期処理  ファイルオープン処理を行います。

2.主処理   ファイル読み込み処理、ファイル分割処理を行います。

ファイル分割処理にファイル出力条件とファイル出力処理を記述します。

主処理は全てのファイルを読み込むまで繰り返し行います。

3.終了処理  ファイルクローズ処理を行います。

基本的な処理構成を見ていただければおわかりになるかと思いますが、1.初期処理、3.終了処理はファイル操作の共通の処理になり、2.主処理のファイル分割処理を業務要件に合わせて記述する事で、様々な処理要件に対応する事ができます。ではファイル分割の基本的な処理構成について記述したサンプルプログラム(使用例1)を用意しましたので、その書き方について見ていきましょう。

使用例1:

応用-ファイル分割-使用例1

応用-ファイル分割-使用例

使用例1は、ファイルを読み込み、そのファイルのデータ(IN01-SUJI)が20未満の場合は、OUT01ファイルに出力、それ以外の場合はOUT02ファイルに出力するというプログラムになります。ファイル出力条件である、「データ(IN01-SUJI)が20未満」に従って、入力ファイルのデータが分割される事がおわかりいただけるかと思います。

入力ファイル(in01.txt):

応用-ファイル分割-入力ファイル

実行結果:

応用-ファイル分割-実行結果

出力ファイル(out01.txt):

応用-ファイル分割-出力ファイル

出力ファイル(out02.txt):

応用-ファイル分割-出力ファイル

COBOL(コボル)言語の「ファイル分割」の応用的な使い方

ファイル分割の基本的な処理構成と書き方について理解いただけたでしょうか。今度は、ファイル分割処理の応用について考えていきましょう。ファイル分割処理は先ほどご紹介した通り、入出力が同じファイルレイアウトである必要はありませんし、入力ファイルと出力ファイルの件数が同じである必要もありません。

ファイル出力条件に従ってデータを加工し、ファイル出力すれば問題ありません。では、具体的なサンプルプログラム(使用例2)を用意しましたので、しっかり内容を理解して実際のプログラム作成に活用いただければと思います。

使用例2:

  1. IDENTIFICATION DIVISION.
  2. PROGRAM-ID. DIVIDE_SAMPLE02.
  3. ENVIRONMENT DIVISION.
  4. INPUT-OUTPUT SECTION.
  5. FILE-CONTROL.
  6. SELECT IN01-FILE
  7. ASSIGN TO "in01.txt"
  8. ORGANIZATION IS LINE SEQUENTIAL
  9. FILE STATUS IS IN-FILE-STATUS.
  10. SELECT OUT01-FILE
  11. ASSIGN TO "out01.txt"
  12. ORGANIZATION IS LINE SEQUENTIAL.
  13. SELECT OUT02-FILE
  14. ASSIGN TO "out02.txt"
  15. ORGANIZATION IS LINE SEQUENTIAL.
  16. DATA DIVISION.
  17. FILE SECTION.
  18. FD IN01-FILE.
  19. 01 IN01.
  20. 03 IN01-JCODE PIC X(07).
  21. 03 IN01-JNAME PIC X(10).
  22. 03 IN01-KINZOKU PIC 99.
  23. 03 IN01-NDATE PIC X(08).
  24. FD OUT01-FILE.
  25. 01 OUT01.
  26. 03 OUT01-JCODE PIC X(07).
  27. 03 OUT01-JNAME PIC X(10).
  28. 03 OUT01-KINZOKU PIC 99.
  29. 03 OUT01-NDATE PIC X(08).
  30. FD OUT02-FILE.
  31. 01 OUT02.
  32. 03 OUT02-JCODE PIC X(07).
  33. WORKING-STORAGE SECTION.
  34. 01 IN-FILE-STATUS PIC XX.
  35. PROCEDURE DIVISION.
  36. *> 1.初期処理(ファイルオープン)
  37. OPEN INPUT IN01-FILE.
  38. OPEN OUTPUT OUT01-FILE.
  39. OPEN OUTPUT OUT02-FILE.
  40. *> 2.主処理(ファイル読み込み処理、ファイル分割処理)
  41. PERFORM UNTIL IN-FILE-STATUS NOT = "00"
  42. READ IN01-FILE
  43. AT END
  44. DISPLAY "READ END"
  45. NOT AT END
  46. MOVE IN01 TO OUT01
  47. IF IN01-KINZOKU = ZERO
  48. THEN
  49. MOVE '20190401' TO OUT01-NDATE
  50. WRITE OUT01
  51. MOVE IN01-JCODE TO OUT02-JCODE
  52. WRITE OUT02
  53. ELSE
  54. ADD 1 TO OUT01-KINZOKU
  55. WRITE OUT01
  56. END-IF
  57. END-READ
  58. END-PERFORM.
  59. *> 3.終了処理(ファイルクローズ)
  60. CLOSE IN01-FILE.
  61. CLOSE OUT01-FILE.
  62. CLOSE OUT02-FILE.
  63. STOP RUN.
  64. END PROGRAM DIVIDE_SAMPLE02.

使用例2は、入力ファイルの従業員情報(従業員コード、氏名、勤続年数、入社日)を読み込み、勤続年数(IN01-KINZOKU)が0の場合は新入社員と判断し、入社日(OUT01-NDATE)に'20190401'を設定、OUT01ファイルに出力、さらに、新入社員の従業員コードをOUT02に出力しています。勤続年数が0出ない場合は、勤続年数(OUT01-KINZOKU)に1加算してOUT01ファイルに出力するというプログラムになります。

使用例1では入力ファイルをファイル出力条件に従って、出力ファイル(OUT01、OUT02)に振り分ける処理でしたが、使用例2では入力ファイルを加工した結果と、入力ファイルからデータを抜き出した結果の2つに分けてファイルを出力しています。

入力ファイル(in01.txt):

応用-ファイル分割-入力ファイル

実行結果:

応用-ファイル分割-実行結果

出力ファイル(out01.txt):

応用-ファイル分割-出力ファイル

出力ファイル(out02.txt):

応用-ファイル分割-出力ファイル

練習問題

最後に練習問題にチャレンジしてみましょう。

問)

先ほどまでのサンプルプログラムは2分割のファイル出力を紹介しましたが、「使用例1」でご紹介したプログラムを、3分割にファイル出力するためにはどのようにプログラムを修正しないといけないでしょうか?

答え)

以下のような処理を追加します。

初期処理に、3つ目のファイルのファイルファイルオープン処理を追加します。

主処理に、3つ目のファイルを出力するための出力条件と、ファイル出力処理を追加します。

終了処理に、3つ目のファイルのファイルクローズ処理を追加します。

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

COBOL入門のカテゴリー

基礎応用勉強試験辞書

取引企業様 募集中
COBOL技術者 募集
COBOL魂
読者採用
COBOL入門

Valid XHTML 1.0 Transitional

正当なCSSです!

Level Triple-A conformance W3C WAI Web Content Accessibility Guidelines 2.0

このホームページで使用されているCSS(スタイルシート)・XHTMLは、W3Cにより、正しい文法で書かれていることが検証されています。

プライバシーマーク

SSL GlobalSign Site Seal