導入
COBOLのシステム開発において、テーブル（配列）の走査は避けて通れない処理です。しかし、インデックス（指標）の操作を誤ると、バグの温床になったり、パフォーマンス低下を招いたりします。多くの初心者がやりがちな「MOVE文による添字操作」から脱却し、USAGE IS INDEXで定義された指標項目を正しく操ることは、堅牢なCOBOLコードを書くための必須スキルです。今回は、テーブル検索の要であるSET文の正しい作法を解説します。
基礎知識
COBOLにおけるテーブル操作には、大きく分けて「添字（SUBSCRIPT）」と「指標（INDEX）」の2種類があります。
指標（INDEX）とは、テーブル内の要素のオフセット（開始位置からの相対的な距離）を直接保持する領域です。USAGE IS INDEX句で定義されるこの領域は、通常のMOVE文や算術演算（ADD/SUBTRACT）では操作できません。これらを操作するために用意されているのがSET文です。SET文を使うことで、コンパイラは内部的に効率的なメモリ移動を行うことができ、検索処理の高速化が期待できます。
実装/解決策
SET文は単なる値の代入だけでなく、以下の3つのパターンを使い分けるのが現場の作法です。
1. 初期化：SET インデックス名 TO 値
2. 増減：SET インデックス名 UP BY 値 / DOWN BY 値
3. 検索：SEARCH文と組み合わせて使用する
特にSEARCH文（全件検索）やSEARCH ALL文（二分探索）を使う場合、指標項目が正しくセットされていないと無限ループや予期せぬ範囲外アクセスが発生します。必ずループ開始前にSET文でインデックスを初期化する癖をつけましょう。
サンプルプログラム
以下のコードは、テーブルの値を順次参照する標準的な実装例です。
IDENTIFICATION DIVISION.
PROGRAM-ID. SET-SAMPLE.
WORKING-STORAGE SECTION.
01 TABLE-DATA.
05 ITEM-LIST PIC X(10) OCCURS 5 TIMES INDEXED BY WS-IDX.
01 WS-COUNTER PIC 9(02).
PROCEDURE DIVISION.
MAIN-PROCEDURE.
- 指標を初期位置にセット
SET WS-IDX TO 1.
- 5回繰り返すループ処理
PERFORM 5 TIMES
- 現在の指標が指す位置のデータを表示（または処理）
DISPLAY “現在の位置: ” WS-IDX ” 値: ” ITEM-LIST(WS-IDX)
- 次の要素へ移動（インクリメント）
SET WS-IDX UP BY 1
END-PERFORM.
STOP RUN.
応用・注意点
現場でよくある失敗は、「指標の範囲外アクセス」です。SET文でインデックスを操作する際、テーブルの最大要素数（OCCURS句の数）を超えてUP BYしてしまうと、メモリ破壊や異常終了の原因となります。
また、指標項目は「そのテーブル専用」として定義するのが鉄則です。複数のテーブルで同じ指標項目を使い回すと、可読性が著しく低下するだけでなく、複雑なバグの誘因となります。必ず「テーブル名-IDX」のように、どのテーブルの指標であるか明示的な名前を付けるようにしてください。これらを守るだけで、あなたのコードの品質は一段階向上するはずです。
コメント