【COBOL学習｜実務向け】COBOL現場の入力チェック：ALPHABETICクラス判定を使いこなす

1. 導入：なぜALPHABETIC判定が重要なのか

業務システムにおけるデータ入力チェックでは、入力された値が「想定通りの属性か」を厳格に検証することが不可欠です。例えば、名前欄に数字や特殊記号が混入すると、後続の帳票出力やデータベース更新で予期せぬエラーを引き起こします。COBOLには組み込みのクラス判定機能があり、これを利用することで、複雑なループ処理を書くことなく、簡潔かつ正確に英字チェックを行うことができます。今回は「ALPHABETIC」を活用した入力検証の勘所を解説します。

2. 基礎知識：クラス判定とは

COBOLにおけるクラス判定とは、データ項目の内容が特定の文字集合のみで構成されているかを判定する機能です。ALPHABETICは「AからZ」および「aからz」、さらに「空白（スペース）」のみで構成されている場合に真（TRUE）を返します。
注意が必要なのは、この判定は「数字」や「記号」が含まれているだけで偽（FALSE）となる点です。もし大文字・小文字を区別せず、かつ数字も含めたい場合などは、他の検証ロジックと組み合わせる必要があります。

3. 実装・解決策

実装時には、対象のデータ項目を定義する際、USAGE句やPIC句の型に注意してください。通常、英字チェックを行う場合はPIC X(n)で定義された項目に対して行います。IF文の中で「IS ALPHABETIC」を使用することで、対象項目が英字・空白のみかを確認します。これにより、エラー判定処理を構造化し、プログラムの可読性を高めることができます。

4. サンプルプログラム

以下のコードは、入力項目が英字のみであるかを判定し、エラー時にはメッセージを出力する実用的なパターンです。

       WORKING-STORAGE SECTION.
       01 WS-INPUT-NAME       PIC X(20) VALUE "John Doe".
       01 WS-RESULT-MSG       PIC X(50).

       PROCEDURE DIVISION.
       MAIN-LOGIC.

入力内容が英字(A-Z, a-z)と空白のみかチェック

           IF WS-INPUT-NAME IS ALPHABETIC
               MOVE "OK: 英字のみで構成されています。" TO WS-RESULT-MSG
           ELSE
               MOVE "NG: 英字以外の文字が含まれています。" TO WS-RESULT-MSG
           END-IF.

           DISPLAY "判定結果: " WS-RESULT-MSG.

           STOP RUN.

5. 応用・注意点

現場で活用する際の注意点は以下の3点です。

・空白の扱い
ALPHABETICは「スペース」を許容します。もし「スペースも不可（英字のみ）」という要件であれば、判定後に「IF WS-INPUT-NAME = SPACES」などで個別にチェックを加える必要があります。

・日本語（漢字・カナ）が含まれる場合
ALPHABETICは日本語（シフトJISやUTF-8の2バイト文字）が含まれると偽となります。全角文字が含まれる可能性がある項目には使用できませんので注意してください。

・保守性の向上
複雑な入力チェックが必要な場合は、判定ロジックをサブルーチン（CALLプログラム）に切り出すことを推奨します。これにより、仕様変更時に一箇所を直すだけで全画面の入力チェックを更新できるようになります。

「ALPHABETIC」は古くからある機能ですが、入力データの信頼性を担保する最も基本的な防御壁です。ぜひ積極的に活用してください。