PL/Iの「自由」は諸刃の剣：CICS通信領域とBased変数のアライメントを極める
PL/Iという言語の最大の特徴は、その「予約語を持たない」という仕様にあります。これは言語設計としては極めて優雅ですが、実務の現場――特にCICSオンラインやDB2との境界領域においては、アーキテクトに強靭な規律を求める「諸刃の剣」となります。
本稿では、CICSの`DFHCOMMAREA`（通信領域）をPL/Iの`BASED`変数でマッピングする際、我々技術者が陥りやすい「アライメントの罠」と、その先にある堅牢なマイグレーション設計について深掘りします。
—
1. なぜ「Based変数」でのマッピングが必須なのか
CICSにおいて、`EXEC CICS READ`や`WRITE`でやり取りされる`DFHCOMMAREA`は、単なるバイト列の羅列です。これをJavaやC#のオブジェクトのように扱うために、我々は`BASED`変数を使います。
1
/ COMMAREAのレイアウトを定義 /
DCL 1 COMMAREA_LAYOUT BASED(P_COMMAREA),
2 TRANS_ID CHAR(4),
2 STATUS_CODE CHAR(1),
2 AMOUNT FIXED DEC(9,2); / パックデシマル(COMP-3) /
ここで重要なのは、`DCL P_COMMAREA POINTER;`を用いて、CICSから渡されたアドレスをポインタ変数にセットする際、コンパイラの最適化オプションやアライメント設定が正しく同期されているかという点です。
2. アライメントの死角：アベンド（ASRA）の温床
メインフレームのコンパイラオプションにおいて、`ALIGN`と`UNALIGNED`の指定は生死を分けます。特に注意すべきは、構造体内の`FIXED DECIMAL`です。
- 問題の核心: デフォルトで`ALIGNED`が有効な環境において、構造体のメンバが境界（4バイトまたは8バイト）に配置されない場合、コンパイラは自動的にパディング（詰め物）を挿入します。
- トラブルの発生源: CICSのCOBOLプログラムとPL/Iプログラム間でCOMMAREAを共有する場合、COBOL側は通常`SYNC`句を明示しない限り詰め物をしません。一方、PL/Iが`ALIGNED`でコンパイルされていると、勝手に挿入されたパディングによってメモリオフセットがズレ、結果としてデータ破壊またはASRA（0C4/0C7）アベンドを引き起こします。
対策: COMMAREAをマッピングする構造体には、必ず`UNALIGNED`属性を明示的に指定してください。
1
/ 安全なマッピングのためにUNALIGNEDを付与する /
DCL 1 COMMAREA_LAYOUT BASED(P_COMMAREA) UNALIGNED,
2 TRANS_ID CHAR(4),
2 STATUS_CODE CHAR(1),
2 AMOUNT FIXED DEC(9,2);
3. パックデシマル（COMP-3）の符号反転バグという悪夢
マイグレーション時、最も冷や汗をかくのが「パックデシマルの符号」です。
PL/Iにおける`FIXED DEC`は、内部的には`COMP-3`形式で保持されます。ここで注意すべきは、`X’0C’`（正）や`X’0D’`（負）といった符号ビットの解釈です。
もしデータ移行元の環境で符号が特殊な形式（古いEBCDIC環境や、独自フォーマット）で渡されている場合、PL/I側で演算を行った瞬間に`SOC7（データ例外）`が飛んできます。
- デバッグの知見: ダンプを解析する際、該当ポインタのアドレスをCEEEDUMPで追い、該当領域を`DUMP`コマンドで16進数表示してください。符号ビットが期待値と異なる場合、`UNSPEC`関数でビット操作を試みる前に、入出力インターフェースの変換ロジックを疑うのが鉄則です。
4. マイグレーションへの提言：Java/C#への架け橋として
現在、多くの現場でPL/IからJava等への移行が進められていますが、最も失敗するのは「PL/Iの構造体のパディングを無視して、単純なクラスに詰め込む」パターンです。
- アーキテクチャの視点:
1. 静的構造の分析: 現在のPL/Iソースから`UNALIGNED`指定の有無を全調査せよ。
2. バイナリ変換層: Java側で`ByteBuffer`を用いて、PL/Iの構造体と1:1でマッピングする「データ変換層」を必ず作成せよ。
3. テストの自動化: `DFHCOMMAREA`のダンプデータをバイナリとして保存し、新旧システムで同じパース結果になることを保証する単体テストを構築せよ。
結びに代えて
PL/Iは、ハードウェアの挙動を直接制御できるという点で、現代の言語よりも遥かに「マシンに近い」言語です。`BASED`変数でのマッピングは、単なるデータアクセスの手段ではなく、メモリ上のビットと格闘する職人の作業です。
マイグレーションという荒波の中においても、この「内部表現を理解する」という姿勢さえあれば、必ず道は開けます。コンパイラの魔法に頼るのではなく、メモリの隅々まで自分の手の中に収める感覚を、これからも大切にしてください。
もし現場で「説明のつかないASRA」に遭遇したら、まずは`UNALIGNED`指定の漏れを疑うこと。それが、我々メインフレームアーキテクトの最初のデバッグステップです。
