こんにちは！IBMメインフレームの世界へようこそ。
JavaやCOBOLといったモダン、あるいはビジネスで広く使われている言語の経験がある方にとって、PL/I（Programming Language One）という名前を聞くだけで「なんだか難解そう」「古いメインフレーム特有の厳しいルールがありそう」と、ちょっと身構えてしまうかもしれませんよね。
でも、安心してください。今日一緒に紐解いていく「数値の編集（ピクチャ句）」の世界は、一見すると独特な記号が並んで呪文のように見えますが、その裏側にあるルールや仕組みは非常にロジカルで、実は他の言語よりも表現力が豊かで面白いんです。
今回は、JavaやCOBOLの感覚とは少し違う、PL/Iならではの「PIC ‘9’ と ‘Z’ による数値編集の差異とゼロサプレス（先行ゼロの消去）」について、現場のノウハウを交えながら優しく丁寧に解説していきますね。
—
1. なぜ「数値の見た目」を整える必要があるの？
プログラムの内部で扱う数値データ（例えば、売上金額や社員番号など）は、通常、コンピュータが計算しやすいように「Packed Decimal（パック10進数）」や「固定小数点数」といった形式でメモリ上に保持されています。
しかし、これをそのまま画面に黒い画面（3270エミュレータなど）で表示したり、テキストファイルに出力したりするとどうなるでしょう？
コンピュータにとっては都合が良くても、私たち人間にとっては非常に見づらいものになってしまいます。
例えば、メモリ上に `0000012345` という数値が入っていたとします。これを帳票や画面に、
- 左側の無駄な「0」を消して ` 12,345` のように綺麗に並べたい
- 金額だから頭に「￥」マークをつけたい
こういった「人間が見やすいようにデータの見た目を飾り付ける（編集する）」ために使われるのが、PL/Iのピクチャ（PICTURE）句です。
—
2. JavaやCOBOL経験者が驚く？ PL/Iのピクチャ編集の基本
COBOLを触ったことがある方なら、「あぁ、`PIC 9(5)` とか `PIC Z(5)` の話ね」とピンと来るかもしれません。Javaなら `DecimalFormat` クラスのイメージですね。
PL/Iでも基本の考え方は似ていますが、その表現力とコンパイラの懐の深さはなかなかのものです。
まずは、今回の主役である `’9’` と `’Z’` の違いを、身近な例えで見てみましょう。
データの「枠」を作る `’9’`（数字位置）
- イメージ： どんな数字でもぴったり収まる「透明なポケット」
- 特徴： そこに数字があればその数字を表示し、もしデータがなければ「0」で埋め尽くします。
- 例： 編集パターンが `PIC ‘99999’` で、中身が `123` なら、出力は `00123` になります。
不要なゼロを消し去る `’Z’`（ゼロサプレス）
- イメージ： 空席なら席を譲る「スマートな空白シート」
- 特徴： 先頭にある不要な「0」（先行ゼロ：Leading Zeros）を検知すると、それを綺麗に「スペース（空白）」に置き換えてくれます。
- 例： 編集パターンが `PIC ‘ZZZZ9’` で、中身が `123` なら、出力は ` 123`（頭の2桁分がスペース）になります。
ここで「おっ？」と思った鋭い方いらっしゃいますよね。「最後の `9` は何で `Z` にしなかったの？」と。
そうなんです！ここが非常に重要なポイントなのですが、もしすべてを `Z` にしてしまうと、中身が「0」だった場合にすべてが真っ白な空白になってしまい、金額の「0円」かすら分からなくなってしまいます。そのため、一番下の桁には通常 `9` を残して、「たとえ0円であっても、最低1桁は『0』を表示する」というお作法をとるのが一般的です。
—
3. 実践！PL/Iコードで挙動の違いを確認してみよう
百聞は一見にしかず。実際にメインフレームのバッチプログラムを想定した、シンプルなPL/Iのコードを見てみましょう。
COBOLやJavaから移行してきた方でもすんなり読めるよう、日本語のコメントをたっぷり添えておきました。
1
/ ======================================================== /
/ 編集ピクチャ（’9′ と ‘Z’）の動作確認サンプルプログラム /
/ ======================================================== /
EDIT_SAMPLE: PROC OPTIONS(MAIN);
/ 1. 変数の宣言 /
DCL RAW_DATA PIC ‘9(5)’ INIT(123); / 編集前の元データ（数値：123） /
DCL OUT_PAT_9 PIC ‘99999’; / すべて’9’のパターン /
DCL OUT_PAT_Z PIC ‘ZZZZ9’; / ゼロサプレス用パターン /
DCL W_MSG CHAR(30); / 画面出力用のワーク領域 /
/ 2. データの代入（ここで自動的にピクチャ編集が行われます） /
OUT_PAT_9 = RAW_DATA;
OUT_PAT_Z = RAW_DATA;
/ 3. 結果の確認（DISPLAYステータスでコンソールに出力） /
W_MSG = ‘元データ(数値): ‘ || RAW_DATA;
PUT SKIP EDIT (W_MSG) (A);
W_MSG = ‘PIC 99999 結果: [‘ || OUT_PAT_9 || ‘]’;
PUT SKIP EDIT (W_MSG) (A);
W_MSG = ‘PIC ZZZZ9 結果: [‘ || OUT_PAT_Z || ‘]’;
PUT SKIP EDIT (W_MSG) (A);
END EDIT_SAMPLE;
このプログラムを実行したときの出力イメージ
コンソールやSYSOUTには、次のように出力されます。
元データ(数値): 00123
PIC 99999 結果: [00123]
PIC ZZZZ9 結果: [ 123]
どうでしょうか？
`OUT_PAT_9`（すべて `9`）の方は、頭の足りない部分が `0` で埋められて `00123` になっていますが、`OUT_PAT_Z`（`Z` と `9` の組み合わせ）の方は、頭の不要なゼロが綺麗に空白に置き換わり、右側にキュッと寄った ` 123` になっているのが一目で分かりますよね。
—
4. レガシー移行・実務における注意点とアーキテクトからのアドバイス
実務の現場でこのようなピクチャ編集を扱う際、移行スペシャリストとしていくつか知っておいてほしい「ハマりどころ」があります。
1. データ属性の暗黙的変換に注意する
PL/Iは非常に柔軟な言語であるため、計算用のデータ（FIXED BINARYなど）からピクチャ編集された文字型（CHAR扱い）への代入を行う際、コンパイラがよしなに変換してくれます。しかし、データ定義の桁数と編集パターンのサイズが合っていないと、思わぬデータ切り捨てやコンパイル警告（場合によっては実行時エラー）の原因になります。設計時は桁数をしっかり合わせましょう。
2. Javaや外部システム連携時の空白（スペース）の扱い
`Z` によって置き換えられたスペースは、文字通りの「半角スペース」です。もしこのデータをJSONやCSVに変換してJavaなどのオープン系システムへ連携する場合、頭の空白がそのまま残るため、受け取り側で `trim()` 処理を入れるなどの配慮が必要になるケースがあります。レガシーとモダンの境界線では、この「見えない空白」がバグの原因になりやすいので注意してくださいね。
—
まとめ
今回は、PL/Iにおける `PIC ‘9’` と `PIC ‘Z’` の違いと、ゼロサプレスの仕組みについて解説しました。
- `’9’` はポケット！ データがなければ「0」で埋める。
- `’Z’` はお気遣いシート！ 先頭の不要な「0」を「空白」に変えてすっきり見せる。
- 帳票や画面の見た目を整えるためには、`Z` と `9` を組み合わせて使うのが定石。
レガシー言語と聞くと難しく身構えてしまいますが、一つひとつの記号の意味を解きほぐしていけば、当時のプログラマたちの「いかに帳票を綺麗に見やすく印刷するか」という工夫や優しさが詰まっていることに気づくはずです。
怖がる必要は全くありません。ぜひ、あなたの手元の環境やテストプログラムで、色々なパターンを試してみてくださいね！次回の解説もお楽しみに。
