1. 導入：なぜ「REFER」を使うのか？
メインフレームでの開発において、データ領域を確保する際に「最大サイズに合わせて固定長で宣言する」ことは一般的です。しかし、扱うデータの内容に応じて長さが大きく変わる場合、常に最大サイズを確保するとメモリの無駄遣いになります。そこで役立つのがPL/Iの「REFER」オプションです。これを使うことで、必要な分だけメモリを動的に割り当てることができ、メモリ効率を劇的に向上させることが可能です。
2. 基礎知識：REFERとは何か
REFERは、データ構造体の中で「ある項目の長さを、別の項目（長さフィールド）の値に基づいて決定する」ための仕組みです。
通常、CHARACTER変数は宣言時に長さを固定する必要がありますが、REFERを使うことで「実行時に値が決まる変数」を構造体の中に組み込めます。これは、現代のJavaやC#における可変長リストやString型の柔軟性を、メインフレームの物理メモリレベルで制御するようなイメージです。
3. 実装と仕組み
REFERを使用するには、構造体の中に「長さを保持する変数（FIXED BIN）」と「実際のデータ領域（CHARACTER）」を定義します。メモリを確保する際（ALLOCATE文）に、長さ変数に値をセットすることで、システムがその値を読み取り、正しいサイズでメモリ領域を割り当てます。
4. サンプルプログラム
以下のコードは、入力データの長さに合わせて動的にメモリを確保する例です。
/ サンプルコード：動的文字領域の確保 /
DCL 1 MY_DATA BASED(P), / ポインタPで管理される動的構造体 /
2 DATA_LEN FIXED BIN(15), / 文字列の長さを保持するフィールド /
2 DATA_VAL CHAR(REFER(DATA_LEN)); / DATA_LENを参照してサイズを決定 /
DCL P POINTER; / メモリ位置を保持するポインタ /
DCL INPUT_LEN FIXED BIN(15) INIT(20); / 確保したい文字数 /
/ 1. まず長さを設定する /
DATA_LEN = INPUT_LEN;
/ 2. 構造体に必要なサイズ分だけメモリを確保 /
ALLOCATE MY_DATA;
/ 3. 値をセット /
DATA_VAL = ‘動的なデータ領域の確保’;
/ 処理終了後は必ず解放する /
FREE MY_DATA;
5. 応用・注意点
この手法を用いる際、最も注意すべきは「長さフィールドの更新漏れ」です。
構造体の中のデータ（DATA_VAL）を書き換えただけでは、長さ変数（DATA_LEN）は自動的に更新されません。もしデータの長さを変更したにもかかわらずDATA_LENを更新し忘れると、後続のプログラムやファイル出力時に「ゴミデータ」が混入したり、メモリ不正アクセスが発生するリスクがあります。
また、現代の言語からメインフレームへ移行した方は、「メモリ上では『長さ + データ』が物理的に連続している」という点を強く意識してください。バイナリ形式で外部出力する際などは、必ず「長さフィールド」と「実際のデータ」の整合性が取れているかを確認するチェック処理を挟むことを強く推奨します。
コメント