導入
COBOL開発の現場で、最も頭を悩ませるエラーの一つが「データ例外（S0C7など）」です。特に外部システムやファイルから読み込んだデータが、期待した形式（数値であるべき場所に文字が入っているなど）ではない場合、プログラムは無慈悲にもアベンドしてしまいます。今回紹介する「VAL-STATUS関数」は、こうしたデータ破壊や不正な入力を、処理を実行する前に検知できる、モダンCOBOL（2002以降）の強力なガード機能です。
基礎知識
VAL-STATUS関数は、引数として指定したデータ項目が、その項目の定義（PICTURE句やクラス指定）に対して「正当な値」であるかを判定する組み込み関数です。
通常、COBOLはプログラム内で演算を行う際にデータの中身をチェックしますが、VAL-STATUSを使うことで、演算に入る前に「このデータは計算に使っても大丈夫か？」をプログラム自身に問うことができます。戻り値は「0（正当）」または「0以外（不正）」となります。
実装/解決策
この関数の使い方は非常にシンプルです。IF文の中で使用し、戻り値が0であるかを確認するだけです。これにより、不正なデータが混入した際に、プログラムを強制終了させるのではなく、エラーログを出力したり、デフォルト値を設定したりといった「安全な例外処理」を実装できます。
サンプルプログラム
以下のサンプルは、外部から受け取った文字列データが、数値項目として有効かどうかを判定する例です。
IDENTIFICATION DIVISION.
PROGRAM-ID. CHECK-DATA-SAMPLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
- 検証対象のデータ（外部からの入力と仮定）
01 WS-INPUT-DATA PIC X(5).
- 計算用の数値項目
01 WS-NUM-VALUE PIC 9(5).
PROCEDURE DIVISION.
MOVE “12345” TO WS-INPUT-DATA.
- VAL-STATUS関数でデータが数値として正しいか判定
- 0が返れば正常、それ以外なら不正なデータとみなす
IF FUNCTION VAL-STATUS(WS-INPUT-DATA) = 0 THEN
MOVE WS-INPUT-DATA TO WS-NUM-VALUE
DISPLAY “正常な数値です: ” WS-NUM-VALUE
ELSE
DISPLAY “エラー: 数値ではないデータが含まれています: ” WS-INPUT-DATA
- ここでエラー処理（フラグ立てや別ルートへの分岐）を行う
END-IF.
STOP RUN.
応用・注意点
注意すべき点として、VAL-STATUSは「データ型の整合性」をチェックするものであり、「業務的な妥当性（例：日付が範囲内か、金額がマイナスではないか）」までは判断しません。あくまで「定義された型に対して壊れていないか」を確認するものです。
また、現場での活用にあたっては、すべての項目に適用するとオーバーヘッドが発生する可能性があります。特に、外部インターフェースから受け取るデータや、ユーザー入力など「信頼できないデータ」に対して重点的に使用するのが、パフォーマンスと安全性を両立させるコツです。古いレガシーコードを改修する際、アベンドが頻発する箇所へピンポイントで導入するだけでも、システムの堅牢性は大きく向上します。
コメント