1. 導入：なぜiSUB属性が重要なのか
メインフレームのレガシーシステムを保守していると、配列のアクセス順序に頭を悩ませることはありませんか？通常、プログラム内で「行」と「列」を入れ替えて計算したい場合、ループ処理のインデックスを書き換えるのが一般的です。しかし、PL/Iの「iSUB属性」を使えば、プログラムのロジックを変えることなく、データ定義レベルで配列の「見え方」を仮想的に変換できます。この技術は、古いコードの解析や、物理的なデータレイアウトを変更せずに計算ロジックを最適化する際に非常に強力なツールとなります。
2. 基礎知識：iSUB属性とは何か
iSUB（インデックス・サブスティテューション）は、DEFINED属性と組み合わせて使用する強力な機能です。簡単に言うと、「ある配列Aのデータに対して、別の配列Bとしてアクセスする際、添字をどのように読み替えるか」を定義するものです。
例えば、2次元配列の「行」と「列」を入れ替えたビュー（別名）を作ることで、物理的なメモリ上のデータ配置を移動させることなく、論理的に行列を転置した状態で扱うことが可能になります。
3. 実装と解決策
iSUB属性を使用するには、DCL文でDEFINED属性を指定し、その後にカッコ内で添字の対応関係を記述します。ここで重要なのは「1SUB」「2SUB」といった表現です。これは「1番目の添字」「2番目の添字」を意味し、これらを入れ替えることで行列の転置を実現します。
4. サンプルプログラム
以下のコードは、10×10の配列Aを定義し、それを入れ替えた配列Bとしてアクセスする例です。
/ 元となる10×10の配列を定義 /
DCL A(10, 10) FIXED BIN(31);
/ 配列Bを定義。配列Aの2番目の添字を1番目に、1番目を2番目としてマッピングする /
DCL B(10, 10) DEFINED A(2SUB, 1SUB);
/ 使用例 /
/ Aの(1, 2)に値をセット /
A(1, 2) = 100;
/ Bを介してアクセスすると、(2, 1)として読み出せる /
/ この結果、PUT文には「100」が出力されます /
PUT SKIP LIST(‘B(2,1)の値は:’ || B(2, 1));
5. 応用・注意点：現場での落とし穴
この技術は非常に便利ですが、現代のプログラミング言語（JavaやC#など）には存在しない概念であるため、移行プロジェクトでは最大の注意が必要です。
特に注意すべき点：
・コードの可読性低下： 定義側で添字が入れ替わっているため、ソースコードを読んでいるプログラマーが誤解しやすく、メンテナンス時に「データが縦横逆転している」という重大なバグを生む原因になります。
・物理的なコピーではない： iSUBはあくまで「見え方」の変更であり、メモリ上のデータは物理的に移動していません。そのため、元の配列Aを更新すれば、ビューであるBの内容も即座に変化します。
・移行時の対応： もしレガシーシステムを刷新（マイグレーション）する際は、このiSUBによる「暗黙の入れ替え」をロジックの中に明示的に書き出す必要があります。定義だけで完結している処理をそのまま放置すると、新しい環境では計算結果が一致しなくなるリスクがあるため、必ず設計書に書き起こすようにしてください。
コメント