現場で泣かないためのPL/I：PIC編集文字と数値変換の深淵
古参のメインフレームエンジニアなら一度は経験があるはずだ。「なぜかバッチが異常終了し、ダンプリストを追いかけたらCONVERSIONエラーで止まっていた」という悪夢。
PL/Iの数値から文字への変換は、一見単純に見えて実は「言語の仕様」と「ハードウェアのメモリ上の表現」が交差する非常に繊細な領域だ。特に`PIC ‘9’`と`PIC ‘Z’`の使い分けを甘く見ると、後々データ転送やレポート出力で痛い目を見る。今日は、その「数値から文字への変換」における落とし穴と、実務で使える鉄則を解説しよう。
—
1. `PIC ‘9’`と`PIC ‘Z’`、この微妙かつ決定的な違い
まずは基本のおさらいだ。`PIC ‘9’`は「数字をそのまま表示する」のに対し、`PIC ‘Z’`は「先行するゼロをスペースに置換（ゼロサプレス）」する。
/i
DCL VAL_NUM FIXED DEC(5) INIT(123);
DCL CHAR_9 PIC ‘99999’;
DCL CHAR_Z PIC ‘ZZZZ9’;
CHAR_9 = VAL_NUM; / 結果: ‘00123’ /
CHAR_Z = VAL_NUM; / 結果: ‘ 123’ /
現場でよくあるのは、後続のシステムで「数値変換」を期待しているにもかかわらず、`PIC ‘Z’`を使ってしまい、空白が含まれたために変換失敗（CONVERSION条件）を招くケースだ。「数値として再利用するなら`PIC ‘9’`、帳票出力なら`PIC ‘Z’`」。この原則を忘れてはならない。
—
2. CONVERSION条件とONユニットの制御フロー
PL/Iが強力なのは、エラー発生時に「プログラムを即座に落とすか、救済するか」をプログラマが制御できる点だ。`ON CONVERSION`ユニットを使えば、変換失敗時に空っぽのデータをゼロに丸め込むといった制御が可能になる。
しかし、安易な`ON`ユニットはデバッグを困難にする。「なぜデータがおかしいのか」がわからなくなるからだ。大規模なバッチ改修では、エラー箇所をピンポイントで特定できるよう、ログ出力と組み合わせるのが鉄則だ。
実践的なコーディング例
/i
/ — 変換処理の安全対策例 — /
TEST_CONV: PROCEDURE OPTIONS(MAIN);
DCL IN_DATA CHAR(5) INIT(’00A23′); / 不正な文字データ /
DCL OUT_NUM FIXED DEC(5);
DCL CONV_ERR BIT(1) INIT(‘0’B);
/ 変換エラー時の制御フロー /
ON CONVERSION BEGIN;
CONV_ERR = ‘1’B;
/ エラー箇所を特定するため、ここでログを出力するのが定石 /
PUT SKIP LIST(‘警告: 変換不能データを発見 – ‘ || ONCHAR());
/ 変換対象の文字を強制的に’0’に置換して続行させる /
SUBSTR(ONCHAR(), 1, 1) = ‘0’;
RETRY;
END;
OUT_NUM = IN_DATA; / ここで変換が試行される /
IF CONV_ERR THEN
PUT SKIP LIST(‘処理は完了したが、変換エラーが含まれていた’);
ELSE
PUT SKIP LIST(‘正常終了: 値は ‘ || OUT_NUM);
END TEST_CONV;
—
3. VSAM入出力とデータ型の整合性
VSAMファイルからデータを読み込む際、Copybook（メンバー）定義とPL/Iの`DCL`宣言が食い違っていることは珍しくない。特にCOBOL側の`PIC X(5)`をPL/Iで`FIXED DEC`として受ける際、内部形式（パック10進数など）の解釈がずれると、`CONVERSION`どころか`DATA EXCEPTION`（S0C7）でジョブが即死する。
- 鉄則： 外部インターフェースとなる構造体は、可能な限りCopybookから自動生成し、手書きの`DCL`で型を決め打ちしないこと。
- BUILTINの活用： `UNSPEC()`関数や`BINARYVALUE()`を使い、意図しない型変換が発生していないか、データダンプ時に確認する癖をつけておこう。
—
4. ベテランからのアドバイス：保守の現場で生き残るために
PL/Iのコードを保守する際は、必ず「このデータはどこから来て、どこへ行くのか」を意識してほしい。
数値から文字への変換は、多くの場合「インターフェースの境界線」で起きる。そこには必ずビジネスルールが存在するはずだ。「なぜこのフィールドは`Z`なのか？」「なぜ`9`なのか？」。もし仕様書が古くても、コードの`PIC`定義がそのデータの性格を雄弁に物語っている。
- `PIC ‘999’`: 識別子やコード値など、固定長が保証されるべきデータ。
- `PIC ‘ZZ9’`: 画面や帳票に表示するための「人間用のデータ」。
この二つを混同しないだけで、君たちの書くコードの品質は劇的に向上する。
大規模な改修を行う際、`ON`ユニットを乱用してエラーを隠蔽するのは、「痛み止めでガンを治療する」ようなものだ。しっかりログを出し、異常を検知し、正しいデータフローを保つ。それが、メインフレームという巨大なシステムを安定稼働させる、我々アーキテクトの矜持というものだ。
何か技術的な壁にぶつかったら、またいつでもここへ来るといい。コンパイラの挙動からJCLのジョブ制御まで、いつでも相談に乗るよ。
