PL/Iの「メモリ直撃」テクニック：LOCATE文とBASED変数で高速処理を極める
こんにちは！メインフレームの世界へようこそ。COBOLやJavaを使いこなしてきた皆さんにとって、PL/Iは少し「古風で気難しい隣人」のように見えるかもしれません。でも安心してください。一度そのロジックを理解してしまえば、これほどまでにマシンの性能を極限まで引き出せる言語は他にありません。
今日は、PL/Iにおける「究極の省エネ・爆速ファイル入出力」とも言える、LOCATE文とBASED変数のコンボについてお話しします。
—
なぜ「READ/WRITE」だけでは足りないのか？
Javaでファイルを読み込むとき、私たちは通常、オブジェクトを生成してそこにデータを詰め込みますよね。COBOLでも`READ`でレコードを読み込み、作業領域（Working-Storage）に転記するのが一般的です。
しかし、膨大な基幹データを扱うメインフレームの世界では、「メモリからメモリへのコピー（転記）」すら惜しいという場面があります。何百万件ものレコードを処理する際、この転記コストが積み重なると、バッチ処理の時間は目に見えて遅くなるのです。
そこで登場するのがLOCATE文です。「データを読み込んでから処理する」のではなく、「OSが用意したバッファ（メモリ上の作業場）に直接書き込んでしまう」という、いわば直球勝負のテクニックです。
—
魔法のキーワード：BASED変数とは
LOCATEを理解するために、まずは「BASED変数」という概念を紐解きましょう。
普通の変数が「箱（メモリ）」そのものだとすれば、BASED変数は「箱に貼り付けるラベル（ポインタ）」です。このラベルを特定のメモリアドレスに向けると、その瞬間にその場所が変数として使えるようになります。
1
/ BASED変数の宣言例 /
DCL 1 RECORD_AREA BASED(P_REC),
2 KEY_ID CHAR(5),
2 DATA_VAL FIXED BIN(31);
DCL P_REC POINTER; / アドレスを保持するポインタ変数 /
この定義だけでは、まだメモリは確保されません。ラベル（P_REC）が指し示す先を、システムが提供するバッファに合わせることで、初めてその領域が「RECORD_AREA」として実体化するのです。
—
LOCATE文を使った実用コード
では、実際にファイルへ出力する際のコードを見てみましょう。
1
/ ファイル出力のメインルーチン /
LOCATE_WRITE_PROC: PROC OPTIONS(MAIN);
/ 出力ファイルの定義。BUFFERSを指定するのがLOCATEの肝です /
DCL OUT_FILE FILE OUTPUT RECORD SEQUENTIAL BUFFERED;
/ BASED変数：出力用レコードの雛形 /
DCL 1 REC_LAYOUT BASED(P_OUT),
2 ID CHAR(4),
2 AMOUNT FIXED BIN(31);
DCL P_OUT POINTER; / データの住所を指すポインタ /
OPEN FILE(OUT_FILE);
/ ここがLOCATEの真骨頂！ /
/ システム側のバッファ領域を確保し、その住所をP_OUTに入れる /
LOCATE REC_LAYOUT FILE(OUT_FILE);
/ 直接バッファを書き換える /
REC_LAYOUT.ID = ‘A001’;
REC_LAYOUT.AMOUNT = 9999;
/ 次のLOCATE発行、あるいはCLOSEでバッファが物理的に書き出される /
CLOSE FILE(OUT_FILE);
END LOCATE_WRITE_PROC;
何が起きているのか？
1. `LOCATE`の実行: システムが「よし、今から書き出す場所を確保したぞ」とメモリ領域（バッファ）を確保し、そのアドレスを`P_OUT`にセットします。
2. 直接代入: 私たちは`REC_LAYOUT.ID = …`と書くことで、OSのバッファ領域を直接書き換えています。
3. 転記なし: 通常の`WRITE`命令のように、自分のプログラム内の領域からバッファへデータをコピーするステップが一切不要なのです！
—
初学者が陥りやすい「落とし穴」
LOCATE文は強力ですが、気をつけなければならないポイントが2つあります。
- バッファの整合性: LOCATEした後は、必ずそのバッファに値をセットしてください。中途半端にすると、ゴミデータがファイルに書き込まれてしまいます。
- ポインタの行方不明: `P_OUT`（ポインタ）を不用意に書き換えないでください。指し示す場所を失ったポインタは、プログラムをクラッシュさせる「迷子」になります。
—
まとめ：怖がる必要はありません
LOCATE文は、例えるなら「料理の盛り付けを、皿をテーブルに運んでからその場で行う」ようなものです。キッチン（作業領域）で盛り付けてから運ぶ（転記する）必要がない分、とても効率的ですよね。
最初はポインタやBASED変数の概念に戸惑うかもしれません。でも、「変数はただのラベルである」と割り切ってしまえば、PL/Iはあなたの意図を正確に、そして非常に高速に実行してくれる、最高に頼もしい相棒になります。
基幹システムのマイグレーションや保守でこのコードに出会ったら、ぜひ「ああ、これは先人たちが少しでも処理時間を短縮しようと知恵を絞った跡なんだな」と、敬意を持って眺めてみてください。
さあ、今日もメインフレームと共に、安定したシステム運用を続けていきましょう！
