1. なぜ「BASED項目の長さ」を知る必要があるのか
COBOLの現場で「動的メモリ管理」を意識すると、真っ先に思い浮かぶのがBASED句です。しかし、C言語などのポインタ操作に慣れている方は、「実行時に必要なサイズだけメモリを確保して、PICTUREの長さを自由に変えたい」と考えるかもしれません。結論から申し上げますと、COBOLのBASED項目はコンパイル時にサイズが固定されます。この制約を知らずに設計すると、予期せぬメモリ破壊やバグの原因になります。今回は、この制約を正しく理解し、現場で安全にデータを扱うための「部分参照」を用いた回避策を解説します。
2. 基礎知識：BASED項目とメモリの仕組み
BASED項目は、特定のメモリ領域（アドレス）を指し示す「窓口」のような役割を果たします。COBOLにおいて、PICTURE句で定義されたデータ長は、プログラムのコンパイル時に計算され、固定されます。そのため、実行時に「今日は50バイト分、明日は200バイト分」と、定義そのものを書き換えることはできません。BASED項目はあくまで「定義された型（構造）をそのアドレスに当てはめるもの」と理解してください。
3. 実装と解決策：部分参照による「擬似的な可変長」
実行時にデータの長さを変えたい場合、物理的なPICTURE定義をいじるのではなく、「最大サイズで定義しておき、部分参照（Reference Modification）で必要な分だけ切り出す」のが現場の定石です。
4. サンプルプログラム
以下のコードは、最大200バイトのメモリを確保し、実際に使用する長さ（可変）に応じて部分参照を行う例です。
IDENTIFICATION DIVISION.
PROGRAM-ID. DYNAMIC-ACCESS-SAMPLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
- 1. 最大長で定義したBASED項目
01 BUFFER-AREA PIC X(200) BASED.
01 PTR-ADDRESS POINTER.
01 ACTUAL-LENGTH PIC 9(03).
PROCEDURE DIVISION.
- 実際にはALLOCATEなどでメモリを確保したと仮定
SET ADDRESS OF BUFFER-AREA TO PTR-ADDRESS.
- 2. 可変長のデータを処理する場合
MOVE 50 TO ACTUAL-LENGTH.
- 3. 部分参照（項目名(開始位置:長さ)）を用いて制御する
- BUFFER-AREA(1:ACTUAL-LENGTH) とすることで、
- コンパイル時に決まった200バイトの中から、
- 実行時に必要な50バイト分だけを操作対象にできる
DISPLAY “処理対象のデータ: ” BUFFER-AREA(1:ACTUAL-LENGTH).
GOBACK.
5. 応用と注意点：現場で陥りやすいバグ
最も注意すべきは「部分参照の範囲外アクセス」です。例えば、ACTUAL-LENGTHに201以上の値が入った状態で部分参照を行うと、プログラムが異常終了（または予期せぬメモリ領域の参照）を引き起こします。
現場で実装する際は、必ず「IF文による長さのチェック（範囲制限）」を組み込んでください。また、BASED項目が指し示すポインタがNULLでないことを確認する「防御的プログラミング」も忘れずに行いましょう。これらを守ることで、COBOLの堅牢性を維持したまま、柔軟なデータ処理が可能になります。
コメント