【COBOL学習｜豆知識】COBOL組込関数「VARIANCE」の落とし穴と安全な例外処理

1. 導入：なぜこの挙動を知っておく必要があるのか

業務システムで統計処理を実装する際、データのバラつきを測るためにVARIANCE関数（分散）を利用することは珍しくありません。しかし、データ件数が「1件」の時にどのような値を返すか意識していますか？多くのプログラマが「エラーになるのでは？」と考えがちですが、COBOLの仕様では「0」を返します。この仕様を知らずに計算結果を後続の処理に回すと、予期せぬゼロ除算エラーや、誤った判断基準に基づく業務ロジックを引き起こすリスクがあります。本稿では、この挙動を正しく理解し、堅牢なプログラムを書くためのTipsを解説します。

2. 基礎知識：VARIANCE関数とは

VARIANCE関数は、与えられた数値の集合の分散を計算するCOBOLの組込関数です。分散とは、各データが平均値からどれだけ離れているかを示す指標です。数学的な定義では、データが1つだけの場合、平均値との差は存在しないため、分散は0となります。COBOLの組込関数はこの定義を忠実に守り、入力値が1つであってもエラーを発生させず、0を戻り値として返します。

3. 実装/解決策：例外処理の組み込み

現場での開発においては、単に「0が返る」ことを知るだけでなく、「データが1件の時は統計的に有意ではない」と判断して処理を分岐させる設計が重要です。関数を呼び出す前に、対象データの件数をチェックするロジックを必ず挟むようにしましょう。

4. サンプルプログラム

以下のコードは、VARIANCE関数を使用する際、データ件数を事前に判定して安全に処理を行う例です。

       IDENTIFICATION DIVISION.
       PROGRAM-ID. SAMPLE-VARIANCE.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 DATA-TABLE.
          05 DATA-VAL PIC 9(5) OCCURS 3 TIMES.
       01 CNT        PIC 9(1).
       01 RESULT     PIC S9(5)V9(2).

       PROCEDURE DIVISION.
       MAIN-LOGIC.

データ件数が1件の場合の処理

           MOVE 1 TO CNT.
           MOVE 100 TO DATA-VAL(1).

           IF CNT > 1 THEN
               COMPUTE RESULT = FUNCTION VARIANCE(DATA-VAL(1:CNT))
               DISPLAY "分散値: " RESULT
           ELSE

データが1件しかない場合は統計計算をスキップする設計

               DISPLAY "警告: データ件数が不足しているため計算をスキップします。"
           END-IF.

           STOP RUN.

5. 応用・注意点：現場で役立つアドバイス

現場でこの挙動を扱う際の注意点は「バリデーションの徹底」です。特に、動的にデータ件数が変わる配列を扱う場合、件数（CNT）が0や1の状態で関数に渡すと、意図しない値が戻り値としてセットされてしまいます。
また、浮動小数点数の精度にも注意が必要です。VARIANCE関数は内部的に高精度な計算を行いますが、結果を格納する変数の桁数が不足していると、丸め誤差が発生します。統計結果をDBに格納したり、帳票に出力したりする際は、十分な桁数を持つ数値項目を定義することを忘れないでください。仕様の裏側にある数学的な定義を理解しておくことが、バグのない堅牢なシステム構築への近道となります。