1. 導入
メインフレームの基幹システムにおいて、パック10進数（COMP-3）はデータの標準形式ですが、符号ニブルの取り扱いに悩まされた経験はありませんか？特に、ホスト外とのデータ連携や、レガシーなバイナリ比較を行う際、`X’F’`（符号なし）と `X’C’`（正）の混在が原因で「数値は同じなのに比較で不一致になる」というトラブルが後を絶ちません。本稿では、この物理構造の特性を理解し、安全に比較・処理する方法を解説します。
2. 基礎知識
パック10進数は、1バイトに2桁の数値を格納し、最後の4ビット（ニブル）を符号領域として使用します。
・X’C’: 正の数（例: 123C = +123）
・X’D’: 負の数（例: 123D = -123）
・X’F’: 符号なし（例: 123F = 123）
メインフレームの演算ユニットは、符号ビットが `C` であろうと `F` であろうと、これらを「正の123」として同一視して計算します。しかし、プログラムで「メモリー上のバイナリ」を直接比較（memcmp等）すると、`C` と `F` は異なる値であるため不一致と判定されます。これが「論理的には等価だが、物理的には異なる」という問題の正体です。
3. 実装/解決策
この問題を解決する最も確実な方法は、比較前に値を「正規化」することです。PL/IやCOBOLの演算命令を通すことで、内部的に符号が `C`（または `D`）に変換されます。レガシーコードでバイト単位の比較を行っている場合は、比較対象の数値を一度算術変数に代入し、再定義することで強制的に正規化されたバイナリを取得できます。
4. サンプルプログラム
以下は、PL/Iにおいて「符号なし」を含むデータを「符号あり」に正規化し、比較を正しく行うためのサンプルです。
1
/ 符号なしデータ X’123F’ と 符号ありデータ X’123C’ の比較 /
DCL DATA_F PIC ‘999’ FIXED DECIMAL(3) INIT(123); / 内部的には X’123F’ /
DCL DATA_C PIC ‘999’ FIXED DECIMAL(3) INIT(123); / 内部的には X’123C’ /
/ 算術比較を行う（演算子を通すと自動的に正規化される） /
IF DATA_F = DATA_C THEN
PUT SKIP LIST(‘数値として一致しています’);
ELSE
PUT SKIP LIST(‘一致しません’);
/ バイナリとしての比較（参考：これは不一致となる可能性がある） /
/ 物理構造の正規化が必要な場合は、一度算術演算を通す /
DCL WORK_VAL FIXED DEC(3);
WORK_VAL = DATA_F; / ここで内部形式が X’123C’ に正規化される /
5. 応用・注意点
・他OSとの連携: JavaやC#など、他プラットフォームへデータを送出する場合、受信側は `X’F’` を数値として認識できないケースが多いです。必ず送信前に `NUMERIC` 変換（正規化）を行い、`C` または `D` に統一してから転送してください。
・デバッグ時の罠: ダンプリストを確認する際、`X’123F’` と `X’123C’` が混在していると、バイナリエディタ上では別の値に見えます。論理的な不具合と物理的な不具合を切り分けるため、まずは「算術演算を通しても一致しないか」を確認するのが、デバッグの近道です。
・符号なしの悪用: 過去のシステムでは、意図的に `X’F’` を使ってフラグ制御を行っていた例もあります。既存の物理フォーマットを改変する際は、その符号ニブルが「計算用」なのか「フラグ用」なのか、仕様書だけでなく実データの分布を確認してください。
コメント