導入：なぜ今、FACTORIAL関数なのか
COBOLの現場では、売上集計や在庫管理といった数値演算が日常茶飯事ですが、時として「確率」や「組み合わせ」を扱う統計的な処理が必要になることがあります。例えば、特定条件のパターン数（順列・組み合わせ）を算出する場合、階乗（n!）の計算は避けて通れません。
自前でループ処理を組んで階乗を計算することも可能ですが、バグの混入リスクやメンテナンス性を考慮すると、COBOLの組込関数であるFACTORIALを利用するのが最も安全で効率的です。本記事では、この関数の正しい使い方と、現場で気を付けるべき実装のポイントを解説します。
基礎知識：階乗（n!）とFACTORIAL関数の仕組み
階乗とは、1からある自然数nまでのすべての整数の積のことです（例：5! = 5 × 4 × 3 × 2 × 1 = 120）。
COBOLのFACTORIAL関数は、引数に指定した数値の階乗を返す組込関数です。戻り値は浮動小数点数（COMP-2）として返されるため、計算結果が非常に大きな値になる場合でも、桁溢れを起こしにくいという利点があります。
実装のポイント
FACTORIAL関数を使用する際は、戻り値の型に注意が必要です。組込関数は通常、計算結果を一時領域に保持しますが、これを固定小数点数（PIC 9(n)など）のデータ項目に代入する際、暗黙の型変換が行われます。
実務では、以下の手順で実装を行います。
1. 計算対象の数値を定義する。
2. COMPUTE文を用いて関数を呼び出す。
3. 必要に応じて、結果を整数形式に丸めて使用する。
サンプルプログラム
以下に、FACTORIAL関数を使用した実用的なコード例を示します。コピー＆ペーストして、計算ロジックの参考にしてください。
IDENTIFICATION DIVISION.
PROGRAM-ID. FACTORIAL-SAMPLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
- 計算対象の数値
01 WS-INPUT-VAL PIC 9(02) VALUE 05.
- 結果を格納する領域（浮動小数点数）
01 WS-RESULT-FLOAT COMP-2.
- 表示用に整数へ変換した結果
01 WS-RESULT-DISP PIC ZZZ,ZZ9.
PROCEDURE DIVISION.
> FACTORIAL関数を実行し、結果をCOMP-2項目に格納
COMPUTE WS-RESULT-FLOAT = FUNCTION FACTORIAL(WS-INPUT-VAL).
> 表示用に編集項目へ転記
MOVE WS-RESULT-FLOAT TO WS-RESULT-DISP.
DISPLAY “計算対象: ” WS-INPUT-VAL
DISPLAY “階乗の結果: ” WS-RESULT-DISP.
STOP RUN.
応用・注意点：現場で陥りやすい罠
1. 引数の範囲制限: FACTORIAL関数は負の数を受け付けません。引数が負の場合、実行時にエラー（または意図しない値）を返す可能性があるため、関数に渡す前に必ず0以上であることのチェック（バリデーション）を行いましょう。
2. 戻り値の精度: 階乗の結果は極めて急激に増加します（10!を超えると数値は非常に大きくなります）。計算結果を扱うデータ項目の桁数が不足していないか、設計段階で「最大値」を試算しておくことが重要です。
3. 互換性: 古いCOBOLコンパイラ環境では、組込関数自体がサポートされていない場合があります。導入前に、開発環境のマニュアルでサポート範囲を確認してください。
階乗計算は一見シンプルですが、組み合わせ最適化問題など、ビジネスロジックの要となることもあります。ぜひこの関数を使いこなし、堅牢なコード作成に役立ててください。
コメント