【入門編】PIC ‘9’および’Z’による数値編集の挙動 – PL/Iの基本構文とデータ制御実践ガイド

【PL/I入門】数値編集の「ゼロ抑制」を攻略！’Z’と’9’が織りなす表示の魔法

こんにちは。メインフレームの世界へようこそ！
JavaやCOBOLといった現代的な言語に慣れていると、PL/Iのコードを見た瞬間に「なんだこの記号の羅列は…」と腰が引けてしまうことがありますよね。特に、画面や帳票に出力するための「数値編集」周りは、一見すると呪文のようです。

でも安心してください。PL/Iの数値編集は、一度ルールさえ掴んでしまえば、これほど「痒い所に手が届く」便利な機能はないんです。今日は、特に現場でよく見かける`PICTURE`句を使った数値編集について、紐解いていきましょう。

—

まず、大前提のお話です。PL/Iでは、計算用のデータ（`FIXED BINARY`など）と、画面や帳票に表示するためのデータは厳密に区別されます。

プログラム内部で「100」という数値を持っていても、それをそのまま出力すると「000000100」と表示されたり、あるいは見やすく「 100」と表示したかったりしますよね。この「見た目を整える」作業を担うのが、`PICTURE`属性です。

—

数値を文字に変換する際、最もよく使われるのが`9`と`Z`です。これらは「桁」を表しますが、その挙動には明確な違いがあります。

`9` (Numeric digit): 「そこに数字があるなら表示する。なければ『0』を表示する」。これは、桁を絶対に埋めるという意志の表れです。
`Z` (Zero suppression): 「そこに数字があるなら表示する。もし『0』なら、空白（スペース）に置き換える」。これが、いわゆるゼロ抑制です。

例えば、内部に「15」という数値を持っているとします。

| 宣言 | 結果 | 備考 |
| :— | :— | :— |
| `PICTURE ‘999’` | `015` | 足りない桁は0で埋め尽くされます |
| `PICTURE ‘ZZZ’` | ` 15` | 前方の0は空白に置き換わります |

COBOLを触ったことがある方なら「あ、あのPICTURE句と同じだ！」とピンとくるかもしれませんね。まさにその通りです。PL/Iのこの仕様は非常に直感的です。

—

では、実際にプログラムを動かすイメージでコードを見てみましょう。

1
TEST_PROC: PROCEDURE OPTIONS(MAIN);

/ 内部計算用の数値データ /
DCL AMOUNT FIXED DECIMAL(5) INIT(15);

/ 編集用の文字列データ（PICTURE句で型を定義） /
DCL OUT_999 PICTURE ‘999’;
DCL OUT_ZZZ PICTURE ‘ZZZ’;

/ 値を代入すると、自動的に編集ルールが適用されます /
OUT_999 = AMOUNT;
OUT_ZZZ = AMOUNT;

/ 結果：
OUT_999 は ‘015’ となります
OUT_ZZZ は ‘ 15’ となります（先頭にスペース）
/
PUT SKIP LIST (‘999の結果:’, OUT_999);
PUT SKIP LIST (‘ZZZの結果:’, OUT_ZZZ);

END TEST_PROC;

このように、代入した瞬間にPL/Iが「お、これは表示用だな。じゃあルール通りに変換しておくよ」と裏側でせっせと働いてくれるわけです。

—

ここで一つ、現場でエンジニアが冷や汗をかくポイントをご紹介します。それは「桁あふれ（Overflow）」です。

もし、`PICTURE ‘ZZZ’`（3桁分）と宣言している変数に対して、`1000`という4桁の数値を代入しようとしたらどうなるでしょうか？

Javaであれば例外（Exception）が投げられることが多いですが、PL/Iのデフォルトの挙動は少し異なります。上位桁が切り捨てられ、最悪の場合、計算結果としておかしな数値が残ったままプログラムが進んでしまうことがあります（コンパイラオプションや環境によります）。

特にデータマイグレーションの現場では、古いシステムから持ってきた数値が想定より大きく、この桁あふれで「金額が合わない！」といったトラブルがよく発生します。PICTURE句の桁数は、必ず最大値をカバーできる余裕を持って宣言すること。これが現場の鉄則です。

—

PL/Iの`PICTURE`句は、一見すると古臭い記法に見えるかもしれません。しかし、これはメモリが非常に貴重だった時代に、プログラム自身が「どう表示するか」を最小限の指示でスマートに解決するための知恵なのです。

`Z`と`9`。この二つを使いこなせれば、帳票出力やログ出力の質は劇的に向上します。まずは小さなプログラムで、色々なパターンを試してみてください。

「変な値を代入したらどうなるんだろう？」と実験してみる好奇心こそが、メインフレームエンジニアとして成長する一番の近道です。次回のブログでは、`V`（小数点の位置指定）や`$`（通貨記号）を含めた、もう少し高度な編集テクニックについて深掘りしていこうと思います。

それでは、また次回の記事でお会いしましょう！