導入：なぜDEPENDING ONの配置が重要なのか
COBOLの可変長データ構造（ODO：OCCURS DEPENDING ON）は、マスターファイルや帳票出力において、データ量を動的に制御する強力な武器です。しかし、このODOを定義する際、最も初歩的かつ致命的なミスになりがちなのが「DEPENDING ONで指定する数値項目（カウンター）の配置場所」です。このルールを誤ると、コンパイラの警告はもちろん、実行時の予期せぬデータ破壊やメモリの不正アクセスを引き起こします。本稿では、安定したシステム構築のための正しいODO定義ルールを解説します。
基礎知識：ODO（OCCURS DEPENDING ON）とは
ODOとは、配列（テーブル）の要素数を実行時に動的に変更するための句です。通常、COBOLのテーブルは最大要素数を固定しますが、ODOを使うことで「データが入っている分だけ」を処理対象とすることができます。ここで重要なのが「DEPENDING ON」句です。これは、「今、何番目までデータが有効か」を示す数値項目を指定する場所です。システムは、この項目を参照してテーブルの実際の長さを計算します。
実装・解決策：カウンターは「外」に置く
最も重要なルールは、「カウンター項目を、OCCURS句を持つ集団項目の外側に定義する」ことです。
なぜなら、もしカウンター項目を可変長テーブル（集団項目）の中に含めてしまうと、システムがテーブルのサイズを計算しようとした瞬間に、計算の基準となるカウンター自体が「可変長テーブルの一部」となってしまい、メモリ上のオフセット位置が確定できなくなるからです。論理的な再帰（自身のサイズを決める変数が自身の中に含まれる）を避けるため、カウンターは必ず親階層や独立した領域に配置してください。
サンプルプログラム：安全なODO定義例
以下に、正しく定義されたODOのサンプルコードを記載します。
01 WORK-AREA.
- ———————————————————
- カウンター項目は集団項目の「外」に定義する
- ———————————————————
05 TBL-COUNT PIC 9(04) COMP.
- ———————————————————
- テーブル本体（可変長）
- ———————————————————
05 USER-TABLE-GRP.
10 USER-ITEM OCCURS 0 TO 100 TIMES
DEPENDING ON TBL-COUNT
INDEXED BY IDX.
15 USER-ID PIC X(05).
15 USER-NAME PIC X(20).
- 処理のイメージ
PROCEDURE DIVISION.
- 実際の件数を設定
MOVE 5 TO TBL-COUNT.
- これにより、USER-TABLE-GRPのサイズは5件分として扱われる
DISPLAY ‘現在の件数: ‘ TBL-COUNT.
応用・注意点：現場でのトラブル回避
実務において陥りやすい注意点を3つ挙げます。
1. COMP指定の徹底: カウンター項目は必ずCOMP（バイナリ形式）で定義してください。表示用数値（DISPLAY形式）を用いると、計算時のオーバーヘッドやメモリ効率の低下を招きます。
2. 最大値の制御: 0から最大値（上記の例では100）を超えないよう、MOVEする前に必ず範囲チェック（IF文によるバリデーション）を入れてください。ここを怠ると、プログラム異常終了の原因となります。
3. 再定義（REDEFINES）との併用: 可変長データをファイルから読み込む際、REDEFINES句を使ってODO構造を重ねるケースが多いですが、その際もカウンター項目がREDEFINESの領域外にあることを常に意識してください。
ODOを正しく使いこなせば、メモリを節約しつつ柔軟なデータ処理が可能です。まずは「カウンターは外へ」を鉄則としてコーディングしてください。
コメント