メインフレームの美学と「9」と「Z」の深淵
こんにちは。長年、金融や流通の基幹システムでIBMメインフレームの番人を務め、現在はレガシーマイグレーションの現場でJavaやC#への脱却を指揮しているシステムアーキテクトだ。
PL/Iという言語は、COBOLのような「お堅い事務処理言語」の顔を持ちながら、C言語並みのポインタ操作やブロック構造を内包する、実に奥深い言語である。そして、この言語の真骨頂の一つが、ピクチャ句（PICTURE）による強力な数値編集機能だ。
特に、帳票出力や外部インターフェース電文の生成において頻繁に登場する `PIC ‘9’` と `PIC ‘Z’` は、単なる「ゼロ埋めか、スペース埋めか」という単純な違いではない。ここを甘く見ていると、夜間バッチの金額印字ズレグロバール障害や、マイグレーション先での予期せぬNumberFormatException、果てはDB2やCICSを巻き込んだ深刻なデータ破損の温床となる。
今回は、この `9` と `Z` の挙動の差異を、コンパイラの内部処理、パックデシマルの符号反転リスク、そしてモダン言語への移行設計という実務の最前線の視点から、徹底的に紐解いていこう。
—
1. 基礎的挙動：先行ゼロの抑制（Z）と固定表示（9）のメカニズム
まずは、両者の基本的な振る舞いを整理する。
PL/Iにおけるピクチャ編集は、内部の算術データ（COMP-3や固定小数点など）を、人間が読みやすい文字データ（CHAR）へ変換するプロセスだ。
- `PIC ‘9’`（数字位置指定子）:
定義された桁数を厳格に死守する。値が足りない場合の先行ゼロ（Leading Zero）はそのまま残る。
- `PIC ‘Z’`（ゼロサプレッション指定子）:
値がゼロである場合、あるいは有効数字に至るまでの先行ゼロを、すべてブランク（空白）に置き換える。
百聞は一見に如かず。まずは以下のPL/Iコードを見てほしい。
/ ========================================================== /
/ PIC ‘9’ と PIC ‘Z’ の挙動差異を示すサンプルプログラム /
/ ========================================================== /
EDT_TEST: PROC OPTIONS(MAIN);
DCL WS_NUM_RAW FIXED DEC(7,0) INIT(123); / 基底の数値変数 /
DCL WS_NUM_ZERO FIXED DEC(7,0) INIT(0); / ゼロ値のテスト用 /
/ 出力用編集変数 /
DCL OUT_FIXED PIC ‘9999999’; / 9による固定表示 /
DCL OUT_SUPPRESS PIC ‘ZZZZZZ9’; / Zによる先行ゼロ抑制 /
DCL OUT_ALL_Z PIC ‘ZZZZZZZ’; / 全桁Zの極端な例 /
/ 1. 通常の値（123）の編集 /
OUT_FIXED = WS_NUM_RAW;
OUT_SUPPRESS = WS_NUM_RAW;
OUT_ALL_Z = WS_NUM_RAW;
PUT SKIP LIST(‘— 1. 値が 123 の場合 —‘);
PUT SKIP EDIT(‘PIC 97 : [‘, OUT_FIXED, ‘]’) (A, A, A);
PUT SKIP EDIT(‘PIC Z69 : [‘, OUT_SUPPRESS, ‘]’) (A, A, A);
PUT SKIP EDIT(‘PIC Z7 : [‘, OUT_ALL_Z, ‘]’) (A, A, A);
/ 2. 値が 0 の場合の編集 /
OUT_FIXED = WS_NUM_ZERO;
OUT_SUPPRESS = WS_NUM_ZERO;
OUT_ALL_Z = WS_NUM_ZERO;
PUT SKIP SKIP LIST(‘— 2. 値が 0 の場合 —‘);
PUT SKIP EDIT(‘PIC 97 : [‘, OUT_SUPPRESS, ‘]’) (A, A, A); / 誤記にあらず比較用 /
PUT SKIP EDIT(‘PIC 97(0) : [‘, OUT_FIXED, ‘]’) (A, A, A);
PUT SKIP EDIT(‘PIC Z69(0): [‘, OUT_SUPPRESS, ‘]’) (A, A, A);
PUT SKIP EDIT(‘PIC Z7(0) : [‘, OUT_ALL_Z, ‘]’) (A, A, A);
END EDT_TEST;
このコードを実行したとき、メインフレームのSYSOUTには以下のように出力される。
— 1. 値が 123 の場合 —
PIC 97 : [0000123]
PIC Z69 : [ 0123]
PIC Z7 : [ 123]
— 2. 値が 0 の場合 —
PIC 97(0) : [0000000]
PIC Z69(0): [ 0]
PIC Z7(0) : [ ] <-- 全てがブランクになる点に注意！
ここで最後の `OUT_ALL_Z`（`PIC 'Z7'`）がすべてブランクになったことに注目してほしい。完全なゼロ値を `Z` のみで受け受けた場合、文字が1文字も出力されず、完全な空白（Spaces）になってしまう。金額の印字欄などで「0円」と表示させたい仕様であるにもかかわらず、うっかり `PIC ‘ZZZZ.ZZ’` のように設計してしまうと、ゼロ円が「完全な空白」として出力され、帳票監査で大目玉を喰らうことになる。これが実務で最も頻発する罠だ。
—
2. アーキテクチャの深層：コンパイラ最適化とパックデシマルの符号反転リスク
PL/Iコンパイラ（Enterprise PL/Iなど）は、これらのピクチャ編集を行う際、背後で緻密な機械語命令（パック・デシマル演算命令や、ゾーン10進数への変換命令である `PACK`, `UNPK`, `CVT` など）を生成している。
ここでシステムアーキテクトとして知っておくべきは、ベース変数とポインタを用いた動的メモリ操作（Based変数）や、ストレージの再定義（DEFINED）を伴うエッジケースだ。
/ ポインタとベース変数を用いたストレージ直接操作の例 /
DCL MY_PTR POINTER;
DCL 1 MY_REC BASED(MY_PTR),
3
