【入門編】OFFSET型変数とBASED変数による相対アドレッシング – PL/Iの基本構文とデータ制御実践ガイド

こんにちは！メインフレームの世界へようこそ。
JavaやCOBOLでバリバリ活躍されている皆さんが、いざ「PL/I」という古強者のコードを目の当たりにして、「なんだこのポインタの嵐は…」「OFFSET？なにそれ美味しいの？」と戸惑う気持ち、痛いほどよくわかります。

今日は、PL/Iが持つ独特のメモリ管理術、「OFFSET型変数」と「BASED変数」のコンビネーションについて、肩の力を抜いて紐解いていきましょう。

—

まず、Javaの参照やCのポインタをイメージしてください。これらは「メモリ上の絶対番地（住所）」を指し示していますよね。

対してPL/IのOFFSET型変数は、ある特定の「縄張り（AREA）」の中での「相対的な位置（何番目の番地か）」を記録するものです。

メインフレームのバッチ処理では、限られたメモリをいかに効率よく使い、かつ安全にデータを扱うかが腕の見せ所です。

ポインタ（POINTER）: 31ビット（あるいは64ビット）の絶対アドレス。再配置されると整合性が取れなくなるリスクがある。
OFFSET: 「このエリアの先頭から◯バイト目」という距離。これなら、エリアごと別の場所へコピーしても、相対的な位置関係が変わらないのでデータが壊れません。

まさに、「住所」を書くのではなく「駅の改札から徒歩5分」という案内板を置くようなイメージですね。

—

では、実際にどんな風にコードを書くのか見てみましょう。ここでは、`AREA`という「箱」を用意し、その中でデータを自由に操る例を紹介します。

1
/ メインプログラムの構造 /
MY_PROGRAM: PROC OPTIONS(MAIN);

/ 1. データを格納する「広場」を定義（ここがAREAです） /
DCL MY_AREA AREA(1024) STATIC;

/ 2. BASED変数の定義（構造体の型定義のようなもの） /
DCL 1 MY_NODE BASED(P),
2 NEXT_OFFSET OFFSET(MY_AREA), / 次のデータの場所（相対位置） /
2 DATA_VAL FIXED BIN(31); / 実際のデータ /

/ 3. ポインタ変数の宣言（作業用の一時的な窓口） /
DCL P POINTER;

/ — ここから処理開始 — /

/ MY_AREAという広場の中に、MY_NODE形式の領域を確保する /
ALLOCATE MY_NODE IN(MY_AREA) SET(P);

/ データをセット /
MY_NODE.DATA_VAL = 100;
MY_NODE.NEXT_OFFSET = NULLO(); / 次の場所はまだないので空にする /

PUT SKIP LIST(‘データがセットされました: ‘, MY_NODE.DATA_VAL);

END MY_PROGRAM;

`BASED(P)`: 「Pというポインタが指し示す場所を、この構造体として解釈してね」という宣言です。PL/Iはこのおかげで、メモリを自在にキャストして扱えます。
`IN(MY_AREA)`: 「このメモリはMY_AREAという専用の箱の中から取ってきてね」という指定です。これでメモリの散逸を防ぎます。
`NULLO()`: OFFSET型専用の「空（NULL）」です。通常のポインタの`NULL`とは別物なので、ここだけ気をつけてくださいね。

—

「現代のJavaにはガベージコレクションがあるのに、なぜ今さら…」と思うかもしれません。しかし、大規模基幹システムでは、1件のトランザクションで数万件のデータを高速にメモリ上で処理する必要があります。

OFFSETとAREAを使いこなすと、以下のようなメリットがあります。

1. メモリの断片化防止: 一塊のメモリ領域をガッチリ確保して使い回すため、システム全体の負荷が安定します。
2. データのポータビリティ: AREAごとファイルに書き出し、別のプログラムで読み込んで復元する、といった「シリアライズ」的な運用が驚くほど簡単にできます。

—

PL/Iの構文は一見すると「大文字ばかりで古い」と感じるかもしれませんが、その設計思想は非常に合理的です。「ポインタ（絶対位置）は怖いから、OFFSET（相対位置）で安全に管理しよう」という発想は、現代の疎結合なシステム設計にも通じるものがあります。

まずは、`DCL`で変数を宣言し、`ALLOCATE`でメモリを確保する。このシンプルな一連の流れを、ぜひ手元のコンパイラ（もし環境があれば！）で試してみてください。

もし、「AREAとOFFSETの組み合わせで変なダンプが出た！」というトラブルに遭遇したら、それはきっと「メモリの境界値」か「NULLOの判定ミス」のどちらかです。一つずつ紐解けば、必ず原因は見つかります。

あなたのメインフレームライフが、より豊かで楽しいものになりますように。応援しています！