導入：なぜRESET句が重要なのか
COBOLで帳票を作成する際、もっとも頭を悩ませるのが「小計」や「累計」の計算ロジックです。通常、ブレイク（キーの切り替わり）を検知するたびに加算処理を行う必要がありますが、プログラムが複雑になりバグの温床になりがちです。そこで活用したいのが、SORT命令などで使用できる「SUM句のRESETオプション」です。これを使えば、面倒な加算ロジックを記述することなく、四半期計や年度累計といった集計を自動化できます。
基礎知識：SUM句とRESET句の仕組み
COBOLのSORT処理におけるSUM句は、キーが同じレコードの数値を自動的に加算してくれます。通常は「キーが変わるたびにリセット」されますが、RESET句を指定することで「どのキーが切り替わったときに値をリセットするか」を明示的に制御できます。これにより、下位のキー（例：月）が切り替わっても値を保持し続け、上位のキー（例：四半期や年度）が切り替わったときだけ集計値をクリアする、といった複雑な集計が一行の記述で完結します。
実装・解決策：集計の自動化
この機能を使うには、SORT文の中でSUM句を使用します。
例えば、明細データが「月(MONTH-KEY)」「四半期(QUARTER-KEY)」「年度(YEAR-KEY)」の順で構成されている場合、月ごとに計算しつつ、四半期ごとの合計を保持させたい場面などで非常に有効です。
サンプルプログラム
以下は、四半期ごとの集計を行うためのSORT文の例です。
IDENTIFICATION DIVISION.
PROGRAM-ID. SUM-EXAMPLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-AMT PIC S9(9) VALUE 0.
01 YEAR-KEY PIC X(4).
01 QUARTER-KEY PIC X(1).
PROCEDURE DIVISION.
- SORT処理内でSUM句とRESET句を活用する例
SORT WORK-FILE ON ASCENDING KEY YEAR-KEY, QUARTER-KEY
INPUT PROCEDURE IS INPUT-PROC
OUTPUT PROCEDURE IS OUTPUT-PROC
GIVING OUT-FILE.
- 実際の実装部（イメージ）
- 下位キーである月が変わってもリセットせず、
- 四半期(QUARTER-KEY)が変わったタイミングで集計をリセットする
SORT WORK-FILE …
SUM WS-AMT RESET ON QUARTER-KEY.
GOBACK.
応用・注意点：現場での活用ポイント
1. キーの定義を厳密に： RESET句で指定する項目は、必ずSORTのキー順序として上位に含まれている必要があります。キーの順序を間違えると、意図したタイミングでリセットされず、誤った集計値が出力されるため注意してください。
2. デバッグのコツ： SUM句による自動集計は非常に便利ですが、どのタイミングで値がクリアされているか追跡しにくい場合があります。開発時はダンプ出力などで、期待するキーのタイミングで値がゼロになっているか必ず確認しましょう。
3. 可読性の向上： 自分で加算ロジック（ADD命令）を書くと、条件分岐が何重にもなりがちです。RESET句を使うことで、ロジックがシンプルになり、後からコードを読んだ担当者が「どこで集計されているか」を一目で把握できるようになります。保守性を高めるためにも、積極的に活用することをお勧めします。
コメント