【入門編】FIXED DECIMAL型のパック十進数表現 – PL/Iの基本構文とデータ制御実践ガイド

JavaやCOBOLの経験者へ贈る、PL/I「パック十進数」の秘密基地へようこそ

こんにちは！メインフレームの世界へようこそ。
「PL/I？何それ、新しいプログラミング言語？」なんて驚かれることも多いのですが、実はこの言語、IBMメインフレームの歴史そのものと言っても過言ではない、驚くほど懐の深い言語なんです。

今日は、PL/Iを触り始めた皆さんが必ず一度は首を傾げる、「PIC属性によるパック十進数（FIXED DECIMAL）」の正体について紐解いていきましょう。COBOLの`PIC 9(7)V99 COMP-3`と仲良しなこの概念、実はPL/I流の「データの守り方」が詰まっているんですよ。

—

まず、初学者の皆さんが一番最初に驚くのが、「PL/Iには予約語（Reserved Words）が存在しない」という点です。

JavaやC言語だと、`IF`や`WHILE`は変数名に使えませんよね。でも、PL/Iは違います。例えば、こんなことが許されてしまいます。

1
/ 悪い例ですが、文法的には正しいコード /
IF = 10;
THEN = 20;
IF IF = THEN THEN THEN = 30;

なぜこれが可能なのか？それは、PL/Iコンパイラが「文脈」をものすごく賢く読み取っているからです。でも、現場では「可読性が下がるから絶対にやめようね」というのが暗黙のルール。自由度は高いけれど、大人の節度が求められる……そんなところが、PL/Iの「人間味」を感じさせますね。

—

さて、本題の「パック十進数」です。メインフレームの基幹システムでは、銀行の残高や売上金額など、「1円の狂いも許されない数値」を扱います。

Javaの`double`（浮動小数点数）を使うと、計算の過程で微小な誤差が出ることがありますが、メインフレームの世界では許されません。そこで登場するのが、`FIXED DECIMAL`型です。

簡単に言うと、「1バイトに2つの数字をぎゅっと詰め込む」技術です。

通常の文字（EBCDIC）なら1文字1バイトですが、パック十進数は違います。
例えば「12345」という数字なら、`1 2 | 3 4 | 5 +` のように、4バイト（ハーフワード）の中にきれいに収められます。最後の`+`は符号（プラス/マイナス）を表すための特別な場所です。

これが、メインフレームの限られたメモリを極限まで使い切るための「職人技」なんです。

—

では、実際にコードを見てみましょう。`PICTURE`（略して`PIC`）属性を使って宣言します。

1
/ 7桁の整数、小数点以下2桁の合計9桁を宣言 /
DCL AMOUNT PIC ‘9999999.99’ FIXED DECIMAL(9,2);

/ 値をセットしてみる /
AMOUNT = 12345.67;

このコードを書くと、コンパイラは内部で「これはパック十進数として処理すべきだ」と判断し、非常に効率的なマシンコードを生成してくれます。

Javaの`BigDecimal`を想像してみてください。あれをCPUレベルで、ハードウェアの回路を使って「爆速」で実行しているのが、このパック十進数なんです。メインフレームが何十年も基幹システムで選ばれ続けている理由は、この「数値演算の正確さとスピード」にあると言っても過言ではありません。

—

現場でよくある失敗談を一つ。

「異なる型（例えば浮動小数点数）とFIXED DECIMALを演算したとき、予期せぬ精度落ちが発生した！」というトラブルです。PL/Iは気を利かせて型変換（キャスト）をしてくれるのですが、「どこまで精度を保つか」のルールを理解していないと、泣きを見ることになります。

解決のコツ:

—

初めてPL/Iのコードを見たとき、その独特の記法に圧倒されるかもしれません。でも、一つひとつバラしてみれば、そこには「どうすれば最も効率よく、正確にデータを扱えるか」という先人たちの深い知恵が詰まっています。

まるで、古いけれど頑丈な時計のムーブメントを覗き込むような感覚です。
もし、現場で`DCL`や`PIC`に囲まれて迷子になったら、いつでもこの基本を思い出してくださいね。

皆さんのメインフレーム・ライフが、実りあるものになりますように！また次の技術解説でお会いしましょう。