1. 導入：なぜ配列の「途中」を指す必要があるのか
メインフレームの開発現場において、受信したデータ電文やファイル内のレコードを処理する際、「データの一部だけを別の形式で読み取りたい」という場面によく遭遇します。例えば、「先頭のヘッダー情報を読み飛ばし、データ部分だけを構造体として扱いたい」といったケースです。ここで役立つのが、ADDR関数を用いたポインタ操作です。これを理解することで、メモリを効率的に再利用し、複雑なデータ変換処理をシンプルに記述できるようになります。
2. 基礎知識：ADDR関数とポインタの役割
ADDR関数は、指定した変数の「メモリアドレス（メモリ上の場所）」を取得するための関数です。通常、変数は名前でアクセスしますが、ポインタを使用すると、そのアドレスを直接扱うことができます。
ここで重要なのが「配列のインデックス」です。多くのメインフレーム言語（PL/Iなど）では配列は「1」から始まりますが、他のシステムとの連携では「0」から始まるオフセット計算が必要になることもあります。この「どこからデータを読み始めるか」という基準を正しく設定することが、メモリ操作の基本となります。
3. 実装・解決策：オフセット操作の仕組み
配列の先頭ではなく、特定の要素（例えばI番目）のアドレスを取得するには、ADDR(ARRAY(I))のように記述します。このアドレスをポインタ変数に代入することで、その位置を「新しいデータの開始地点」として見なすことができます。これにより、元の大きな配列を分割することなく、特定の範囲を別の構造体としてマッピング（再解釈）することが可能になります。
4. サンプルプログラム：配列の途中からデータを抽出する
以下は、100バイトの配列の11バイト目から、別の構造体としてデータを解釈する例です。
/ サンプルコード：配列の途中からポインタを適用する /
/ DECLARE文は環境に合わせて適宜調整してください /
/ 100バイトの作業用領域 /
DECLARE WORK_AREA CHAR(100);
/ データをマッピングするための構造体定義 /
DECLARE 1 TARGET_STRUCT BASED(PTR),
2 ID CHAR(5),
2 VALUE FIXED BIN(15);
/ ポインタ変数の宣言 /
DECLARE PTR POINTER;
/ 11番目の要素からスキャンを開始するためにアドレスを取得 /
/ ADDR(WORK_AREA(11)) とすることで11バイト目へオフセットします /
PTR = ADDR(WORK_AREA(11));
/ 以降、TARGET_STRUCTを経由してWORK_AREAの11バイト目以降を操作 /
/ IDにはWORK_AREA(11:15)が、VALUEにはWORK_AREA(16:17)がマッピングされます /
TARGET_STRUCT.ID = ‘A0001’;
TARGET_STRUCT.VALUE = 123;
5. 応用・注意点：インデックスの計算ミスに注意
この手法で最も陥りやすいバグは「オフセット計算のズレ」です。特に、仕様書が「0番目開始」で書かれているのに、プログラム側で「1番目開始」の配列をそのまま扱ってしまうと、データが1バイト分ずれて格納されてしまいます。
回避策：
・必ず「基準となるアドレス」と「相対的なオフセット」を紙に書き出し、計算式を明確にすること。
・ポインタを操作する際は、変数の長さ（バイト数）が、定義した構造体のサイズと一致しているかを確認すること。
ポインタ操作は強力ですが、一歩間違えると意図しないメモリ領域を書き換えてしまうリスクもあります。まずは小さなバッファで動作を確認し、確実にポインタが意図した位置を指しているかをデバッガ等で検証する癖をつけましょう。
コメント