照合シーケンス内のある特定の英字または英数字の序数位置を検出するには、引数として文字を持つ ORD 関数を使用します。 ORD はその序数位置を表す整数を戻します。
データ項目の 1 文字のサブストリングを ORD への引数として使用する方法があります。
IF Function Ord(Customer-record(1:1)) IS > 194 THEN . . .
ある文字の照合シーケンスにおける序数位置がわかっていて、それに対応する文字が知りたい場合には、CHAR でその整数の序数位置を引数として使用することができます。 CHAR は、要求された文字を戻します。 以下に、その例を示します。
INITIALIZE Customer-Name REPLACING ALPHABETIC BY Function Char(65)
関連参照
CHAR
(「COBOL for Windows 言語解説書」)
ORD
(「COBOL for Windows 言語解説書」)