1. 導入：なぜREFERオプションが必要なのか
メインフレームでの開発において、データサイズが固定されていない「可変長データ」を扱うことは避けて通れません。例えば、顧客ごとに保有する注文データの件数が異なる場合、最大の件数に合わせてメモリを確保すると、多くの無駄が発生します。
そこで役立つのがPL/IのREFERオプションです。これを使うと、構造体内の別の変数を参照して、動的に配列や文字列のサイズを決定できます。メモリを効率的に利用し、パフォーマンスを最大化するために必須のテクニックです。
2. 基礎知識：BASED記憶域とREFERの関係
まず、BASED記憶域クラスについて理解しましょう。これは、プログラムが明示的にメモリを割り当て（ALLOCATE）や解放（FREE）を行うための仕組みです。
通常、変数を宣言しただけでは固定のメモリ領域が確保されますが、BASEDを使うと「ポインタ（P）が指し示す場所に、必要な分だけメモリを確保する」という制御が可能になります。
ここにREFERオプションを組み合わせることで、「変数Nに値を入れることで、配列のサイズをその都度変更する」という高度なメモリ管理が実現できます。
3. 実装と解決策
実装の基本は、構造体の中で「サイズを保持する変数」を定義し、それを配列の添字として指定することです。
メモリを確保する際は、まずポインタを介して構造体を割り当て、その後にサイズ指定変数に値を代入します。この時、コンパイラはREFERで指定された値を読み取り、適切なメモリ量を計算してくれます。
4. サンプルプログラム
以下のコードは、入力された件数に応じてメモリを確保し、データを格納する実用的な例です。そのままコピーして、開発環境のテストにご活用ください。
DCL 1 DYNDATA BASED(P), / ポインタPで制御される構造体 /
2 N FIXED BIN(15), / 要素数を保持する変数 /
2 DATA_ARR(REFER(N)) CHAR(10); / Nの値を参照して配列サイズを決定 /
DCL P POINTER; / メモリのアドレスを保持するポインタ /
DCL ACTUAL_COUNT FIXED BIN(15) INIT(5); / 実際に使用したい要素数 /
/ 1. 必要なサイズ分だけメモリを動的に確保 /
ALLOCATE DYNDATA SET(P);
/ 2. 要素数を設定変数に代入 /
N = ACTUAL_COUNT;
/ 3. これでDATA_ARR(1)～(5)まで安全にアクセス可能 /
DATA_ARR(1) = 'TEST_DATA1';
DATA_ARR(5) = 'TEST_DATA5';
/ 4. 使い終わったらメモリを解放してメモリリークを防ぐ /
FREE DYNDATA;
5. 応用・注意点：現場での落とし穴
REFERオプションを使用する際は、以下の点に注意してください。
メモリ管理の徹底：ALLOCATEした後は、必ず処理の最後にFREEを呼び出してください。これを忘れると「メモリリーク」が発生し、オンラインシステムであれば長時間稼働でパンクの原因になります。
サイズの不一致に注意：REFERで指定した変数（N）の値と、実際に確保したメモリサイズが食い違うような複雑な操作は避けましょう。予期せぬメモリアクセス違反（ABEND）を引き起こす可能性があります。
デバッグの難易度：動的メモリは実行時にしかサイズが確定しないため、ダンプリストを追うのが難しい場合があります。開発段階では、必ずサイズ変数（N）の値を確認するデバッグログを出力することをお勧めします。
この機能を使いこなせば、メモリを無駄に占有することなく、柔軟で堅牢なプログラムが作成できるようになります。ぜひ現場のロジックに取り入れてみてください。
コメント