COBOLのNUMERICクラス条件を完全ガイド！初心者でもわかる数値チェックの基本
生徒
「先生、COBOLで文字が数字かどうかを調べる方法ってありますか？」
先生
「はい、ありますよ。COBOLではNUMERICクラス条件という仕組みを使えば、簡単に数値チェックができます。」
生徒
「数値チェックって、たとえば入力が数字だけかどうかを確認することですか？」
先生
「その通りです！では、実際にNUMERICを使った数値チェックの方法を見ていきましょう。」
1. NUMERICクラス条件とは？
NUMERICクラス条件とは、COBOLで「指定したデータ項目の中身がすべて数字（0〜9）だけで構成されているか」を判定するための便利な機能です。プログラミングの世界では、これを「数値チェック」や「バリデーション（妥当性確認）」と呼びます。
例えば、銀行のシステムなどで「金額」を入力する欄に、間違えて「A100」といった文字が混ざってしまうと、正しく計算ができずシステムが止まってしまいます。そうしたトラブルを未然に防ぐために、NUMERICを使ってデータが正しい数字かどうかを確認するのです。
直感的なイメージ：
- 「12345」 → すべて数字なので OK（真）
- 「12A45」 → 文字が混ざっているので NG（偽）
- 「 123 」 → 前後に空白（スペース）があっても NG（偽）
プログラミング未経験の方でもイメージしやすいように、身近な例で考えてみましょう。
* プログラムのイメージ例
IF 入力された年齢 IS NUMERIC
DISPLAY "正しい数字です。処理を続けます。"
ELSE
DISPLAY "エラー！数字だけで入力してください。"
END-IF
このように、IS NUMERICと書くだけで、COBOLが裏側で1文字ずつ「これは0かな？9かな？」とチェックしてくれます。自分で複雑な計算式を書く必要がないため、初心者でもミスなく安全なプログラムが作れるようになります。
2. NUMERICの基本構文
構文はとても簡単で、IF 変数 IS NUMERICと書くだけです。もし変数の中身がすべて数字なら真（true）となり、そうでなければ偽（false）になります。
IF 変数名 IS NUMERIC
DISPLAY "これは数値です。"
ELSE
DISPLAY "これは数値ではありません。"
END-IF
実際の例を見てみましょう。
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-INPUT PIC X(5).
PROCEDURE DIVISION.
MOVE "123" TO WS-INPUT
IF WS-INPUT IS NUMERIC
DISPLAY "数値です！"
ELSE
DISPLAY "数値ではありません！"
END-IF
STOP RUN.
数値です！
このように、"123"は数字だけなので「数値です！」と表示されます。
3. 数字以外を入れるとどうなる？
今度は、数字以外の文字を入れてみましょう。
MOVE "12A" TO WS-INPUT
IF WS-INPUT IS NUMERIC
DISPLAY "数値です！"
ELSE
DISPLAY "数値ではありません！"
END-IF
数値ではありません！
「A」が混ざっているため、COBOLはこの文字列を「数値ではない」と判断します。つまり、NUMERIC条件は非常に正確に数字チェックをしてくれるのです。
4. NUMERICが使えるデータ型に注意
NUMERICクラス条件を使えるのは、数字として扱える項目（PIC 9やPIC X）に限られます。つまり、データ項目が文字型（PIC X）でも、内容が数字であれば判定できますが、定義自体がアルファベット専用（PIC Aなど）の場合は注意が必要です。
たとえば、次のようなデータ項目があったとします。
01 WS-NUM1 PIC 9(3).
01 WS-CHAR1 PIC X(3).
WS-NUM1は数値型の変数、WS-CHAR1は文字型の変数です。どちらもNUMERICを使ってチェックできますが、判定の仕方に違いがあります。
たとえば次のように書くと、どちらも動作します。
MOVE "123" TO WS-NUM1
IF WS-NUM1 IS NUMERIC
DISPLAY "WS-NUM1は数値です。"
END-IF
MOVE "12A" TO WS-CHAR1
IF WS-CHAR1 IS NUMERIC
DISPLAY "WS-CHAR1は数値です。"
ELSE
DISPLAY "WS-CHAR1は数値ではありません。"
END-IF
WS-NUM1は数値です。
WS-CHAR1は数値ではありません。
このように、NUMERICは入力値が「本当に数字だけで構成されているか」を判定してくれます。
5. マイナスや小数点はどう判定される？
ここで注意したいのが、マイナス（−）や小数点（.）を含む場合です。実は、COBOLのNUMERICは「0〜9の数字だけ」で構成されているかを判定します。そのため、-123や12.3はNUMERICでは数値ではないと判定されます。
次の例を見てみましょう。
MOVE "-123" TO WS-INPUT
IF WS-INPUT IS NUMERIC
DISPLAY "数値です。"
ELSE
DISPLAY "数値ではありません。"
END-IF
数値ではありません。
このように、符号（−や＋）や小数点を含む場合は、別の方法でチェックする必要があります。たとえば、INSPECT文やFUNCTION NUMVALを組み合わせて、より柔軟に判定する方法もありますが、まずはNUMERICで基本を押さえましょう。
6. IF文と組み合わせて安全な入力チェック
実際のプログラムでは、ユーザーが入力した値が数値かどうかを調べて、正しければ次の処理に進む、という流れがよくあります。NUMERICクラス条件は、そのような場面で非常に役立ちます。
たとえば、年齢を入力させるプログラムを考えてみましょう。
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-AGE PIC X(3).
PROCEDURE DIVISION.
MOVE "25" TO WS-AGE
IF WS-AGE IS NUMERIC
DISPLAY "入力は数値です。年齢チェックを続けます。"
ELSE
DISPLAY "数値以外が入力されています。"
END-IF
STOP RUN.
入力は数値です。年齢チェックを続けます。
もしここで「2A」などを入力した場合は、「数値以外が入力されています。」と表示されます。このように、ユーザー入力を安全に扱うための第一歩として、NUMERICクラス条件は非常に重要です。
7. NOT NUMERICで逆チェックもできる
NUMERICの反対の条件として、NOT NUMERICも使えます。つまり、「数字ではない場合」に実行したい処理を書くことができます。
IF WS-INPUT IS NOT NUMERIC
DISPLAY "入力値が不正です。"
END-IF
「数字ではないときにエラーを出す」「再入力を求める」など、実際の業務システムで非常によく使われます。
8. まとめるとNUMERICは「安全なプログラム作りの基本」
NUMERICクラス条件は、COBOLで文字列が数値かどうかをチェックするためのとても重要な仕組みです。エラーを防ぎ、入力データの品質を保つための基礎的なテクニックです。
数値チェックを正しく使いこなすことで、より信頼性の高いCOBOLプログラムを作ることができます。初心者の方も、ぜひこの機能を覚えておきましょう！
まとめ
ここまで、COBOLにおけるNUMERICクラス条件の基礎から応用までを詳しく解説してきました。業務システム、特に金融系や事務系の基幹システムにおいて、データの正確性は生命線です。NUMERICクラス条件を正しく使いこなすことは、単なる構文の習得以上に、システムの堅牢性を高めるための必須スキルと言えるでしょう。
数値チェックの重要性とSEO観点でのポイント
COBOLプログラムを作成する際、ユーザーからの入力値や外部ファイルから取り込んだデータが、期待通りの形式（数値）であるかを検証する「バリデーション」は欠かせません。もし数値項目に文字が混入した状態で計算処理を行ってしまうと、データ例外（S0C7など）が発生し、プログラムが異常終了してしまいます。NUMERICクラス条件は、こうしたトラブルを未然に防ぐための最もシンプルかつ強力な防波堤です。
応用：複数の数値を一括でチェックするサンプル
実際の現場では、一つの項目だけでなく、複数の項目を連続してチェックすることが多いです。以下に、複数の入力項目に対して一括で数値チェックを行う実践的なサンプルプログラムを紹介します。
IDENTIFICATION DIVISION.
PROGRAM-ID. CHECK-SUMMARY.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-USER-DATA.
05 WS-ID PIC X(05) VALUE "12345".
05 WS-PRICE PIC X(08) VALUE "000500A0".
05 WS-COUNT PIC X(03) VALUE "010".
01 WS-ERROR-FLG PIC X(01) VALUE "N".
PROCEDURE DIVISION.
MAIN-PROCESS.
* 各項目の数値チェックを連続して実施
IF WS-ID IS NOT NUMERIC
DISPLAY "エラー：IDに不正な文字が含まれています。"
MOVE "Y" TO WS-ERROR-FLG
END-IF.
IF WS-PRICE IS NOT NUMERIC
DISPLAY "エラー：単価に不正な文字が含まれています。"
MOVE "Y" TO WS-ERROR-FLG
END-IF.
IF WS-COUNT IS NOT NUMERIC
DISPLAY "エラー：数量に不正な文字が含まれています。"
MOVE "Y" TO WS-ERROR-FLG
END-IF.
* 最終的な判定結果を出力
IF WS-ERROR-FLG = "N"
DISPLAY "すべてのデータが正常（数値）です。"
PERFORM CALCULATION-LOGIC
ELSE
DISPLAY "入力データに不備があるため、処理を中断します。"
END-IF.
STOP RUN.
CALCULATION-LOGIC.
DISPLAY "計算処理を実行中...".
実行結果は以下のようになります。この例ではWS-PRICEに「A」が含まれているため、エラーが検知されます。
エラー：単価に不正な文字が含まれています。
入力データに不備があるため、処理を中断します。
C#での数値チェックとの比較
もし、COBOLエンジニアがC#などのモダンな言語に触れる機会があれば、同様の処理をどのように記述するか知っておくのも役立ちます。C#ではint.TryParseやRegex.IsMatchなどを使って数値判定を行いますが、論理的な考え方はCOBOLのNUMERICと同じです。
string inputData = "12345";
int result;
// C#での数値チェックの例
if (int.TryParse(inputData, out result))
{
Console.WriteLine("これは有効な数値です。値: " + result);
}
else
{
Console.WriteLine("数値以外の文字が含まれています。");
}
最後に：さらなるステップアップに向けて
NUMERICクラス条件をマスターしたら、次は「符号付き数値」や「パック形式（COMP-3）」での判定についても学習を広げてみてください。COBOLには、データの内部形式によって判定の挙動が変わる奥深さがあります。こうした細かい仕様を理解することで、ベテランエンジニアにも引けを取らない正確なコーディングが可能になります。本記事が、皆さんのCOBOL学習の一助となれば幸いです。
生徒
「先生、まとめを読んでNUMERICクラス条件の重要性がさらによく分かりました！単にエラーを防ぐだけでなく、システムの信頼性を守るための基本なんですね。」
先生
「その通りです。特にCOBOLが使われる現場では、一度のデータ不備が大きな損失に繋がることもありますから、こうした地道なチェックが一番大切なんですよ。」
生徒
「はい！サンプルコードにあったように、エラーフラグを使って複数の項目をチェックする方法も、実際のプログラムですぐに使えそうです。文字型（PIC X）の項目でも、中身が数字なら判定できるという点も驚きました。」
先生
「そうですね。ただ、記事の中で解説した通り、マイナス記号や小数点が含まれるとNUMERICでは『数値ではない』と判定されてしまうので、そこだけは忘れないようにしてください。もし符号付きの数値を確認したい場合は、定義をS9(5)のように符号付き数値型にするか、別のチェックロジックを検討する必要があります。」
生徒
「なるほど。データの定義によって振る舞いが変わるんですね。C#のint.TryParseの例も興味深かったです。言語が違っても、データの妥当性を確認するというプログラミングの根底にある考え方は同じなんだなと感じました。」
先生
「いい視点ですね！その柔軟な考え方があれば、COBOL以外の言語を学ぶときもスムーズに習得できるはずです。まずは基本のNUMERICを完璧に使いこなせるようになって、安全なコードが書けるプログラマーを目指しましょう。次はもっと複雑なデータ編集文（INSPECT）などについても勉強してみますか？」
生徒
「はい、ぜひお願いします！もっともっとCOBOLを極めていきたいです！」
