1. 導入：なぜCHAR関数が必要なのか？
COBOL開発において、データ処理は「数値」が中心になりがちですが、時には「文字コード」を直接扱いたい場面に出くわします。例えば、特殊な区切り文字の生成、帳票のレイアウト調整、あるいはちょっとした暗号化処理などです。このような際、手動でマッピング表を作るのは非効率です。ここで役立つのがCHAR関数です。この関数を使えば、特定の文字コードから動的に文字を生成でき、コードの可読性とメンテナンス性を劇的に向上させることができます。
2. 基礎知識：CHAR関数とは？
CHAR関数は、指定した「整数値（コードポイント）」に対応する文字を返す組込関数です。対になる関数としてORD関数があり、ORD関数が「文字からコード値を求める」のに対し、CHAR関数は「コード値から文字を求める」という逆の役割を果たします。
※環境によって文字コード（ASCIIやEBCDICなど）が異なるため、実行環境のコード体系を意識することが重要です。
3. 実装・解決策
CHAR関数の使い方は非常にシンプルです。引数に0から255までの整数（環境による）を指定するだけで、対応する文字が返されます。これを利用して、例えば「改行コード」や「タブ文字」など、キーボードから入力しづらい制御文字をプログラム内で安全に生成することが可能です。
4. サンプルプログラム
以下のコードは、CHAR関数を使用して特定の文字コードから文字列を生成し、表示する例です。
IDENTIFICATION DIVISION.
PROGRAM-ID. CHAR-FUNC-SAMPLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-CHAR-CODE PIC 9(03) VALUE 65. > 'A'のASCIIコード
01 WS-RESULT-CHAR PIC X(01).
PROCEDURE DIVISION.
> 65番の文字を取得してWS-RESULT-CHARに格納
COMPUTE WS-RESULT-CHAR = FUNCTION CHAR(WS-CHAR-CODE).
> 結果の表示
DISPLAY "コード " WS-CHAR-CODE " に対応する文字は: " WS-RESULT-CHAR.
> 応用：シーザー暗号風（次の文字を取得）
COMPUTE WS-RESULT-CHAR = FUNCTION CHAR(WS-CHAR-CODE + 1).
DISPLAY "次の文字は: " WS-RESULT-CHAR.
STOP RUN.
5. 応用・注意点：現場での落とし穴
現場でCHAR関数を使用する際、最も注意すべきは「文字コード体系の依存性」です。汎用機（EBCDIC）とPC環境（ASCII/UTF-8）では、同じ数値でも出力される文字が異なります。
また、コードポイントの範囲外（例えば負の数や255を超える値）を指定した場合、実行時エラーになる可能性があるため、入力値チェックは必須です。
「動的に文字を作れる」という強力な機能ですが、ハードコードを避けるために定数として定義するなど、保守性を意識した実装を心がけてください。このコツを掴めば、文字列操作の幅がぐっと広がりますよ。
コメント