皆さん、こんにちは！ IBMメインフレームの世界へようこそ。
JavaやCOBOLの経験がある皆さんにとって、PL/Iのコードを初めて見たとき、「うわ、なんか宣言が独特…」「このカッコの中の数字、何の意味があるの？」と、ちょっと面食らってしまうかもしれませんよね。特に、数値型、その中でも小数点を含む「浮動小数点数」は、普段何気なく使っているものですが、メインフレームの世界では、ちょっとだけ意識することが増えるんです。
でも、安心してください！ 今日は、PL/Iにおける浮動小数点数、特に`FLOAT BINARY`と`FLOAT DECIMAL`というキーワードが、皆さんの知っているJavaの`float`/`double`やCOBOLの`COMP-1`/`COMP-2`とどう違うのか、そしてその裏側に隠されたメインフレームならではの深い世界を、一つずつ丁寧に紐解いていきましょう。レガシー独特の仕様も、怖くないですよ。
—
PL/Iプログラムの基本構造を軽くおさらい
まず、PL/Iのプログラムがどんな形をしているのか、軽くおさらいしておきましょう。これから紹介するコード例は、基本的にこの中に記述していきます。
SAMPLE_PACKAGE: PACKAGE OPTIONS(MAIN);
//
/ メインルーチンを定義します /
//
MAIN_PROC: PROCEDURE OPTIONS(MAIN);
/ ここに皆さんの処理を記述します /
/ 例：浮動小数点数の宣言と計算 /
END MAIN_PROC;
END SAMPLE_PACKAGE;
`PACKAGE`と`PROCEDURE OPTIONS(MAIN)`がプログラムの入り口になります。Javaで言うところの`public static void main(String[] args)`みたいなもの、COBOLで言うところの`IDENTIFICATION DIVISION.`から始まるプログラム全体、というイメージで捉えてもらえれば大丈夫です。
今日はこの`MAIN_PROC`の中に焦点を当てて、浮動小数点数の奥深さに迫っていきましょう！
—
浮動小数点数って、そもそも何でしたっけ？
Javaの`float`や`double`、COBOLの`COMP-1`や`COMP-2`、C言語の`float`や`double`など、皆さんも小数点以下の値を扱うときに、これらの型を使ってきましたよね。浮動小数点数は、非常に大きな値から非常に小さな値まで、幅広い範囲の小数を効率的に表現するためのものです。
でも、メインフレーム、特にPL/Iの世界では、この「浮動小数点数」という概念が、さらに二つの顔を持っているんです。それが、`FLOAT BINARY`と`FLOAT DECIMAL`。
PL/Iにおける浮動小数点数の宣言
まずは宣言の仕方を見てみましょう。
DCL F_BIN_SINGLE FLOAT BINARY(21); / 単精度浮動小数点数 (BINARY) /
DCL F_BIN_DOUBLE FLOAT BINARY(53); / 倍精度浮動小数点数 (BINARY) /
DCL F_DEC_SINGLE FLOAT DECIMAL(6); / 単精度浮動小数点数 (DECIMAL) /
DCL F_DEC_DOUBLE FLOAT DECIMAL(16); / 倍精度浮動小数点数 (DECIMAL) /
見たことのない数字がカッコの中に入っていますよね。これこそが、PL/Iの浮動小数点数の奥深さの入り口です。
- `FLOAT BINARY(p)`：2進数（バイナリ）表現の浮動小数点数。カッコ内の`p`は「仮数部のビット数」を指定します。PL/Iでは、この`p`の値によって、実質的に単精度（SHORT）、倍精度（LONG）、拡張精度（EXTENDED）のいずれになるかが決まります。
- `p <= 21` の場合：単精度（32ビット、Javaの`float`相当）
- `21 < p <= 53` の場合：倍精度（64ビット、Javaの`double`相当）
- `53 < p <= 106` の場合：拡張精度（128ビット、非常に高精度）
- `FLOAT DECIMAL(p)`：10進数（デシマル）表現の浮動小数点数。カッコ内の`p`は「仮数部の10進数桁数」を指定します。
- `p <= 6` の場合：単精度（32ビット）
- `6 < p <= 16` の場合：倍精度（64ビット）
- `16 < p <= 34` の場合：拡張精度（128ビット）
おや？ `FLOAT DECIMAL`なのに、ビット数が32ビットとか64ビットとか書いてありますよね？ そうなんです、ここがPL/Iのちょっと面白い（そして戸惑う）ポイントです。実は、PL/Iの`FLOAT DECIMAL`は、内部的には`FLOAT BINARY`形式（2進数浮動小数点数）に変換されて計算されることが多いんです。これは後で詳しく触れましょう。
—
IEEE 754 と IBM形式：メインフレーム浮動小数点数の二つの顔
さて、ここからが本番です。皆さんが普段使っているPCやUNIX系のシステムでは、浮動小数点数の標準として「IEEE 754」という規格が広く採用されています。Javaの`float`/`double`も、C言語の`float`/`double`も、基本的にはこのIEEE 754に準拠しています。
しかし、歴史あるIBMメインフレームの世界には、古くから独自の「IBM形式（Hexadecimal Floating Point）」という浮動小数点数の形式が存在します。そして、近年になってメインフレームもIEEE 754をサポートするようになりました。これにより、PL/Iプログラムは、どちらの形式の浮動小数点数も扱えるようになったのです。
なぜこれが重要なのでしょうか？ それは、同じ「0.1」という値でも、IEEE 754形式とIBM形式では、コンピュータ内部での表現（ビットの並び）が全く異なるからです。
浮動小数点数の基本的な構造
どちらの形式も、一般的に以下の三つの要素で構成されています。
1. 符号部 (Sign Bit)：数値が正 (+) か負 (-) かを示す1ビット。
2. 指数部 (Exponent)：小数点（あるいは基数点）の位置を示す部分。
3. 仮数部 (Fraction / Mantissa)：数値の有効桁を示す部分。
IBM形式 (Hexadecimal Floating Point) の特徴
IBMメインフレームが古くから採用している形式です。
- 基数 (Base)：16（16進数）。指数部が16のべき乗を表します。
- 指数部 (Exponent)：7ビットで表現され、`バイアス値 + 指数` の形で格納されます。バイアス値は64（16進数でX’40’）。つまり、実際の指数に64を足した値が格納されます。
- 仮数部 (Fraction)：24ビット（単精度）、56ビット（倍精度）、112ビット（拡張精度）などで表現されます。
- 正規化 (Normalization)：仮数部の最上位桁が0でない最初の1桁（16進数）になるように調整されます。先頭が1である必要はなく、0でも有効な数値として扱われます。
例えば、単精度の場合、32ビットの内訳は以下のようになります。
| ビット | 0 | 1-7 | 8-31 |
| :—— | :—- | :—- | :———— |
| 内容 | 符号 | 指数 | 仮数 |
| サイズ | 1ビット | 7ビット | 24ビット |
IEEE 754 形式 (Binary Floating Point) の特徴
現在、世界中で標準となっている形式です。
- 基数 (Base)：2（2進数）。指数部が2のべき乗を表します。
- 指数部 (Exponent)：単精度で8ビット、倍精度で11ビットなど、形式によって異なります。こちらもバイアス値が使われます（単精度で127、倍精度で1023）。
- 仮数部 (Mantissa)：単精度で23ビット、倍精度で52ビットなど、形式によって異なります。
- 正規化 (Normalization)：仮数部は常に`1.f`の形で表現されます。この先頭の「1」は暗黙的に存在するものとして、実際には格納されません。これにより、1ビット分の精度を稼いでいます。
例えば、単精度の場合、32ビットの内訳は以下のようになります。
| ビット | 0 | 1-8 | 9-31 |
| :—— | :—- | :—- | :———— |
| 内容 | 符号 | 指数 | 仮数（暗黙の1を除く） |
| サイズ | 1ビット | 8ビット | 23ビット |
なぜ二つの形式があるの？ 現場で何が問題になるの？
古くから稼働しているメインフレーム上のPL/Iプログラムは、通常、IBM形式の浮動小数点数を使用しています。しかし、近年、COBOLの`COMP-1`/`COMP-2`がIEEE 754形式をサポートしたり、メインフレームとオープン系システム（PC、UNIX、クラウド）との連携が増えたりする中で、IEEE 754形式の重要性が高まってきました。
現場で問題になるのは、主に以下の点です。
- データ連携時のデータ化け：メインフレームのIBM形式データと、PCやUNIXのIEEE 754形式データを直接やり取りすると、同じビット列でも解釈が異なるため、数値が全く違うものになってしまいます。変換処理が必須になります。
- 計算結果の差異：同じ計算を行っても、形式の違い（特に基数と正規化のルール）により、ごくわずかながら計算結果が異なることがあります。これは特に金融計算などで厳密な一致が求められる場合に問題となります。
- パフォーマンス：PL/Iコンパイラは、デフォルトでIBM形式を生成します。しかし、`OPTIONS(IEEE)`コンパイラオプションを指定することで、IEEE 754形式を生成することも可能です。プログラム内でIBM形式とIEEE 754形式のデータが混在すると、形式変換のためのオーバーヘッドが発生し、処理性能が低下する可能性があります。
—
ハードウェア浮動小数点演算ユニット（FPU）の利用
メインフレームのCPUには、これらの浮動小数点演算を高速に処理するための専用のハードウェアユニット（FPU）が搭載されています。PL/Iコンパイラは、皆さんが`DCL`で宣言したデータ型（`FLOAT BINARY(21)`なのか`FLOAT BINARY(53)`なのか、あるいは`FLOAT DECIMAL`なのか）を分析し、それに最適なFPUの命令を自動的に生成してくれます。
つまり、`FLOAT BINARY(21)`と宣言すれば単精度FPU命令が、`FLOAT BINARY(53)`と宣言すれば倍精度FPU命令が使われ、これらが計算の速度や精度に直結するわけです。
PL/Iが古くからある言語でありながら、現代でも基幹システムで現役で活躍し続けている理由の一つに、このようにハードウェアの能力を最大限に引き出す設計がなされている点があります。型宣言一つで、裏側で使われるCPU命令が変わるというのは、他言語経験者の方には新鮮に感じるかもしれませんね。
—
実践！PL/Iコードで浮動小数点数を触ってみよう
では、実際にPL/Iコードで浮動小数点数を宣言し、簡単な計算をしてみましょう。そして、その精度や振る舞いを観察してみます。
SAMPLE_PACKAGE: PACKAGE OPTIONS(MAIN);
MAIN_PROC: PROCEDURE OPTIONS(MAIN);
DCL F_BIN_S FLOAT BINARY(21); / 単精度 FLOAT BINARY (32ビット) /
DCL F_BIN_D FLOAT BINARY(53); / 倍精度 FLOAT BINARY (64ビット) /
DCL F_DEC_S FLOAT DECIMAL(6); / 単精度 FLOAT DECIMAL (32ビット) /
DCL F_DEC_D FLOAT DECIMAL(16); / 倍精度 FLOAT DECIMAL (64ビット) /
DCL F_BIN_EXT FLOAT BINARY(106); / 拡張精度 FLOAT BINARY (128ビット) /
/ ————————————————– /
/ 計算例：割り切れない数値を扱ってみる /
/ ————————————————– /
PUT SKIP LIST(‘— 浮動小数点数 計算例 —‘);
F_BIN_S = 10.0 / 3.0;
F_BIN_D = 10.0 / 3.0;
F_DEC_S = 10.0 / 3.0;
F_DEC_D = 10.0 / 3.0;
F_BIN_EXT = 10.0 / 3.0;
PUT SKIP LIST(‘F_BIN_S (単精度BINARY) = ‘, F_BIN_S);
PUT SKIP LIST(‘F_BIN_D (倍精度BINARY) = ‘, F_BIN_D);
PUT SKIP LIST(‘F_DEC_S (単精度DECIMAL) = ‘, F_DEC_S);
PUT SKIP LIST(‘F_DEC_D (倍精度DECIMAL) = ‘, F_DEC_D);
PUT SKIP LIST(‘F_BIN_EXT (拡張精度BINARY) = ‘, F_BIN_EXT);
/ ————————————————– /
/ 精度による違いを観察してみる /
/ 0.1 という数値は、2進数で正確に表現できません /
/ ————————————————– /
PUT SKIP LIST(‘— 精度による違い (0.1) —‘);
F_BIN_S = 0.1;
F_BIN_D = 0.1;
F_DEC_S = 0.1;
F_DEC_D = 0.1;
F_BIN_EXT = 0.1;
PUT SKIP LIST(‘F_BIN_S (0.1) = ‘, F_BIN_S);
PUT SKIP LIST(‘F_BIN_D (0.1) = ‘, F_BIN_D);
PUT SKIP LIST(‘F_DEC_S (0.1) = ‘, F_DEC_S);
PUT SKIP LIST(‘F_DEC_D (0.1) = ‘, F_DEC_D);
PUT SKIP LIST(‘F_BIN_EXT (0.1) = ‘, F_BIN_EXT);
/ ————————————————– /
/ FLOAT DECIMALの内部変換に関する注意点 /
/ 通常、FLOAT DECIMALはFLOAT BINARYに変換されて計算されます。/
/ この変換によって、予期せぬ微細な誤差が生じることがあります。/
/ ————————————————– /
PUT SKIP LIST(‘— FLOAT DECIMAL 内部変換の注意 —‘);
DCL A FLOAT DECIMAL(6) INIT(0.1);
DCL B FLOAT DECIMAL(6) INIT(0.2);
DCL C FLOAT DECIMAL(6);
C = A + B; / 0.1 + 0.2 /
PUT SKIP LIST(‘FLOAT DECIMAL(6) C = A + B (0.1 + 0.2) = ‘, C);
/ 多くの環境で、Cの値は0.30000000000000004 のような結果になることがあります /
/ これはFLOAT BINARYと同様に、0.1や0.2が2進数で正確に表現できないためです。/
/ FIXED DECIMALを使えば、このような誤差は避けられますが、それはまた別の話。/
END MAIN_PROC;
END SAMPLE_PACKAGE;
このコードを実行すると、特に`0.1`のような値を代入した際に、単精度と倍精度、さらには拡張精度で出力される桁数が異なることが分かります。また、`0.1 + 0.2`が厳密に`0.3`にならない、という浮動小数点数特有の性質も確認できるでしょう。
ここで唸るような深い知見：FLOAT DECIMALの落とし穴
先ほど、「PL/Iの`FLOAT DECIMAL`は、内部的には`FLOAT BINARY`形式に変換されて計算されることが多い」と述べましたよね。これは、他言語で「10進浮動小数点数」を意識してきた皆さんにとっては衝撃かもしれません。
JavaやC#などでは、厳密な10進数計算のために`BigDecimal`や`decimal`型がありますが、PL/Iの`FLOAT DECIMAL`は、残念ながら「見た目は10進数、中身は2進数（変換後）」という振る舞いをすることが多いのです。
これはなぜかというと、メインフレームのハードウェアFPUが、主に2進数浮動小数点数（IBM形式またはIEEE 754形式）の計算に最適化されているためです。コンパイラは、効率を重視して、`FLOAT DECIMAL`の値をいったん`FLOAT BINARY`に変換し、FPUで計算し、結果を再び`FLOAT DECIMAL`の形式で出力しようとします。
この「変換の往復」が、思わぬ計算誤差を生む原因となったり、処理速度のボトルネックになったりすることがあります。もし厳密な10進数計算が必要な場合は、`FLOAT DECIMAL`ではなく、`FIXED DECIMAL`（固定小数点数）を使用することを検討する必要があります。これはまた別の機会に詳しく解説したいテーマですね。
—
現場でよくある落とし穴とトラブルシューティング
レガシーシステム移行や改修の現場では、浮動小数点数に関するこんなトラブルがよく発生します。
1. 計算誤差が許容できない
- 現象: 財務計算や税額計算などで、わずかな計算誤差が問題になる。
- 原因: `FLOAT BINARY`や`FLOAT DECIMAL`を使っているために、0.1のような値が正確に表現できず、計算が累積すると誤差が大きくなる。特に`FLOAT DECIMAL`でも誤差が出ることに驚かれる方が多いです。
- 対策: 厳密な10進数計算が必要な場合は、`FIXED DECIMAL`（固定小数点数）を使用することを検討する。小数点以下の桁数と整数部の桁数を明示的に指定することで、誤差のない計算が可能になります。
2. 他システム連携時のデータ化け
- 現象: メインフレームのPL/Iプログラムが出力した浮動小数点数データを、PCやUNIXのプログラムで読み込むと、全く異なる値になる。
- 原因: メインフレームのIBM形式浮動小数点数と、PC/UNIXのIEEE 754形式浮動小数点数の内部表現が異なるため。
- 対策: データ連携時に、IBM形式からIEEE 754形式へ、あるいはその逆への明示的な変換処理を挟む。PL/Iの`CONVERT`組み込み関数や、中間ファイル形式（Packed Decimalなど）を利用することも有効です。
3. パフォーマンスの低下
- 現象: 大量の浮動小数点数計算を含むバッチ処理が、想定より時間がかかる。
- 原因: プログラム内でIBM形式とIEEE 754形式のデータが混在しており、コンパイラが逐一形式変換を行っている。または、精度を上げすぎて不必要な`FLOAT BINARY(106)`のような拡張精度を使っている。
- 対策: プログラム全体で統一された浮動小数点数形式（例えば、`OPTIONS(IEEE)`を指定して全てIEEE 754にする）を使用する。必要な精度を十分に検討し、適切な型（単精度か倍精度か）を選択する。
私自身も、COBOLの`COMP-1`/`COMP-2`とPL/Iの`FLOAT BINARY`を連携させるときに、まさか同じメインフレームシステム内なのにこんなに苦労するとは…と頭を抱えた経験がありますよ。基幹システムの現場では、「当たり前」が当たり前じゃないことが多々ありますからね。
—
まとめ
今日は、PL/Iにおける浮動小数点数、特に`FLOAT BINARY`と`FLOAT DECIMAL`の奥深い世界を覗いてみました。
- PL/Iの浮動小数点数には、IBM形式とIEEE 754形式の二つの内部表現があること。
- `FLOAT BINARY(p)`の`p`や`FLOAT DECIMAL(p)`の`p`の値によって、単精度・倍精度・拡張精度が決まり、裏側で使われるハードウェアの命令まで変わってくること。
- `FLOAT DECIMAL`が内部的には`FLOAT BINARY`に変換されて計算されることが多く、それが思わぬ計算誤差や性能問題につながることがあること。
これらの知識は、メインフレームのレガシーシステムを理解し、現代のシステムと連携させる上で非常に重要になります。一見すると複雑に見えるPL/Iの仕様も、その背景にある歴史やハードウェアの特性を理解すれば、決して怖くありません。一つずつ紐解けば、きっと皆さんの大きな力になるはずです。
次回は、より厳密な10進数計算を可能にする`FIXED DECIMAL`と`FIXED BINARY`について、さらに深く掘り下げていきましょうか。お楽しみに！
