1. 導入：なぜキーの優先順位が重要なのか
業務システムにおいて、大量のテーブルデータを高速に検索する際、COBOLのSEARCH ALLは欠かせない機能です。しかし、複数のキーを指定した際に「なぜか値が見つからない」「意図しないレコードが返される」といったトラブルに遭遇したことはありませんか？その原因の多くは、キーの優先順位とデータのソート順序の不一致にあります。本稿では、高度なデータ制御に不可欠な「複数キー指定」の仕組みを解説します。
2. 基礎知識：SEARCH ALLと二分探索
SEARCH ALLは、テーブル全体を順番に走査するのではなく、「二分探索（バイナリサーチ）」というアルゴリズムを使用します。これは、ソートされたデータの中央値を基準に探索範囲を半分ずつ絞り込むため、非常に高速です。この仕組みを正しく動作させるためには、OCCURS句で定義したキーの並び順と、実際にデータが格納されているソート順が完全に一致していることが絶対条件となります。
3. 実装と解決策：優先順位の定義
キーを複数指定する場合、左から右へ「第一キー」「第二キー」「第三キー…」と優先順位が決定されます。
例えば、`ASCENDING KEY IS KEY-MAJOR, KEY-MINOR` と記述した場合、まずは `KEY-MAJOR` で絞り込み、次に `KEY-MINOR` で特定するというロジックが働きます。したがって、データを用意する際も、必ずこの優先順位通りに昇順（または降順）でソートしておく必要があります。
4. サンプルプログラム
以下の例は、部門コード（第一キー）と社員コード（第二キー）で二分探索を行う標準的な記述です。
WORKING-STORAGE SECTION.
01 EMP-TABLE.
05 EMP-ENTRY OCCURS 100 TIMES
ASCENDING KEY IS EMP-DEPT-ID, EMP-ID
INDEXED BY EMP-IDX.
10 EMP-DEPT-ID PIC X(04).
10 EMP-ID PIC X(05).
10 EMP-NAME PIC X(20).
PROCEDURE DIVISION.
SEARCH-ROUTINE.
SET EMP-IDX TO 1.
MOVE “D001” TO EMP-DEPT-ID.
MOVE “12345” TO EMP-ID.
- SEARCH ALLは、定義したキーの優先順位に従い
- 二分探索を自動実行します。
SEARCH ALL EMP-ENTRY
WHEN EMP-DEPT-ID(EMP-IDX) = “D001”
AND EMP-ID(EMP-IDX) = “12345”
DISPLAY “発見しました: ” EMP-NAME(EMP-IDX)
WHEN AT END
DISPLAY “該当データはありません”
END-SEARCH.
5. 応用・注意点：現場でのトラブルを避けるために
現場でよくあるバグとして、「キーの一部だけをソートして、残りのキーが未ソートだった」というケースがあります。SEARCH ALLは、指定したすべてのキーが完全にソート順に従っている前提で動きます。もし一部でも順序が崩れていると、二分探索は対象を見落とします。
また、デバッグ時に「値が入っているはずなのに見つからない」場合は、まず対象データのソート順をダンプして確認してください。もし複雑な条件で検索する必要がある場合は、あえてSEARCH ALLを使わず、自分でソート済みのインデックスを作成するか、あるいはテーブルの定義自体を再考する勇気も必要です。基本に忠実であることが、最も堅牢なシステムを作る秘訣です。
コメント