皆さん、こんにちは。IBMメインフレームの世界へようこそ。
JavaやCOBOLでバリバリ開発してきた皆さんが、突如としてPL/Iのコードを目の前にして「なんだこのポインタ演算は……？」と頭を抱えてしまうシーンは、この業界ではよくある光景です。
特に『POINTERADD』という関数が出てくると、「アドレスを直接いじるなんて怖い！」と身構えてしまいますよね。でも大丈夫です。実はこれ、メインフレームの広大なメモリの海を効率よく渡るための、とても洗練された「地図の歩き方」のようなものなんです。
今回は、PL/Iにおけるポインタ演算の基礎と、構造体配列を華麗に操作するテクニックを紐解いていきましょう。
—
1. PL/Iのポインタは「メモリの住所録」
まず、PL/Iのポインタについてイメージを持ちましょう。
PL/Iにおける`POINTER`変数は、メモリ上の特定の場所（アドレス）を指し示す「住所録」です。しかし、C言語のように「ポインタに1を足すと、次の要素へ飛ぶ（型サイズ分だけ進む）」という自動的な親切設計にはなっていません。
そこで登場するのが `POINTERADD` です。これは、「今いる住所から、何バイト先へ移動する？」という移動距離を明示的に指定するためのコマンドなんです。
POINTERADD関数の基本形
/i
/ Ptr1から100バイト先の場所をPtr2に代入する /
PTR2 = POINTERADD(PTR1, 100);
シンプルですよね。「100バイト先にジャンプして！」と伝えているだけです。これを使えば、メモリ上のどこにでも自由に行き来ができます。
—
2. 構造体配列を攻略する：実務の現場から
メインフレームの基幹システムでは、大量のデータを一括処理するために「構造体の配列」をよく使います。例えば、「1件100バイトの顧客データ」がメモリ上にズラリと並んでいる状況を想像してください。
これをループ処理で回すとき、添字（インデックス）を使うのが一般的ですが、パフォーマンスを極限まで追求するバッチ処理では、ポインタ演算で直接メモリを叩く手法が好まれることがあります。
実践コード：ポインタで配列を舐める
/i
/ 構造体の定義：1件あたりのサイズを明確にする /
DCL 1 CUST_REC BASED(P_CUST),
2 CUST_ID CHAR(4),
2 CUST_NAME CHAR(16);
DCL P_CUST POINTER; / ポインタ変数の宣言 /
DCL REC_SIZE FIXED BIN(31) INIT(20); / 構造体のサイズ(4+16=20バイト) /
DCL I FIXED BIN(31);
/ P_BASEは配列の先頭アドレスを指しているとする /
P_CUST = P_BASE;
DO I = 1 TO 10;
/ ここで構造体のメンバーにアクセス /
PUT SKIP LIST(‘ID:’ || CUST_REC.CUST_ID);
/ 次のレコードへジャンプ！ /
/ P_CUST = P_CUST + 20バイト /
P_CUST = POINTERADD(P_CUST, REC_SIZE);
END;
このコードのポイント
1. BASED属性の活用: `BASED(P_CUST)`と指定することで、「P_CUSTが指している場所を、CUST_RECというテンプレートで解釈してね」とコンパイラに伝えています。これがPL/Iの強力なところです。
2. POINTERADDの役割: 構造体のサイズ（20バイト）を足すことで、メモリ上の次のレコードの先頭へ正確に移動しています。
—
3. なぜPOINTERADDを使うのか？（アーキテクトの視点）
「普通に配列の添字 `CUST_REC(I)` を使えばいいのでは？」と思うかもしれません。もちろん、可読性の観点からは添字の方が安全で推奨されます。
しかし、基幹システムのマイグレーションや、外部から受け取った不定形のバッファをパースする際、「データの型が確定していないが、とりあえず先頭から何バイトずつか読み飛ばして処理したい」という難解な要件に出くわすことがあります。
そんな時、`POINTERADD`を知っていると、「型に縛られず、メモリの生データを自由自在に操れる」という強力な武器になります。これは、泥臭いけれど、メインフレームの性能を出し切るための「職人の技術」なんです。
—
最後に：怖がる必要はありません
PL/Iのポインタ演算は、一見すると難解な呪文に見えるかもしれません。でも、一つずつ紐解いていけば、それは「メモリという広大な地図を、自分の足で歩くための手段」に過ぎません。
- POINTERADDは、何バイト進むかを教えるだけ。
- BASED属性は、その場所をどう解釈するかを決めるだけ。
この2つさえ押さえておけば、どんなに巨大なデータ構造でも怖くはありません。もし現場でポインタの迷路に迷い込んだら、まずは「今、何バイト目の場所にいるのか？」を紙に書き出してみてください。必ず道は開けます。
メインフレームの深淵へようこそ。これからも一緒に、この堅牢で奥深い世界を楽しんでいきましょう！
