1. WHERE句とは？

COBOLでデータベースを操作するとき、WHERE句は検索条件を指定するために使います。たとえば、社員テーブルから特定の部署に所属する社員だけを取得したい場合に利用します。条件付き検索を行うことで、必要なデータだけを効率的に抽出できます。

2. WHERE句の基本構文

COBOLでSQLを埋め込む場合、EXEC SQLとEND-EXECで囲んで書きます。WHERE句を使った基本的な構文は次の通りです。


EXEC SQL
    SELECT EMPLOYEE_ID, EMP_NAME, DEPT
    INTO :EMP-ID, :EMP-NAME, :EMP-DEPT
    FROM EMPLOYEE
    WHERE DEPT = :TARGET-DEPT
END-EXEC.

この例では、社員テーブル（EMPLOYEE）から、指定した部署（TARGET-DEPT）に所属する社員のID、名前、部署を取得しています。

3. WHERE句で使える条件

WHERE句では次のような条件が使えます。

= : 等しい（例：DEPT = '営業'）
< > : 等しくない（例：AGE <> 30）
<, <=, >, >= : 大小比較（例：SALARY > 50000）
AND, OR : 複数条件の組み合わせ（例：DEPT = '営業' AND SALARY > 50000）
BETWEEN : 範囲指定（例：AGE BETWEEN 25 AND 35）
LIKE : 部分一致検索（例：EMP_NAME LIKE '山田%'）

条件を工夫することで、より柔軟な検索が可能になります。

4. 実践例：営業部の社員を検索する


WORKING-STORAGE SECTION.
01  EMP-ID     PIC 9(4).
01  EMP-NAME   PIC X(20).
01  EMP-DEPT   PIC X(10).
01  TARGET-DEPT PIC X(10) VALUE '営業'.

PROCEDURE DIVISION.
    EXEC SQL
        SELECT EMPLOYEE_ID, EMP_NAME, DEPT
        INTO :EMP-ID, :EMP-NAME, :EMP-DEPT
        FROM EMPLOYEE
        WHERE DEPT = :TARGET-DEPT
    END-EXEC.

    IF SQLCODE = 0
        DISPLAY "検索成功：" EMP-NAME " (ID:" EMP-ID ")"
    ELSE
        DISPLAY "検索失敗：" SQLCODE
    END-IF.


検索成功：田中太郎 (ID:1001)

この例では、営業部の社員だけを検索し、成功すれば名前とIDを表示しています。SQLCODEでエラーをチェックすることで、安全にデータを取得できます。

5. 初心者向けポイント

WHERE句を使うと、必要なデータだけを効率的に取得できます。プログラミング未経験の方でも、条件を工夫すれば抽出したいデータを簡単に指定できるのがポイントです。また、SQLCODEやSQLSTATEを使って検索結果やエラーを確認する習慣をつけることで、安全にデータベース操作ができるようになります。

6. 複数条件での検索

複数条件を組み合わせる場合、ANDやORを使用します。


EXEC SQL
    SELECT EMPLOYEE_ID, EMP_NAME
    INTO :EMP-ID, :EMP-NAME
    FROM EMPLOYEE
    WHERE DEPT = :TARGET-DEPT
      AND SALARY > 50000
END-EXEC.

このようにすれば、営業部で給与が50000以上の社員だけを抽出できます。複雑な条件もWHERE句で簡単に指定できるのがCOBOLの特徴です。

まとめ

今回の記事では、COBOLプログラミングにおけるデータベース操作の要、WHERE句を用いた条件付き検索について詳しく解説してきました。業務システムの現場において、データベースに蓄積された膨大なレコードの中から、必要な情報だけをピンポイントで抽出する技術は欠かせません。WHERE句を使いこなすことで、プログラムの処理速度を向上させ、無駄なリソース消費を抑えることが可能になります。

WHERE句の重要性と活用シーン

基幹システムで利用されることが多いCOBOLでは、大量の顧客データや売上データを扱う場面が多々あります。全件検索を行ってからプログラム側で判断するのではなく、SQLのWHERE句を用いてデータベースエンジンの段階でフィルタリングを行うのが鉄則です。これにより、ネットワーク負荷の軽減やレスポンスの向上が期待できます。

条件指定のバリエーションと記述のポイント

基本的な比較演算子（=, <>, >, <）に加えて、実務では以下のような構文も頻繁に使用されます。

LIKE句による部分一致検索： 氏名の前方一致や住所のキーワード検索に便利です。
IN句による複数値指定： 「部署コードが01、03、05のいずれか」といった指定がスマートに書けます。
IS NULL / IS NOT NULL： データが未入力（ヌル値）の状態を判定する際に必須です。

C#との連携を意識したデータ処理

現代のシステム開発では、バックエンドの基幹バッチ処理はCOBOLで行い、フロントエンドやAPIサーバーはC#などのモダンな言語で構築する構成も珍しくありません。例えば、C#側でユーザーが入力した検索条件をCOBOLのプログラムに渡し、COBOL側でWHERE句を動的に組み立ててデータを取得するような連携です。

参考までに、もしC#側で同様の条件判定ロジックを記述する場合のコード例も見ておきましょう。COBOLのSQL実行結果を受け取った後の処理イメージです。


// 取得した社員リストを特定の条件でさらにフィルタリングするC#の例
var filteredEmployees = employeeList.Where(e => e.Salary > 50000 && e.Dept == "営業").ToList();

foreach (var emp in filteredEmployees)
{
    Console.WriteLine($"高給与の営業部員: {emp.EmpName} (ID: {emp.EmpId})");
}


高給与の営業部員: 田中太郎 (ID: 1001)

信頼性の高いエラーハンドリング：SQLCODEの活用

COBOLでSQLを実行する際、最も重要なのがSQLCODEのチェックです。データが1件も見つからなかった場合は「100（または+100）」、正常終了なら「0」、何らかのエラーが発生した場合は負の値が返ってきます。WHERE句で厳しい条件を指定しすぎると、該当データなしの状態が発生しやすいため、必ず判定ロジックを組み込みましょう。


    EXEC SQL
        SELECT SALARY INTO :EMP-SALARY
        FROM EMPLOYEE
        WHERE EMPLOYEE_ID = :SEARCH-ID
    END-EXEC.

    EVALUATE SQLCODE
        WHEN 0
            DISPLAY "給与額の取得に成功しました。"
        WHEN 100
            DISPLAY "指定されたIDの社員は存在しません。"
        WHEN OTHER
            DISPLAY "データベースエラーが発生しました。コード：" SQLCODE
    END-EVALUATE.