こんにちは！メインフレームの世界へようこそ。
JavaやCOBOLでバリバリ開発してきたエンジニアの皆さんにとって、PL/I（ピー・エル・アイ）という言語は、まるで「歴史ある巨大な図書館の暗号」のように見えるかもしれませんね。
でも、安心してください。PL/Iは、C言語の柔軟性とCOBOLのデータ処理能力を兼ね備えた、非常に強力で「職人好みの」言語です。今日はその中でも、皆さんが最初に遭遇して「うっ……」となりがちな「BASEDストレージ」と「ポインタ」について、現場の視点から紐解いていきたいと思います。
—
1. 「BASEDストレージ」って結局なに？
JavaやCOBOLの感覚でいうと、変数は宣言した瞬間に「メモリのここ！」と場所が決まるものですよね。でも、PL/Iの`BASED`変数は違います。
例えるなら、「BASED変数は『空っぽの額縁』」です。
額縁だけ用意しても、中身（絵＝データ）はどこにもありません。この額縁を、メモリ上の「ある特定の場所」にガチャンとはめ込む（ポインタで指し示す）ことで、初めてデータとして扱えるようになるんです。
なぜそんな面倒なことをするの？
メインフレームの基幹システムでは、1億件ものレコードを高速に処理することがあります。あらかじめ固定のメモリ領域を確保すると、メモリが足りなくなってシステムが悲鳴を上げますよね。
`BASED`を使えば、「必要な時に、必要な場所のデータだけを、この額縁を使って読み取る」という、極めてメモリ効率の良いプログラムが書けるようになるんです。
—
2. ポインタ（POINTER）という「案内人」
`BASED`変数を動かすための鍵が`POINTER`変数です。これは、メモリ上の「住所（アドレス）」を覚えるための専門変数です。
1
/ 構造体の定義：額縁そのもの /
DCL 1 MY_DATA BASED(P_MY_DATA),
2 ID FIXED BIN(31),
2 NAME CHAR(20);
/ 住所を覚えるためのポインタ変数 /
DCL P_MY_DATA POINTER;
/ 実際にメモリを確保して、ポインタをその住所へ向ける /
ALLOCATE MY_DATA;
/ これでMY_DATAの各項目にアクセス可能になります /
MY_DATA.ID = 1001;
MY_DATA.NAME = ‘IBM MAINFRAME’;
このコードのポイントは、`ALLOCATE`という命令です。これでOSから「ここを使っていいよ」とメモリを借りて、`P_MY_DATA`というポインタがその場所を指し示すようになります。Javaでいう`new`に近い感覚ですが、メモリの管理をより手動でコントロールしている感じ、伝わりますでしょうか。
—
3. 実務でよくある「奇妙な」使い方：マップの重ね合わせ
現場でPL/Iのコードを覗くと、こんな記述に出会うはずです。
1
/ 読み込んだ生データ（RAW_BUFFER）に、
構造体という「型」を被せて解析する技法です /
DCL RAW_BUFFER CHAR(100) BASED(P_BUFFER);
DCL 1 RECORD_LAYOUT BASED(P_BUFFER),
2 TYPE CHAR(1),
2 DATA_VAL FIXED BIN(31);
/ P_BUFFERに読み込んだバッファの先頭アドレスをセットする /
P_BUFFER = ADDR(SOME_INPUT_AREA);
/ これで、ただの文字配列だったものが、
いきなり構造体として読み書きできるようになる！ /
IF RECORD_LAYOUT.TYPE = ‘A’ THEN
PUT LIST(RECORD_LAYOUT.DATA_VAL);
これは、外部から送られてきた「中身がよくわからないデータの塊」に対して、「君はこういう構造のデータだよね？」と後から型を強制的に被せる手法です。COBOLの`REDEFINES`に似ていますが、ポインタを使うことで、より動的でダイナミックな処理が可能になります。
—
初学者の皆さんへのアドバイス
PL/Iのポインタ操作で一番怖いのは、「ポインタがどこを指しているか分からなくなること」です。Javaならガベージコレクションが助けてくれますが、PL/Iの世界では、あなたがポインタの主導権を握っています。
- `ADDR`関数でアドレスを確実に取得する
- `NULL`ポインタにアクセスして異常終了（ABEND）させないよう、初期化を忘れない
この2つさえ守れば、PL/Iはあなたの強力な武器になります。
最初は複雑に見えても、メモリという広大な海を「ポインタ」という羅針盤で自由に航海できるようになると、メインフレームの処理が一段と面白くなりますよ。分からないことがあれば、いつでもまた聞いてくださいね。一緒に、この巨大なシステムの深淵を楽しく紐解いていきましょう！
