1. 導入：なぜ指標の初期値に注意が必要なのか
COBOLでテーブル（配列）を扱う際、皆さんは「指標（INDEX）」を活用していますか？「添字（SUBSCRIPT）」と似ているようで、実は内部的な動きが全く異なるのがこの指標です。特に初心者が陥りやすいのが、「定義したから中身は0か1だろう」という思い込みです。実は、COBOLでは指標を定義した直後の値は「不定」です。このルールを知らずに使うと、プログラムが予期せぬ場所を参照して異常終了する原因となります。今回は、安全なテーブル操作のための「使用開始の儀式」について解説します。
2. 基礎知識：指標（INDEX）とは何か
COBOLのテーブル操作には「添字」と「指標」の2種類があります。
添字（SUBSCRIPT）は、単なる数値項目として扱われ、プログラム側で計算が可能です。
一方、指標（INDEX）は、コンパイラがメモリ上の位置を直接計算するために最適化された特殊なデータ形式です。
INDEXED BY句で定義された指標は、通常のVALUE句による初期化が効きません。そのため、プログラム実行時に「今どこを指しているか」がメモリ上のゴミデータになっている可能性があり、これをそのまま使うのは非常に危険なのです。
3. 実装/解決策：SET文による初期化
指標を安全に使うための唯一の解決策は、プログラムの処理開始時やループに入る直前に、必ずSET文を使って明示的に値を代入することです。これを怠ると、前回の処理で使われたメモリの状態を引き継いでしまう「不定性」というリスクを抱えることになります。
4. サンプルプログラム
以下のサンプルは、テーブルの先頭から順に値を参照する際、必ずSET文で初期化を行う例です。
IDENTIFICATION DIVISION.
PROGRAM-ID. IDX-SAMPLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TABLE-DATA.
05 ITEM-LIST PIC X(10) OCCURS 5 TIMES INDEXED BY WS-IDX.
PROCEDURE DIVISION.
- — ここが重要：使用前の初期化 —
- 指標WS-IDXを1に設定してから使用を開始する
SET WS-IDX TO 1.
- 5回繰り返してデータを表示する
PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
DISPLAY “現在の指標値は: ” WS-IDX
- ここでテーブルにアクセスする
DISPLAY “データ内容: ” ITEM-LIST(WS-IDX)
END-PERFORM.
STOP RUN.
5. 応用・注意点：現場でのトラブル回避
現場でよくある失敗は、条件分岐の中で「条件を満たした時だけ指標に値を代入し、満たさなかった場合は初期値のまま使おうとする」というケースです。指標は一度使い終わった後、再度使う時には必ず「再初期化」が必要です。
また、PERFORM VARYING文を使用すれば、その構文の中で自動的に指標の初期化とインクリメントが行われますが、独自にロジックを組む場合は、必ず自分の手でSET文を書く癖をつけてください。「動くから大丈夫」ではなく、「明示的に定義するから安全である」という意識が、バグの少ないCOBOLコードを支える鍵となります。
コメント