導入
メインフレームのPL/I開発において、BASED変数とポインタを用いたメモリ操作は避けて通れない技術です。特に、通信バッファのヘッダ解析や、可変長構造体のシーケンシャルな走査を行う際、BASED変数のポインタに直接オフセットを加算する手法は、処理効率を劇的に向上させます。本稿では、このポインタ演算の基礎と、実務での活用法について解説します。
基礎知識
BASED変数とは、特定の記憶域を指し示す「ポインタ」を介してアクセスされる変数です。通常の変数と異なり、宣言時にメモリが割り当てられず、ポインタ変数が指すアドレス（ADDR）を使用して値を操作します。ここで重要なのが「ポインタ演算」です。PL/Iではポインタ自体は単なるメモリアドレスですが、これを数値として加算・減算することで、任意のバイト位置へ物理的にアクセスすることが可能になります。
実装/解決策
ポインタ演算を行う際は、まずポインタ変数に基準となるアドレスを格納し、そこにバイト単位のオフセット値を加算します。
ここで注意すべきは、ポインタ変数は単なるアドレスの保持者であり、それ自体は型を持たないという点です。したがって、オフセットを加算したアドレスを別のBASED変数のポインタに代入することで、その位置を特定の構造体として再定義（マッピング）します。
サンプルプログラム
以下は、メモリ上の連続したデータ構造をオフセット演算で走査する実用的なコード例です。
/ 処理対象のデータ構造を定義 /
DCL 1 HEADER BASED(P_HEAD),
2 LEN FIXED BIN(15),
2 TYPE CHAR(4);
DCL P_HEAD POINTER;
DCL P_BASE POINTER;
DCL OFFSET FIXED BIN(31) INIT(0);
DCL WORK_AREA CHAR(100) BASED(P_BASE); / 走査対象のメモリ領域 /
/ 1. 基準アドレスをセット /
P_BASE = ADDR(WORK_AREA);
/ 2. オフセットを加算してポインタを再配置 /
/ 構造体のサイズ分だけポインタを進める例 /
P_HEAD = P_BASE + OFFSET;
/ 3. 構造体としてデータにアクセス /
IF HEADER.TYPE = ‘DATA’ THEN DO;
/ 処理ロジック /
END;
/ 4. 次のレコードへ移動 /
OFFSET = OFFSET + 6; / HEADERのサイズ分を加算 /
P_HEAD = P_BASE + OFFSET;
応用・注意点
実務における最大の注意点は、アライメント（境界調整）です。メインフレームのアーキテクチャ上、ハーフワードやフルワードの境界を意識しないアクセスは、パフォーマンス低下や例外（S0C4など）の原因となります。
また、現代のシステム移行においてJavaなどのマネージド言語へ移植する場合、このポインタ演算は最大の難所となります。Java 22以降の MemorySegment APIを使用すれば、このポインタ演算のロジックを比較的安全に再現できますが、移行前には現行のPL/Iコードがどれほど厳密なメモリアドレス計算に依存しているか、入念な設計確認が必要です。ポインタ演算は強力ですが、「境界外アクセス」のリスクが常に伴うため、オフセット計算時には必ず最大サイズを超えないかのガード条件を組み込むことを強く推奨します。
コメント