導入
COBOL開発において、文字の大小比較や特定の文字コードに基づく条件分岐は避けて通れません。しかし、EBCDICやASCIIなど、実行環境の文字セット（COLLATING SEQUENCE）に依存した比較は、移植性や可読性の面で課題が生じることがあります。ここで役立つのが組込関数のORDです。この関数を使うことで、文字コードの値を直接意識することなく、文字の論理的な順序位置を取得でき、保守性の高いコードを実現できます。
基礎知識
ORD関数は、引数に指定した文字が、現在使用している文字セットにおいて「何番目に位置しているか」を1から始まる整数で返す機能を持っています。
例えば、標準的なアルファベット順であれば、’A’は65番目、’B’は66番目といった数値を返します。この仕組みを利用することで、文字コード表を暗記せずとも、「文字の順序」という論理的な観点からデータの並び替えや範囲チェックを行うことが可能になります。
実装/解決策
ORD関数の最大のメリットは、IF文やEVALUATE文で「文字の範囲」を直感的に扱えるようになる点です。例えば、入力データが「英大文字のみ」で構成されているかをチェックする場合、文字コードの16進数範囲を調べる代わりに、ORD関数で取得した数値が「’A’のORD値以上、かつ’Z’のORD値以下」であるかを判定するだけで済みます。これにより、異なる文字コード環境へ移行した際も、プログラムのロジックを修正する必要がなくなります。
サンプルプログラム
以下は、入力された1文字がアルファベットの「A」から「Z」の間にあるかを判定する実用的なコード例です。
IDENTIFICATION DIVISION.
PROGRAM-ID. ORD-TEST.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-CHAR PIC X.
01 WS-POS PIC 9(03).
01 WS-POS-A PIC 9(03).
01 WS-POS-Z PIC 9(03).
PROCEDURE DIVISION.
> 判定対象の文字を設定
MOVE ‘C’ TO WS-CHAR.
> AとZの順序位置を事前に取得（比較の基準値）
COMPUTE WS-POS-A = FUNCTION ORD(‘A’).
COMPUTE WS-POS-Z = FUNCTION ORD(‘Z’).
> 対象文字の順序位置を取得
COMPUTE WS-POS = FUNCTION ORD(WS-CHAR).
> 論理的な位置で範囲判定を行う
IF WS-POS >= WS-POS-A AND WS-POS <= WS-POS-Z
DISPLAY '入力文字 ' WS-CHAR ' はアルファベット範囲内です。'
ELSE
DISPLAY '入力文字 ' WS-CHAR ' は範囲外です。'
END-IF.
GOBACK.
応用・注意点
ORD関数を使用する際の注意点は、引数が「単一の文字」であることを前提としている点です。もし2文字以上の文字列を引数に指定した場合、通常は最初の1文字のみが評価対象となります。また、マルチバイト文字（日本語文字など）を扱う場合は、実行環境のコードページ（シフトJISやUTF-8など）に依存して順序が決まるため、環境間での互換性に注意が必要です。あくまで英数字などの制御ロジックに限定して活用するのが、現場での安全な設計と言えるでしょう。
コメント