導入：なぜ「添字の型」を意識すべきなのか
COBOLの実務において、配列（テーブル）操作は避けて通れません。新人の頃、「添字にはUSAGE INDEXを使わなければならない」と教わった方も多いのではないでしょうか。しかし、実際の現場ではPIC 9の数値項目を添字に使用するケースも多々あります。この使い分けを正しく理解することは、メモリ効率と可読性を両立させ、思わぬ実行時エラーを防ぐために非常に重要です。本稿では、添字に指定可能なデータ型とその特性を整理します。
基礎知識：添字の仕組みと型について
COBOLの添字は、テーブル内の特定の位置を指定するためのポインタのような役割を果たします。
USAGE INDEXは、コンパイラが最も効率的にメモリアドレスを計算できるように最適化された型です。一方、PIC 9（数値項目）は、通常の演算や編集に使用するデータ型です。現代のコンパイラではPIC 9でも十分に高速ですが、INDEX型は「ハードウェアのメモリ・アドレッシングに直接最適化されている」という特性があるため、大量の繰り返し処理ではINDEX型が有利に働く場合があります。
実装/解決策：添字の適切な使い分け
基本原則は「カウンターや計算が必要な場合はPIC 9」「単純な繰り返しや検索（SEARCH文など）にはINDEX」とすることです。特に注意すべきは「範囲外アクセス」です。添字は必ず1以上の整数である必要があります。0や負の値を指定すると、実行時にS0C4や異常終了を招くため、必ず事前に範囲チェックを行うロジックを組み込むのがベテランの作法です。
サンプルプログラム：PIC 9を使用したテーブル参照の実装例
以下に、計算結果を添字として利用する実用的なコード例を示します。
01 WS-TABLE-DATA.
05 WS-ITEM PIC X(10) OCCURS 10 TIMES.
01 WS-INDEX-VAR PIC 9(02) VALUE 0.
01 WS-CALC-RESULT PIC 9(02) VALUE 0.
- — 処理部 —
- 計算によって添字を決定する例
COMPUTE WS-CALC-RESULT = 5 + 1.
- 範囲チェック（安全なコーディング）
IF WS-CALC-RESULT > 0 AND WS-CALC-RESULT <= 10 MOVE WS-ITEM(WS-CALC-RESULT) TO WS-WORK-AREA ELSE DISPLAY 'エラー: 添字が範囲外です' END-IF.
応用・注意点：現場で役立つヒント
現場で遭遇しやすいトラブルを避けるためのポイントは以下の通りです。
1. ゼロ除算ならぬ「ゼロ添字」に注意
COBOLの配列は通常1から始まります。C言語などの0スタートに慣れている方は特に注意が必要です。動的な計算で添字を算出する場合、必ず初期値が1以上になるよう設計してください。
2. パフォーマンスの最適化
非常に大規模なテーブル（数万件単位）をループで回す場合、添字の型をINDEX型に統一することで、CPUのロードサイクルが削減されることがあります。逆に、単発のアクセスであれば可読性の高いPIC 9の方がメンテナンス性は向上します。
3. 符号付き項目は避ける
PIC S9などは使用可能ですが、符号ビットの処理が無駄なオーバーヘッドを生む可能性があります。添字には必ず符号なしのPIC 9を使用するのが定石です。
これらの基本を押さえ、安全で保守性の高いコードを維持しましょう。
コメント