導入：なぜ SEARCH ALL でデータが見つからないのか？
COBOLのテーブル操作において、データ検索を高速化するために利用されるのが『SEARCH ALL』文です。これは「二分探索（バイナリサーチ）」というアルゴリズムを用いており、通常の『SEARCH』文（逐次探索）よりも圧倒的に効率的です。しかし、現場では「データはあるはずなのに、なぜか AT END（見つからない）へ飛んでしまう」というトラブルが後を絶ちません。その最大の原因は、テーブルの定義と実際のデータ順序の不整合にあります。
基礎知識：二分探索の仕組みと前提条件
二分探索は、対象データが特定の規則（昇順または降順）で並んでいることを前提として、範囲を半分ずつ絞り込んでいく手法です。電話帳の名前を探すとき、最初から1ページずつめくるのではなく、真ん中を開いて目的の場所を特定する作業をイメージしてください。この「真ん中を見て、目的の値より大きいか小さいかで絞り込む」というロジックを成立させるために、COBOLではデータが「整列済み」である必要があります。
実装・解決策：ASCENDING/DESCENDING キーの厳守
テーブル定義（OCCURS句）で『ASCENDING KEY IS …』と指定した場合、システムは「このデータはキー項目で昇順に並んでいるはずだ」と期待して探索を行います。もし、定義と逆の順序でデータが格納されていたり、ソートされていないデータが混在していたりすると、ロジックは迷子になり、正しい結果を返せません。必ずプログラム実行前に『SORT』文などでキー項目を整列させる必要があります。
サンプルプログラム：安全な SEARCH ALL の実装例
以下のコードは、キー項目が昇順に整列されていることを前提とした検索処理の例です。
WORKING-STORAGE SECTION.
01 TABLE-AREA.
05 TABLE-ITEM OCCURS 10 TIMES ASCENDING KEY IS T-ID
INDEXED BY T-IDX.
10 T-ID PIC 9(04).
10 T-VAL PIC X(10).
PROCEDURE DIVISION.
- 事前にテーブルを T-ID で昇順ソートしておくことが必須です
- SEARCH ALL は整列済みデータに対してのみ有効です
SEARCH ALL TABLE-ITEM
AT END
DISPLAY ‘対象データは見つかりませんでした’
WHEN T-ID(T-IDX) = SEARCH-KEY
DISPLAY ‘データを発見しました: ‘ T-VAL(T-IDX)
END-SEARCH.
応用・注意点：現場で陥りやすいバグの回避策
現場でのトラブルを防ぐためのポイントをいくつか挙げます。
1. 定義と実態の不一致を疑う
プログラム修正時にテーブルの定義を変更し、ソート処理を忘れるケースが非常に多いです。SEARCH ALL が意図通りに動かない場合は、まずデバッグ出力でテーブルの中身が本当に指定したキー順に並んでいるかを確認してください。
2. ASCENDING と DESCENDING の取り違え
定義で『DESCENDING』と書いたのに、昇順でソートしてしまっているケースも散見されます。定義文とソート処理のキー指定が完全一致しているか、必ずダブルチェックを行いましょう。
3. 複合キーの罠
複数の項目をキーにする場合、定義した順序通りにソート条件を記述しなければなりません。複雑な条件が必要な場合は、無理に SEARCH ALL を使わず、安定した逐次探索（SEARCH）への切り替えや、キーの再設計を検討する勇気も必要です。
二分探索は非常に強力な武器ですが、「整列」というルールを裏切ると牙をむきます。基本を忠実に守り、安定したシステム構築を心がけましょう。
コメント