【COBOL学習｜実務向け】報告書集団のTYPE句、その「定位置」が報告書作成の要！

COBOLのREPORT WRITER機能は、複雑な帳票作成を効率化するための強力な武器です。しかし、その強力さゆえに、記述ルールを正しく理解していなければ、思わぬバグや混乱を招くことも少なくありません。今回は、報告書作成機能における「報告書集団（REPORT GROUP）」のTYPE句に焦点を当て、その記述位置の重要性と、それがコンパイラに与える影響について、実務的な視点から深掘りしていきましょう。

導入: なぜTYPE句の記述位置が重要なのか？

帳票のヘッダ、明細、フッタなど、それぞれの役割を持つ部分をCOBOLでは「報告書集団」として定義します。この報告書集団が「何の役割を果たすのか」を明示するのがTYPE句です。
「たかが記述位置」と思われるかもしれませんが、このTYPE句を適切な場所に記述することは、コンパイラが以降のLINE句やCOLUMN句の記述を正しく解釈するために極めて重要となります。間違った位置に記述すると、コンパイルエラーになったり、意図しない帳票が出力されたりして、デバッグに時間を要することにもなりかねません。標準的な作法に従うことは、品質の高いプログラムを作成する上で不可欠なのです。

基礎知識: 報告書集団とTYPE句の役割

まずは、REPORT WRITER機能の基本的な概念からおさらいしましょう。

REPORT WRITER機能: COBOLに標準搭載されている帳票作成機能の一つで、帳票のレイアウト定義とデータ出力ロジックを分離し、複雑な帳票を効率的に作成できます。
報告書集団 (REPORT GROUP): 帳票を構成する部品単位のことです。例えば、ページ上部の見出し、帳票全体のタイトル、個々の明細行、ページ下部の合計行などがそれぞれ報告書集団として定義されます。
TYPE句: この報告書集団が帳票のどの部分（種類）であるかを宣言する句です。TYPE句によって、その集団がPAGE HEADINGなのか、DETAILなのか、PAGE FOOTINGなのか、などをコンパイラに伝えます。

主なTYPEの種類とその役割は以下の通りです。

PAGE HEADING (PH): 各ページの先頭に出力される集団（ページ見出し）。
REPORT HEADING (RH): 帳票全体の先頭に一度だけ出力される集団（帳票見出し）。
DETAIL (DE): 帳票のメインとなる明細行を出力する集団。
REPORT FOOTING (RF): 帳票全体の末尾に一度だけ出力される集団（帳票フッタ）。
PAGE FOOTING (PF): 各ページの末尾に出力される集団（ページフッタ）。
CONTROL HEADING (CH) / CONTROL FOOTING (CF): 特定のキー項目が変化した際に出力される見出し/フッタ集団。

TYPE句がなければ、コンパイラは後続のLINE句（例：LINE IS PLUS 1）がどの種類の集団に対する相対位置指定なのかを判断できません。これが、TYPE句が不可欠である理由です。

実装/解決策: TYPE句は「01レベルの見出しの直後」に記述する

TYPE句の記述位置に関するルールは非常にシンプルです。それは、「01レベルの報告書集団の見出しの直後」に記述することです。

01 報告書集団名 TYPE IS 種類.

なぜこの位置なのでしょうか？
コンパイラはプログラムを上から順に解釈していきます。01レベルの見出しで新しい報告書集団が定義されたら、次にその集団が「どのような役割を持つのか」を最初に宣言することで、以降に続くLINE句（絶対位置や相対位置）が、その役割に基づいた正しい意味を持つと判断できるのです。

例えば、PAGE HEADINGに記述された「LINE IS PLUS 1」とDETAILに記述された「LINE IS PLUS 1」では、それぞれページ内の異なる基準位置からの相対的な移動を意味します。この解釈の違いをコンパイラに伝えるために、TYPE句が01レベルの直後に必要となるわけです。

この記述作法は、可読性を高め、他のプログラマがプログラムを理解しやすくする上でも非常に有効です。

サンプルプログラム: TYPE句の正しい記述例

ここでは、簡単な報告書作成プログラムで、TYPE句がどのように記述されるかを見てみましょう。


IDENTIFICATION DIVISION.
PROGRAM-ID. REPORT01.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT PRINT-FILE ASSIGN TO PRINTER.

DATA DIVISION.
FILE SECTION.
FD  PRINT-FILE
    REPORT IS SAMPLE-REPORT.

REPORT SECTION.
RD  SAMPLE-REPORT
    CONTROLS ARE FINAL
    PAGE LIMIT IS 60 LINES
    HEADING 1
    FIRST DETAIL 5
    LAST DETAIL 55
    FOOTING 58.

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

01レベルの報告書集団の直後にTYPE句を記述するのが正しい作法です。

----------------------------------------------------------------------
01  RPT-PAGE-HEADING    TYPE IS PAGE HEADING.
    05  LINE NUMBER IS 2.
        10  COLUMN NUMBER IS 25
            VALUE 'サンプル報告書'.
        10  COLUMN NUMBER IS 70
            PIC X(8) FROM FUNCTION CURRENT-DATE (1:8).
    05  LINE NUMBER IS 3.
        10  COLUMN NUMBER IS 10
            VALUE '-----------------------------------------------------------------------'.

01  RPT-DETAIL-LINE     TYPE IS DETAIL.
    05  LINE NUMBER IS PLUS 1.
        10  RPT-DETAIL-CODE     COLUMN NUMBER IS 10
                                PIC X(5).
        10  RPT-DETAIL-NAME     COLUMN NUMBER IS 20
                                PIC X(20).
        10  RPT-DETAIL-AMOUNT   COLUMN NUMBER IS 50
                                PIC ZZZ,ZZ9.

01  RPT-PAGE-FOOTING    TYPE IS PAGE FOOTING.
    05  LINE NUMBER IS 59.
        10  COLUMN NUMBER IS 35
            VALUE 'ページ'.
        10  RPT-PAGE-NUMBER     COLUMN NUMBER IS 41
                                PIC ZZZ9 SOURCE PAGE-COUNTER.

WORKING-STORAGE SECTION.
01  WS-EOF-FLAG         PIC X VALUE 'N'.
    88  EOF-REACHED     VALUE 'Y'.
0
PROCEDURE DIVISION.
MAIN-LOGIC.
    OPEN OUTPUT PRINT-FILE.
    

報告書機能を初期化します

    INITIATE SAMPLE-REPORT.


ここで本来は入力ファイルからデータを読み込み、
各レコードに対してGENERATE RPT-DETAIL-LINE を実行します。
今回はサンプルとして固定データをGENERATEします。

    

明細行をいくつか生成する例

    MOVE 'A0001' TO RPT-DETAIL-CODE.
    MOVE '商品A' TO RPT-DETAIL-NAME.
    MOVE 12345    TO RPT-DETAIL-AMOUNT.
    GENERATE RPT-DETAIL-LINE.

    MOVE 'B0002' TO RPT-DETAIL-CODE.
    MOVE '商品B' TO RPT-DETAIL-NAME.
    MOVE 67890    TO RPT-DETAIL-AMOUNT.
    GENERATE RPT-DETAIL-LINE.
    
    MOVE 'C0003' TO RPT-DETAIL-CODE.
    MOVE '商品C' TO RPT-DETAIL-NAME.
    MOVE 54321    TO RPT-DETAIL-AMOUNT.
    GENERATE RPT-DETAIL-LINE.


報告書機能を終了し、最終ページフッタなどを出力します

    TERMINATE SAMPLE-REPORT.

    CLOSE PRINT-FILE.
    STOP RUN.

上記のコードでは、RPT-PAGE-HEADING、RPT-DETAIL-LINE、RPT-PAGE-FOOTINGの各01レベルの直後に、それぞれTYPE IS PAGE HEADING.、TYPE IS DETAIL.、TYPE IS PAGE FOOTING.と記述されています。これが、TYPE句の正しい記述位置です。

応用・注意点: 現場で役立つ補足とバグ回避策

記述順序と出力順序:
REPORT SECTIONにおける報告書集団の物理的な記述順序は、実際の帳票の出力順序とは関係ありません。出力順序は、TYPE句の種類（PAGE HEADING, DETAILなど）と、GENERATE文、INITIATE文、TERMINATE文によってREPORT WRITER機能が制御します。しかし、TYPE句は常に01レベルの直後というルールは変わりません。
TYPE句の省略は非推奨:
TYPE句を省略した場合、多くのCOBOLコンパイラはデフォルトでその集団をDETAILとして扱います。しかし、これは可読性を著しく損ない、将来的な保守の際に混乱の元となります。常にTYPE句を明示的に記述する習慣をつけましょう。
コンパイルエラーの例:
TYPE句を01レベルの直後ではない、例えば05レベルのフィールドに記述したり、全く記述しなかったりすると、コンパイルエラーになることがあります。エラーメッセージはコンパイラによって異なりますが、「TYPE句の位置が不正です」「報告書集団のTYPE句が定義されていません」といった内容が多いでしょう。
論理的な誤り:
もしTYPE句を誤って記述（例: DETAILのはずがPAGE HEADINGと記述）した場合、コンパイルは通るかもしれませんが、帳票の出力が期待通りにならず、デバッグが困難になることがあります。例えば、DETAIL行がページごとにしか出力されなくなったり、PAGE-COUNTERが期待通りに動作しなかったりするかもしれません。
可読性と保守性:
正しい位置にTYPE句を記述することは、プログラムの可読性を高め、他のプログラマがその報告書集団の役割をすぐに理解できるようにします。これは、長期的なシステム運用において、保守作業の効率化に大きく貢献します。

TYPE句の記述位置は、REPORT WRITER機能を使う上での基本中の基本です。このシンプルなルールを遵守することで、堅牢で保守しやすいCOBOLプログラムを作成することができます。ベテランの皆様も、改めて基本に立ち返り、日々のコーディングに活かしていただければ幸いです。