JavaやCOBOLの経験はあるけれど、IBMメインフレームの世界へようこそ！そして、そこで待ち構えている「PL/I（ピーエルワン）」という少しユニークな言語に戸惑っていませんか？
「なんだか古い言語だし、ポインタとかメモリ管理とか難しそう……」
「COBOLみたいにデータ部をカチッと決められないの？」
そんな不安を抱えていらっしゃるかもしれませんが、どうか安心してください。怖がる必要はまったくありません。今回は、PL/Iの数ある強力な機能の中でも、一見難解に見えがちだけど実はすごく面白い「AREA属性による動的メモリ管理」について、一緒に優しく紐解いていきましょう。
—
そもそも「AREA」ってなんだろう？（JavaやCOBOLとの違い）
Javaを使っている方なら「ガベージコレクションがあるからメモリ管理なんて意識したことないよ」、COBOLを使っている方なら「WORKING-STORAGE SECTIONで領域は全部静的に確保するよね」と思われるかもしれません。
しかし、PL/Iの `AREA` は、「自分で管理する専用のミニ・メモリプール（sandbox）」をプログラムの中に作ってしまうような機能です。
イメージしてみてください。
広大なメインフレームのメモリ空間の中から、「ここからここまで私の領域ね！」と、あらかじめバケツ一杯分のスペース（これが `AREA` です）を確保します。そのバケツ（AREA）の中であれば、プログラムの実行中に、必要な分だけ自由にデータ用の小箱を作ったり（`ALLOCATE`）、不要になったら捨てたり（`FREE`）が自由自在にできるんです。
しかも、このバケツごとファイルに書き出したり、他のプログラムに丸ごと渡したりすることもできてしまう。これがメインフレームの基幹系バッチなどで重宝される理由なんですね。
—
怖くない！PL/Iの動的メモリ管理の基本
それでは、実際にコードを見ながら、AREAを使ったメモリの割り当てと解放の流れを確認してみましょう。
PL/Iでは、変数の命名規則に「予約語」という概念がほぼありません（`IF` や `DO` すら文脈で判断される驚きの仕様です！）。そのため、変数名を考えるときも自由度が高すぎて逆に戸惑うかもしれませんが、基本の形さえ分かれば怖くありません。
以下のサンプルコードを見てください。
1
/ ======================================================== /
/ AREA属性による動的メモリ管理のサンプルプログラム /
/ ======================================================== /
DEMO_AREA: PROC OPTIONS(MAIN);
స్ప/ 1. 可変長データを指し示すための「基点（ベース変数・ポインタ）」の宣言 /
DCL P_EMP_INFO POINTER;
/ 2. データを格納する構造体の定義 /
DCL 1 EMP_STRUCT BASED(P_EMP_INFO),
2 EMP_ID CHAR(5), / 社員ID /
2 EMP_NAME CHAR(20); / 社員名 /
/ 3. メモリプールとなる「AREA(1000)」の宣言（1000バイトの領域） /
DCL MY_WORK_AREA AREA(1000) INTERNAL;
/ 4. AREA内にメモリを動的に割り当て（ALLOCATE） /
/ 「MY_WORK_AREAの中にEMP_STRUCTの箱を作ってね」という指示です /
ALLOCATE EMP_STRUCT IN(MY_WORK_AREA);
/ 5. 割り当てられた領域にデータを設定 /
EMP_ID = ‘A1234’;
EMP_NAME = ‘山田 太郎’;
/ 6. データの確認（出力） /
PUT SKIP EDIT (‘社員ID: ‘, EMP_ID, ‘ / 社員名: ‘, EMP_NAME)
(A, A, A, A);
/ 7. 使い終わったら速やかに解放（FREE） /
/ JavaならGC任せですが、PL/Iでは自分でキレイにお片付けします /
FREE EMP_STRUCT IN(MY_WORK_AREA);
END DEMO_AREA;
コードのポイントを優しく解説
1. `BASED(P_EMP_INFO)` って何？
これがJavaでいう「参照（Reference）」やC言語の「ポインタ」に近い概念です。`P_EMP_INFO` という道しるべ（ポインタ）があって初めて、メモリ上のどこにデータがあるかが分かります。
2. `AREA(1000) INTERNAL`
これが今回の主役、容量1000バイトの作業用プールです。`INTERNAL` はこのプログラムの中だけで使うよ、という宣言ですね。
3. `ALLOCATE EMP_STRUCT IN(MY_WORK_AREA)`
ここが一番のハイライト！さっき作った1000バイトのバケツ（`MY_WORK_AREA`）の中から、社員情報構造体が入る分のスペースを切り出して、ポインタを繋いでいます。
4. `FREE EMP_STRUCT IN(MY_WORK_AREA);`
使い終わったらしっかり `FREE`（解放）します。これをサボると、バケツの中の容量がどんどん圧迫されて（メモリリーク）、やがて「領域が足りません！」というお馴染みの異常終了（ABEND）を引き起こす原因になります。お片付けは丁寧に行いましょうね。
—
実務の現場でAREAを使うときの心構え
メインフレームの移行プロジェクトやレガシーコードの保守をしていると、この `AREA` は、大量の可変長レコードをメモリ上で効率よくハンドリングしたい場面や、サブタスク間でデータを安全に受け渡したい場面でひょっこり顔を出します。
他のモダン言語に慣れていると、「なぜわざわざこんな手動でメモリ管理を……？」と思うかもしれません。しかし、これはハードウェア資源がシビアだった時代から脈々と受け継がれてきた、「限られたリソースを極限まで効率よく使い倒すための先人の知恵」です。
仕組み自体は、「専用の小箱（AREA）を用意して、中で物を出し入れ（ALLOCATE / FREE）し、終わったら片付ける」という非常にシンプルなもの。
「PL/Iだから特殊で難しい」と身構えず、目の前の一行ずつをこうして紐解いていけば、必ずあなたの強力な武器になります。
メインフレームの世界へ踏み出したあなたのチャレンジを、心から応援しています！次回の解説もお楽しみに。
