1. 導入：なぜ今、COBOLで平方根なのか
現場の基幹システムにおいて、統計処理や科学技術計算を行う機会は意外と多いものです。かつては平方根を求めるために、ニュートン法などのアルゴリズムを自前でサブルーチン化して実装していました。しかし、現代のCOBOLでは組込関数 FUNCTION SQRT を利用することで、冗長なコードを排除し、可読性と保守性を飛躍的に向上させることができます。複雑な計算ロジックをシンプルに保つことは、バグの混入を防ぐための第一歩です。
2. 基礎知識：組込関数と浮動小数点の扱い
COBOLの組込関数は、Procedure Division内で計算結果を直接変数に代入できる強力なツールです。FUNCTION SQRTは、引数として与えられた「非負の数値」の平方根を返します。ここで重要なのは、戻り値が浮動小数点形式であるという点です。固定小数点数（PIC 9形式など）で定義された変数に格納する場合、暗黙の型変換が行われるため、精度や桁あふれには十分な配慮が必要です。
3. 実装と解決策
実装のポイントは、入力値が負にならないようにチェックを入れることです。SQRT関数に負の値を渡すと実行時エラーになる可能性があるため、必ずIF文等で0以上の数値であることを保証します。また、計算結果の精度を確保するため、受取側の変数はCOMP-1（単精度浮動小数点）やCOMP-2（倍精度浮動小数点）を使用することを強く推奨します。
4. サンプルプログラム
以下は、入力された数値の平方根を求め、結果を表示する実用的なコード例です。
IDENTIFICATION DIVISION.
PROGRAM-ID. SQRT-SAMPLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
- 入力値（固定小数点）
01 WS-INPUT-VAL PIC 9(05)V99 VALUE 123.45.
- 計算結果格納用（倍精度浮動小数点）
01 WS-RESULT COMP-2.
- 表示用編集フィールド
01 WS-DISPLAY-VAL PIC Z(08).99.
PROCEDURE DIVISION.
MAIN-LOGIC.
- 入力値が負でないかチェック
IF WS-INPUT-VAL >= 0
- FUNCTION SQRT を使用して平方根を算出
COMPUTE WS-RESULT = FUNCTION SQRT(WS-INPUT-VAL)
- 結果を編集して表示
MOVE WS-RESULT TO WS-DISPLAY-VAL
DISPLAY “平方根の計算結果: ” WS-DISPLAY-VAL
ELSE
DISPLAY “エラー: 負の値が入力されました。”
END-IF.
GOBACK.
5. 応用・注意点
現場で活用する際の最大の注意点は、「計算精度」です。COMP-2（倍精度）を使用すれば一般的な業務要件は満たせますが、極めて高い精度を求められる会計や科学計算では、誤差が蓄積する可能性があります。計算結果をさらに別の計算に利用する場合は、必要に応じて丸め処理（ROUNDED）を適切に組み合わせるか、固定小数点への変換タイミングを慎重に設計してください。また、古いコンパイラ環境では組込関数がサポートされていない場合もあるため、事前に動作環境の仕様を確認することも忘れないようにしましょう。
コメント