導入：なぜ今、Report Writer なのか
COBOL開発の現場において、帳票出力は避けて通れない業務です。しかし、複数の階層を持つコントロール・ブレークや、複雑なページ制御を愚直にIF文で書き連ねていくと、ソースコードは瞬く間に「スパゲッティ化」し、保守が極めて困難になります。Report Writer機能は、こうした帳票作成のロジックを宣言的に記述することで、プログラマを「制御構造の迷宮」から解放してくれる、COBOLが誇る最も洗練された仕様の一つです。
基礎知識：宣言的プログラミングの威力
Report Writerは、REPORT SECTIONを用いて「帳票がどうあるべきか」を定義します。具体的には、どの項目で改ページするか（CONTROL句）、ヘッダやフッタに何を印字するかを記述するだけで、コンパイラが自動的に行数カウントや小計の算出、改ページ処理を代行します。これにより、開発者は「データ処理」という本質的なロジックに集中できるようになります。
実装：Report Writer活用の定石
Report Writerを利用するには、FILE-CONTROLでレポートファイルを定義し、DATA DIVISIONのREPORT SECTIONで構成を詳細に記述します。手続き部では、GENERATE文を発行するだけで、定義に基づいた自動印刷が実行されます。ポイントは、制御項目（コントロール・ブレークのキー）を正しく設定することです。これにより、値が変化した瞬間に自動的にフッタ（合計行）が出力されます。
サンプルプログラム：売上明細帳の自動生成
以下のコードは、部署ごとの売上合計を自動的に出力する構成例です。
IDENTIFICATION DIVISION.
PROGRAM-ID. REPORT-SAMPLE.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT SALES-FILE ASSIGN TO ‘SALES.DAT’.
SELECT REPORT-FILE ASSIGN TO ‘REPORT.PRT’.
DATA DIVISION.
FILE SECTION.
FD SALES-FILE.
01 SALES-REC.
05 DEPT-ID PIC X(04).
05 AMOUNT PIC 9(07).
FD REPORT-FILE.
01 PRINT-REC PIC X(80).
REPORT SECTION.
RD SALES-REPORT
CONTROLS ARE DEPT-ID
PAGE LIMIT IS 50 LINES.
01 TYPE PAGE HEADING.
05 COLUMN 1 PIC X(10) VALUE ‘売上明細帳’.
01 TYPE DETAIL.
05 COLUMN 1 PIC X(04) SOURCE DEPT-ID.
05 COLUMN 10 PIC ZZZ,ZZ9 SOURCE AMOUNT.
01 TYPE CONTROL FOOTING DEPT-ID.
05 COLUMN 1 PIC X(08) VALUE ‘部署合計:’.
05 COLUMN 10 PIC ZZZ,ZZ9 SUM AMOUNT.
PROCEDURE DIVISION.
OPEN INPUT SALES-FILE OUTPUT REPORT-FILE.
INITIATE SALES-REPORT.
PERFORM UNTIL END-OF-FILE
READ SALES-FILE AT END SET END-OF-FILE TO TRUE
NOT AT END
GENERATE SALES-REPORT > ここで自動的に改ページや小計が行われる
END-READ
END-PERFORM.
TERMINATE SALES-REPORT.
CLOSE SALES-FILE REPORT-FILE.
STOP RUN.
応用・注意点：現場での落とし穴
Report Writerを使用する際、最も注意すべきは「明細行の制御とデータのソート」です。Report Writerは、指定したCONTROL項目が変化したことをトリガーにフッタを出力するため、入力データがキー項目で正しくソートされていることが絶対条件です。もしソートが漏れていれば、小計が正しく算出されず、意図しないタイミングで改ページが発生します。
また、複雑なレイアウトが求められる帳票では、Report Writerの自動機能ではカバーしきれないケースもあります。その際は、無理にReport Writerに固執せず、標準的な出力ルーチンと組み合わせて「Report Writerが苦手な部分だけを自前で実装する」という柔軟な姿勢も、ベテランの技術者には求められます。
コメント