メインフレームの闇を照らす：PL/Iにおける構造体の「ビット列変換」とアライメントの罠
若手エンジニアの諸君、今日もメインフレームの迷宮で格闘しているか？
PL/Iの魅力は、その強力なデータ操作機能にある。特に、広大な構造体（STRUCTURE）を単一のビット列や文字列として一括処理する手法は、大規模バッチのデータ転送や、VSAMレコードの高速なバイナリ・シリアライズにおいて、極めて強力な武器となる。
しかし、この武器には「隠された仕様」という名の地雷が埋まっている。今回は、`STRING` ビルトイン関数を使い、構造体を丸ごとビット列へ変換する際の罠――特にアライメントによるパディング問題について、現場の知見を共有しよう。
—
1. なぜ「構造体のビット列化」が必要なのか
VSAMのレコードを読み込み、特定の共通ヘッダ部分だけをビット単位で判定したり、あるいは異種システム間でのデータ移行時に、構造体全体をRAWデータとしてソケットへ流し込んだりする場面は、基幹系バッチでは日常茶飯事だ。
ここで `STRING(構造体名)` を使うと、コンパイラは構造体メンバーをメモリ上の配置通りに連結し、単一のビット列として返してくれる。これが非常に便利で、かつ恐ろしい機能である。
2. 構造体アライメントの「余白」を理解せよ
まずは、以下のコード例を見てくれ。
/i
/ — 構造体定義とビット変換のサンプル — /
DCL 1 SAMPLE_RECORD,
2 ID FIXED BIN(15), / 2バイト /
2 VALUE FIXED BIN(31); / 4バイト /
DCL BIT_BUFFER BIT(64) VARYING;
/ 構造体を一括でビット列へ変換 /
BIT_BUFFER = STRING(SAMPLE_RECORD);
一見すると `16bit + 32bit = 48bit` になると思うだろう？ だが、実際はそうならないケースが多い。
メインフレーム（z/OS）のコンパイラは、デフォルトでメンバーの境界を「効率的にアクセスできるアドレス」に揃える（アライメント）。`FIXED BIN(31)` は4バイト境界を好むため、`ID` の直後に16ビットの「パディング（詰め物）」が自動挿入されるのだ。結果、`STRING` 関数が返すのは48ビットではなく、64ビットになる。
この「目に見えない隙間」を理解していないと、外部システムとのインターフェースでデータがズレ、深夜の障害対応に追われることになる。
—
3. 実践的なコーディング標準：UNALIGNEDの使用
このアライメント問題を回避し、物理的なレコード長と `STRING` 関数の結果を一致させるには、必ず `UNALIGNED` 属性を付与すること。これが現場の鉄則だ。
/i
SAMPLE_PROC: PROCEDURE OPTIONS(MAIN);
/ UNALIGNEDを指定することでアライメントパディングを抑制 /
DCL 1 RECORD_DATA UNALIGNED,
2 HEADER_ID CHAR(4),
2 DATA_COUNT FIXED BIN(31),
2 FLAG_BIT BIT(8);
DCL RAW_BUFFER BIT(104); / 32 + 32 + 8 = 72bit ? いや、計算せよ！ /
/ 構造体のサイズ確認にはSIZEビルトインが有用 /
IF STG(RECORD_DATA) > 9 THEN DO;
/ 異常系処理：ONユニットで捕捉も可能だが基本はロジックで制御 /
SIGNAL ERROR;
END;
RAW_BUFFER = STRING(RECORD_DATA);
END SAMPLE_PROC;
なぜ `UNALIGNED` なのか？
- 計算の簡素化: 構造体のサイズとオフセットが、マニュアル通り（理論値通り）に確定する。
- 移植性の確保: 他の言語（COBOL等）や他プラットフォームとのバイナリ互換性を維持しやすい。
- パフォーマンスの天秤: 確かに `ALIGNED` はアクセスの高速化に寄与するが、現代のプロセッサではその差は僅かだ。それよりも、データレイアウトの整合性を取るメリットの方が遥かに大きい。
—
4. トラブルシューティングの心得
もし、`STRING` 関数を使った変換結果が期待値と異なる場合、まずは以下の手順で切り分けろ。
1. DCLの属性確認: `ALIGNED` が暗黙的に適用されていないか（デフォルト設定を確認せよ）。
2. STG関数による検証: `STG(構造体名)` をデバッグ出力し、想定したビット数と合致するか確認する。
3. HEXダンプの比較: `PUT DATA` ではなく、内部表現を `DISPLAY` で HEX 出力させ、パディングがどこに混入しているかを特定する。
最後に
PL/Iの `STRING` 関数は強力だが、それは「メモリ配置という名の物理レイヤー」を直接扱うことを意味する。コンパイラを信じるな。仕様を信じろ。そして、必ず `UNALIGNED` を明示する習慣を身につけること。
この「余白」をコントロールできるようになった時、君たちは一歩上のメインフレームエンジニアになれるはずだ。次回の改修でも、この感覚を忘れないでほしい。
健闘を祈る。
