導入：なぜ「SUM句の共有」ができないのか
COBOLのREPORT WRITER機能（RD）は、帳票作成において非常に強力なツールですが、実務で多くのエンジニアが一度は躓くのが「報告書間での合計値の共有」です。結論から申し上げますと、RDのSUM句で定義された合計カウンタは、その報告書のスコープ内でのみ有効であり、他の報告書から直接参照することはできません。これはメモリ上の領域がRDごとに完全に分離・独立して管理されるためです。複数の帳票で同じ合計値を共有しようとしてコンパイルエラーや予期せぬ動作に悩まされないよう、正しい設計手法を理解しましょう。
基礎知識：RDとSUM句の仕組み
COBOLのREPORT SECTIONで定義されるRD（Report Description）は、独立した「報告書作成エンジン」として機能します。SUM句を使用すると、コンパイラは自動的に合計用領域（カウンタ）を生成しますが、この領域はあくまでそのRDの制御下にあります。別のRDからこの領域を直接操作したり参照したりしようとしても、外部参照が許可されていないため、リンクエラーや論理矛盾が発生します。複数の帳票で同一の集計値が必要な場合は、RDの外側（WORKING-STORAGE SECTIONなど）に共通の集計領域を設ける必要があります。
実装・解決策：共通領域を用いた集計手法
報告書間で合計値を共有するための定石は、「RD内での自動集計に頼り切らず、計算ロジックをRDの外側に分離する」ことです。具体的には、手続き部（PROCEDURE DIVISION）でデータ処理を行う際に、合計用カウンタをWORKING-STORAGEに定義し、RDを呼び出す前、あるいはデータ出力のタイミングでその値をRDに引き渡す仕組みを構築します。これにより、RDの独立性を保ちつつ、複数帳票でのデータ同期が可能になります。
サンプルプログラム
以下の例は、RDのSUM句に頼らず、WORKING-STORAGEで保持した値をRDに渡す典型的なパターンです。
＜サンプルコード＞
WORKING-STORAGE SECTION.
- 共通で参照する合計カウンタ（RDの外側で管理）
01 WS-TOTAL-AMOUNT PIC S9(9) VALUE 0.
REPORT SECTION.
RD REPORT-A.
01 DETAIL-LINE TYPE DETAIL.
05 FILLER PIC X(10) VALUE ‘金額:’.
05 PRINT-AMOUNT PIC Z(8)9 SOURCE WS-TOTAL-AMOUNT.
PROCEDURE DIVISION.
- データを読み込み、共通領域を加算する
ADD INPUT-AMOUNT TO WS-TOTAL-AMOUNT.
- RDを制御するルーチンで、常に最新のWS-TOTAL-AMOUNTが反映される
WRITE REPORT-A-LINE.
応用・注意点：現場でのトラブル回避
1. RDの制御フローの理解
RDは自動的に制御が回るため、合計タイミングが意図した瞬間とズレることがあります。特に「改ページ」や「合計出力」のタイミングで値をリセットする必要がある場合は、RDのCONTROL句を適切に設定し、手続き部から明示的に値を制御する設計が安全です。
2. メンテナンス性の向上
SUM句は手軽ですが、仕様変更で「別の帳票にも同じ合計を出したい」と言われた途端、修正が困難になります。最初から「集計はWORKING-STORAGEで行う」という方針でコーディングしておけば、将来的な帳票追加やレイアウト変更にも柔軟に対応できます。
3. データの不整合防止
複数のRDに対して同じ変数をソースとして渡す場合、片方のRDで合計がリセットされないよう注意してください。RDの「RESET」句を適切に使用し、集計のタイミングを厳密に管理することが、バグを防ぐ鍵となります。
コメント