現場のエンジニアへ捧ぐ：PL/I `TRANSLATE`関数とEBCDICの深淵
メインフレームの現場で長く戦っていると、「なぜか文字化けする」「変換テーブルの定義が場当たり的だ」といったトラブルに遭遇することがある。特にレガシーマイグレーションや、古いVSAMレコードを外部連携用に変換する際、文字コードの扱いはまさにシステムエンジニアの腕の見せ所だ。
今日は、PL/Iにおける文字変換の王道である`TRANSLATE`関数について、現場の実務視点から深掘りしていこう。
—
1. TRANSLATE関数の本質とEBCDICの罠
`TRANSLATE`関数は、単なる文字列置換ではない。EBCDIC（Extended Binary Coded Decimal Interchange Code）という、我々が愛してやまない（時に呪わしくもある）文字コード体系において、特定のバイト値を別のバイト値に写像する強力なツールだ。
基本構文は非常にシンプルだ。
`TRANSLATE(ソース文字列, 変換後テーブル, 変換前テーブル)`
ここで多くの若手が勘違いするのが、「変換前テーブル」と「変換後テーブル」の長さが一致していなければならないという思い込みだ。実際には、ソース文字列の各バイトを「変換前テーブル」から探し出し、そのインデックスと同じ位置にある「変換後テーブル」の文字で置き換える。見つからなければ、そのままの文字が維持される。
実務における注意点：マルチバイト文字の恐怖
ここで強く警告しておきたい。IBMメインフレームで扱う「シフトJIS（DBCS）」のようなマルチバイト文字に対し、安易に`TRANSLATE`を適用してはならない。`TRANSLATE`はあくまでシングルバイト（1バイト）単位の置換を行う。
マルチバイトの途中のバイトを誤って置換してしまえば、SI/SO（Shift-In / Shift-Out）コードの整合性が崩れ、後続のプログラムや出力先で致命的な文字化けを引き起こす。マルチバイトが混在するレコードを扱う場合は、必ず変換対象のバイトがシングルバイト文字であることを保証した上で利用してほしい。
—
2. 実践的なコーディング例：口座種別コードの正規化
例えば、外部システムから受領したVSAMデータにおいて、旧システム由来の「1, 2, 3」という種別コードを、新システム標準の「A, B, C」に変換するバッチ処理を想定してみよう。
1
/ —————————————————————— /
/ PROGRAM: CONV001 /
/ PURPOSE: VSAMレコードのコード変換処理サンプル /
/ —————————————————————— /
TEST_CONV: PROCEDURE OPTIONS(MAIN);
DCL SOURCE_REC CHAR(100) VARYING;
DCL TARGET_REC CHAR(100) VARYING;
DCL OLD_CODE CHAR(3) INIT(‘123’); / 変換前 /
DCL NEW_CODE CHAR(3) INIT(‘ABC’); / 変換後 /
/ エラーハンドリング：ファイル読み込み失敗を想定 /
ON ENDFILE(SYSIN) BEGIN;
PUT SKIP LIST(‘データ終了。処理正常終了’);
STOP;
END;
/ 変換テーブルの作成と実行 /
/ 現場では変換テーブルを固定値ではなくDCLで定数化するのが鉄則 /
SOURCE_REC = ‘1000123000’;
TARGET_REC = TRANSLATE(SOURCE_REC, NEW_CODE, OLD_CODE);
PUT SKIP LIST(‘変換前: ‘ || SOURCE_REC);
PUT SKIP LIST(‘変換後: ‘ || TARGET_REC);
END TEST_CONV;
—
3. ベテランからのアドバイス：デバッグと保守の極意
このコードをそのまま現場に持ち込む前に、以下の3点を意識してほしい。
1. 変換テーブルの静的化
変換ルールが頻繁に変わるような場合、ハードコーディングは避けよう。`%INCLUDE`でコピーブック化するか、あるいは初期化ルーチンで外部パラメータからテーブルを読み込む設計にすべきだ。
2. TRIMとの併用
`TRANSLATE`を行う際、対象となる文字列に余計なスペースが含まれていないか注意が必要だ。`TRIM`や`SUBSTR`を駆使し、変換対象の範囲を厳密に制御すること。
3. ONユニットの活用
`TRANSLATE`自体は例外を発生させにくい関数だが、入出力時のレコード長不一致による`SUBSCRIPTRANGE`エラーなどは、`ON`ユニットで確実に捕捉し、ダンプを出力できるようにしておくこと。これが障害解析時の「命綱」になる。
最後に
メインフレームの技術は古いと言われることもあるが、こうした文字操作の細部にまで気を配る文化こそ、我々が守り続けてきた「堅牢なシステム」の根幹だ。`TRANSLATE`のような基本関数一つとっても、その裏にある文字コードの歴史やハードウェアの制約を理解して使いこなすことが、一流のアーキテクトへの近道である。
もし後輩が「`TRANSLATE`で文字化けした」と泣きついてきたら、まずは「そのデータ、本当にシングルバイトか？」と問いかけてやってほしい。それだけで、彼らはまた一つプロのエンジニアへと成長するはずだ。
