こんにちは。基幹システムの現場で日々、COBOLやPL/Iの巨大なソースコードと格闘しているメインフレーム・エンジニアの皆さん。
今回は、PL/Iにおける数値データの肝、PIC ‘S’符号付き数値の内部表現について、ゾーン10進数とパック10進数（COMP-3）のメモリ上のビットパターンの違いに焦点を当てて徹底解説します。
レガシーシステムのマイグレーションや、VSAMファイルを覗き見したときに「あれ、数値がおかしいぞ？」と冷や汗をかいた経験はありませんか？ この記事を読めば、メインフレームの心臓部でデータがどう呼吸しているのか、その全貌が手に取るように分かるはずです。
—
1. なぜ「符号の内部表現」でエンジニアはハマるのか？
オープン系のプログラミング言語（JavaやC#など）に慣れた世代から見ると、PL/IやCOBOLのデータ定義（PIC句）は一見古臭く映るかもしれません。しかし、金融機関や公共の基幹システムを支えるメインフレームの世界では、「1バイトのズレも許されない厳密な数値表現」が命です。
特に、VSAMファイルや入出力レコード（FD / 01レベルに相当する構造体）を扱う際、符号（プラス・マイナス）がメモリ上でどのように保持されているかを知らないと、他システムとのデータ連携で痛い目をみます。
PL/Iでは、デフォルトのゾーン10進数から、ストレージを節約し演算効率を上げるパック10進数（`COMP-3`）へ移行する際、符号のビットパターンが劇的に変化します。ここを正確に把握することが、バグのない堅牢なバッチプログラムを書く第一歩です。
—
2. ゾーン10進数とパック10進数の基本仕様
まずは、IBMメインフレームにおける標準的な2つの数値表現のおさらいです。
ゾーン10進数（DISPLAY形式）
- 特徴: 1桁の数字につき1バイト（8ビット）を使用します。人間がダンプリスト（CICSのCECIやストレージダンプ）を見たときに、そのまま文字として読める形式です。
- 符号の扱い: 通常、最下位バイト（右端の桁）の上位4ビット（ゾーン部）に符号情報が格納されます。プラスは `C`、マイナスは `D`、符号なし（あるいは正）の場合は `F` が立ることが一般的です（EBCDICコード体系に依存）。
パック10進数（COMP-3形式）
- 特徴: 1バイト（8ビット）の中に2桁の数字を詰め込みます（10進数字1桁あたり4ビット＝ニブルを使用）。ストレージ容量をほぼ半分に圧縮できるため、大量のレコードを扱うVSAMや順次ファイル（QSAM）では必須の技術です。
- 符号の扱い: 最下位の4ビット（右端のニブル）に符号が格納されます。
- プラス（正）: `C`, `A`, `E`, `F` （コンパイラや生成元により異なりますが、標準は `C`）
- マイナス（負）: `D`, `B` （標準は `D`）
—
3. 実践！PL/Iコードでみる符号変換と内部表現の確認
百聞は一見に如かず。実際にPL/Iでゾーン10進数とパック10進数を定義し、`UNSPEC`ビルトイン関数などを用いてメモリ上のビットパターンを暴いてみるプログラムを作成しました。
現場のコーディング標準に合わせた大文字記述、適切なインデント、そして丁寧な日本語コメントを入れています。バッチ改修の参考にしてください。
//
/ プログラム名: PICSMPL /
/ 概要: PIC ‘S’ 符号付き数値のゾーンとパック(COMP-3)の内部表現検証 /
//
PICSMPL: PROC OPTIONS(MAIN);
/ 1. 変数宣言領域 /
/ ゾーン10進数（デフォルト）: 5桁、符号付き /
DCL W_ZONE_NUM PIC ‘S99999’ ;
/ パック10進数（COMP-3）: 5桁、符号付き、内部表現は圧縮される /
DCL W_PACK_NUM PIC ‘S99999’ COMP-3 ;
/ ビットパターンや文字列表現を確認するための作業域 /
DCL W_CHAR_ZONE CHAR(5);
DCL W_HEX_PACK CHAR(6); / 5桁の場合は3バイト必要（HEXで6桁） /
/ 2. 正の値のテスト /
W_ZONE_NUM = +12345;
W_PACK_NUM = W_ZONE_NUM; / ゾーンからパックへの代入 /
PUT SKIP LIST(‘— [TEST 1] 正の値 (+12345) の場合 —‘);
PUT SKIP EDIT (‘ZONE10進数（文字）: ‘, W_ZONE_NUM) (A, A);
/ ビットパターンの確認（UNSPECビルトイン関数を使用） /
PUT SKIP EDIT (‘ZONE10進数（HEX） : ‘, UNSPEC(W_ZONE_NUM)) (A, B);
/ パック10進数のHEX表現を確認（3バイト分） /
W_HEX_PACK = HEX(W_PACK_NUM);
PUT SKIP EDIT (‘PACK(COMP-3) HEX : ‘, W_HEX_PACK) (A, A);
/ 3. 負の値のテスト /
W_ZONE_NUM = -12345;
W_PACK_NUM = W_ZONE_NUM;
PUT SKIP LIST(‘— [TEST 2] 負の値 (-12345) の場合 —‘);
PUT SKIP EDIT (‘ZONE10進数（文字）: ‘, W_ZONE_NUM) (A, A);
PUT SKIP EDIT (‘ZONE10進数（HEX） : ‘, UNSPEC(W_ZONE_NUM)) (A, B);
W_HEX_PACK = HEX(W_PACK_NUM);
PUT SKIP EDIT (‘PACK(COMP-3) HEX : ‘, W_HEX_PACK) (A, A);
/ 4. 演算時の注意点とデータ転送 /
/ COMP-3同士の演算は、メインフレームのハードウェア命令(PACK, UNPK, ZAP等) /
/ が効率的に実行されるため、バッチのパフォーマンス向上に直結する。 /
IF W_PACK_NUM < 0 THEN PUT SKIP LIST('判定結果: W_PACK_NUM は負数です。'); END PICSMPL;
コードの解説とデバッグのコツ
1. `COMP-3` 属性の威力
`PIC ‘S99999’ COMP-3` と指定することで、コンパイラはコード生成時に適切なパック10進数命令を割り当てます。5桁の数値であれば、必要なメモリは `(5 + 2) / 2 = 3.5` から切り上げて 3バイト となります。
2. `HEX` および `UNSPEC` ビルトイン関数の活用
メインフレームのトラブルシューティングにおいて、ダンプやトレーシングは日常茶飯事です。PL/Iの `HEX()` ビルトイン関数を使うと、変数のメモリ上の16進数表現がそのまま取得できるため、ファイルレイアウトとの突き合わせ調査で非常に強力な武器になります。
3. 符号ビットの目視確認
上のコードで `-12345` を `COMP-3` に格納した際、最下位バイトの16進数表現がどうなるか注目してください。下位ニブルにマイナスを示す `D` がしっかりとパックされているはずです。
—
4. 現場のトラブルシューティング：よくある罠
最後に、私たちが実務で遭遇しがちな「符号にまつわるトラブル」をいくつか共有します。
- VSAMファイル定義（COBOLとの混在環境）での不整合
PL/Iで作られたレコード構造体と、COBOLで作られたプログラムの間でファイルをやり取りする場合、符号の仕様（特にプラスの際の符号ニブルが `C` なのか `F` なのか）が異なると、比較演算や数値算出で思わぬ「データ例外（SOC7など）」を引き起こします。データ定義書だけでなく、必ず実データのダンプを取ってビットレベルで確認する癖をつけましょう。
- 不正データ（S0C7アボート）の回避
外部から流入したファイルに、有効な10進数ではないゴミデータ（スペースや漢字のシフトコードなど）が混入していると、PL/Iの算術演算時にハードウェア割込み（System Completion Code: S0C7）が発生してバッチが異常終了します。ONユニット（`ON CONVERSION`）を適切にコーディングし、異常値を事前にトラップする防御的プログラミングが、プロのメインフレームエンジニアの証です。
—
まとめ
PL/Iにおける `PIC ‘S’` と `COMP-3` の組み合わせは、メインフレームの歴史と効率性が凝縮された美しい仕組みです。一見複雑に見えるビットパターンも、その裏にあるルール（ゾーン部と数値部、そして符号ニブルの位置）さえ押さえておけば、どんな巨大なレガシーシステムの改修であっても怖くありません。
確実な知識とビルトイン関数を武器に、日々のバッチ開発・保守をスマートに乗り切っていきましょう！
