1. 導入：なぜ指標名の使い回しは危険なのか
COBOLのテーブル操作において、添字として「指標名（Index）」を使用することは、パフォーマンスの観点から非常に有効です。しかし、複数のテーブルで同じ指標名を使い回すことは、デバッグが困難なバグを引き起こす最大の要因の一つです。なぜなら、指標名は単なる数値変数ではなく、メモリ上の「オフセット（アドレスからの距離）」を保持する特殊な領域だからです。本記事では、この「指標名の共有禁止」の重要性と、正しい実装ルールについて解説します。
2. 基礎知識：指標名と添字（Subscript）の違い
COBOLには、テーブルを参照する方法が二つあります。一つは「添字（整数値）」による指定、もう一つは「指標名（Index-name）」による指定です。
指標名は、コンパイラが内部的に「要素のサイズ×（値-1）」を計算し、直接メモリ上のアドレスを指し示します。そのため、構造（OCCURS句の定義）が異なるテーブルで同じ指標名を使ってしまうと、プログラムが「Aテーブルの要素サイズ」に基づいて計算したオフセットを「Bテーブルのデータ」に適用しようとしてしまい、誤ったメモリ領域を参照する致命的な不具合が発生します。
3. 実装・解決策：テーブルごとに一意の指標名を定義する
解決策は非常にシンプルです。「1テーブルにつき、1つの指標名を専用に用意する」ことです。複数のテーブルで使い回すようなコーディングは、可読性を下げるだけでなく、将来的な仕様変更時のリスクを増大させます。
4. サンプルプログラム
以下に、安全な指標名の定義と使用例を示します。
プログラムコード：
IDENTIFICATION DIVISION.
PROGRAM-ID. INDEX-EXAMPLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
- テーブルA用の指標名
01 TBL-A-INDEX INDEX.
01 TABLE-A OCCURS 10 TIMES INDEXED BY TBL-A-INDEX.
05 DATA-A PIC X(10).
- テーブルB用の指標名（Aとは別にする！）
01 TBL-B-INDEX INDEX.
01 TABLE-B OCCURS 5 TIMES INDEXED BY TBL-B-INDEX.
05 DATA-B PIC X(20).
PROCEDURE DIVISION.
- SET文を使用して指標を初期化・移動させる
SET TBL-A-INDEX TO 1.
SET TBL-B-INDEX TO 1.
- テーブルAを参照
MOVE ‘DATA-A-VAL’ TO DATA-A(TBL-A-INDEX).
- テーブルBを参照（Aの指標は絶対に使わない！）
MOVE ‘DATA-B-VAL’ TO DATA-B(TBL-B-INDEX).
GOBACK.
5. 応用・注意点：現場で陥りやすい罠
現場でよく見かけるNGパターンは、ループ処理で「共通の指標名」を使い回すケースです。特にSET文で指標を操作する際、うっかり別のテーブルの指標を指定してしまうと、コンパイルエラーにならずに実行時に予期せぬ領域を破壊する可能性があります。
注意点として、指標名を引数としてサブルーチンに渡すことも避けるべきです。指標はあくまでそのテーブルのスコープ内でのみ有効なものと考え、テーブルの外へ持ち出す必要がある場合は、一度「数値項目（PIC 9(4)など）」に変換してから受け渡すのが、ベテランの設計流儀です。安全なコードは、読みやすさと「持ち場を守る」ことから始まります。
コメント