導入
メインフレームでの開発において、メモリ上の特定の領域を柔軟に扱うことは非常に重要です。しかし、構造体を定義するたびに固定アドレスやポインタを紐付けてしまうと、コードが複雑になり、保守性が低下します。今回は、BASED変数にあえてポインタを紐付けない「ポインタなし宣言」を活用し、データテンプレートとしてスマートにメモリを扱う手法を解説します。
基礎知識
PL/IにおけるBASED変数は、通常「DCL VAR BASED(P)」のように、ポインタPとセットで宣言されます。これにより、VARを参照すると自動的にPが指すアドレスの値を読みに行きます。
一方、今回のテーマである「ポインタなし宣言」は「DCL VAR BASED」と記述します。これにより、VAR自体は「メモリ上のどこにあるか」という情報を持たない、純粋な「型定義（テンプレート）」となります。これを参照するには、使用するその都度「P->VAR」のように、対象となるアドレス（ロケータ）を明示的に指定する必要があります。
実装/解決策
この手法の最大の利点は、一つの構造体定義を、異なるメモリバッファに対して使い回せる点にあります。例えば、通信バッファやファイルから読み込んだ汎用的なデータ領域を、構造体を通じて操作したい場合に最適です。現代的な視点で見れば、これはオブジェクト指向言語における「クラス定義」に相当します。インスタンス（実体）を作る前の「設計図」として定義しておき、必要なタイミングで具体的なアドレスを紐付けることで、安全かつ効率的にメモリをマッピングできます。
サンプルプログラム
以下のコードは、汎用的なデータ構造をテンプレートとして定義し、異なるポインタを介してマッピングする例です。
/ 構造体のテンプレート定義（実体を持たない） /
DCL 1 TEMPLATE_REC BASED,
2 ID FIXED BIN(15), / ID項目 /
2 DATA_VAL CHAR(10); / データ項目 /
DCL P1 POINTER; / 1つ目のポインタ /
DCL P2 POINTER; / 2つ目のポインタ /
/ 実際のアドレスを割り当てる例 /
P1 = ADDR(BUFFER_A); / BUFFER_Aの先頭を指す /
P2 = ADDR(BUFFER_B); / BUFFER_Bの先頭を指す /
/ ポインタ修飾子を使用してアクセス /
P1->TEMPLATE_REC.ID = 100;
P2->TEMPLATE_REC.ID = 200;
/ どちらのバッファも同じ構造体定義で操作可能 /
PUT SKIP LIST(P1->TEMPLATE_REC.DATA_VAL);
応用・注意点
この手法を用いる際、最も注意すべきは「ポインタ修飾忘れ」です。ポインタなしで宣言したBASED変数を、修飾子なしで直接参照しようとすると、コンパイルエラーや予期せぬメモリ参照が発生するリスクがあります。
現場での設計時には、この変数を「DTO（Data Transfer Object）クラス」のように扱い、特定のバッファを操作する層（レイヤー）でのみポインタを紐付けるよう設計を分離することをお勧めします。そうすることで、コードの意図が明確になり、バグの混入を防ぐことができます。
コメント