1. DELETE文とは？

DELETE文は、データベースのテーブルから特定の行を削除するために使用します。テーブル内の行を指定する条件がない場合、全ての行が削除されるため非常に注意が必要です。例えば社員テーブルから退職した社員のデータだけを削除したい場合に使います。WHERE句で条件を指定し、削除対象を明確にすることがポイントです。

2. COBOLでDELETE文を使う基本構文

COBOLでは、DELETE文をEXEC SQLとEND-EXECで囲みます。削除対象の条件はホスト変数を使うことで、安全に値を渡すことができます。


WORKING-STORAGE SECTION.
01  EMP-ID    PIC 9(4) VALUE 1004.

PROCEDURE DIVISION.
    EXEC SQL
        DELETE FROM EMPLOYEE
        WHERE EMPLOYEE_ID = :EMP-ID
    END-EXEC.

この例では、社員IDが1004の社員のデータを削除しています。

3. ホスト変数を使う理由

ホスト変数を使うことで、プログラム内の変数から値を安全にSQL文に渡せます。直接値をSQL文に書くよりも、可読性や保守性が向上し、セキュリティ上も安全です。また、複数の削除条件を動的に変更したい場合にも便利です。

4. DELETE文を使うときの注意点

条件を指定しないDELETEはテーブル全体を削除する危険がある。
ホスト変数の型をテーブルの列と一致させる。
削除対象の行が存在しない場合、削除は行われない。
削除後はSQLCODEを確認し、正常に削除できたかをチェックする。

5. 実践例：退職社員のデータ削除


WORKING-STORAGE SECTION.
01  EMP-ID    PIC 9(4) VALUE 1010.

PROCEDURE DIVISION.
    EXEC SQL
        DELETE FROM EMPLOYEE
        WHERE EMPLOYEE_ID = :EMP-ID
    END-EXEC.

    IF SQLCODE = 0
        DISPLAY "削除成功：" EMP-ID " の社員データを削除しました。"
    ELSE
        DISPLAY "削除失敗：" SQLCODE
    END-IF.


削除成功：1010 の社員データを削除しました。

この例では、社員IDが1010のデータを削除し、SQLCODEを確認して削除結果を表示しています。COBOLのDELETE文を使うことで、必要なデータだけを安全に削除できることがわかります。

6. 初心者向けポイント

DELETE文を使うときは、必ずWHERE句で削除対象を絞ること、ホスト変数を使用して安全に値を渡すこと、そしてSQLCODEで削除結果を確認することが大切です。小規模なテーブルで練習し、削除処理の流れを理解してから本番環境で使用することをおすすめします。

まとめ

ここまで、COBOLにおけるDELETE文の基本的な使い方から、安全にデータを扱うための注意点について詳しく解説してきました。業務基幹システムなどで長年使われ続けているCOBOLですが、データベース操作の根幹となる「削除」の処理は、そのシステムの信頼性を左右する非常に重要な要素です。

DELETE文運用の重要キーワード

COBOLプログラムからSQLを呼び出す際、単に「データを消す」という行為以上に、私たちは「整合性」と「安全性」を意識しなければなりません。特に、大規模な基幹システムでは、一つのレコードを削除したことが原因で、他の関連するデータとの整合性が崩れてしまうリスクもあります。そのため、DELETE文を使いこなすには、以下の要素を深く理解しておく必要があります。

WHERE句による厳密な絞り込み： 意図しないデータまで削除してしまわないよう、一意のキー（社員番号や注文番号など）を指定することが鉄則です。
ホスト変数の活用： プログラム変数とSQLを連携させることで、動的な処理と高いセキュリティを実現します。
SQLCODE（ステータスコード）の確認： 実行後に「本当に消えたのか」「エラーは起きていないか」を判定し、後続の処理を適切に分岐させる必要があります。

実践的なコード例と応用

実務では、単一のレコード削除だけでなく、特定の条件（例えば「一定期間が経過したログデータ」や「フラグが立った無効データ」など）に基づいた一括削除も行われます。以下のサンプルでは、複数の条件を組み合わせた実務に近いDELETE文の構成を紹介します。


       IDENTIFICATION DIVISION.
       PROGRAM-ID. DELETE-SAMPLE.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       * 削除対象の部署コードと状態を定義
       01  HOST-VARIABLES.
           05  W-DEPT-ID      PIC X(04) VALUE "D001".
           05  W-STATUS       PIC 9(01) VALUE 9.
       
       EXEC SQL INCLUDE SQLCA END-EXEC.

       PROCEDURE DIVISION.
       MAIN-RTN.
           * 部署コードがD001かつ、ステータスが9（削除対象）のデータを消去
           EXEC SQL
               DELETE FROM STAFF_TABLE
               WHERE DEPT_ID = :W-DEPT-ID
                 AND STATUS  = :W-STATUS
           END-EXEC.

           * 実行結果の判定
           EVALUATE SQLCODE
               WHEN 0
                   DISPLAY "正常終了：対象データを削除しました。"
               WHEN 100
                   DISPLAY "警告：該当するデータが見つかりませんでした。"
               WHEN OTHER
                   DISPLAY "エラー発生：SQLCODE = " SQLCODE
                   * ここにロールバック処理などを記述
           END-EVALUATE.

           STOP RUN.

システム開発における削除の考え方

近年のシステム設計では、データを物理的に消去する「物理削除」だけでなく、削除フラグを更新して見かけ上消えたように扱う「論理削除」を併用する場合も多いです。しかし、バッチ処理や古いデータの整理においては、依然としてDELETE文による物理削除がパフォーマンス面で有利に働きます。COBOLエンジニアとしては、どちらの手法が最適かを判断し、正確にコードに落とし込むスキルが求められます。

最後に、C#などの現代的な言語と連携してシステムを構築する場合のイメージも持っておくと、エンジニアとしての幅が広がります。例えば、バッチ処理はCOBOLで行い、フロントエンドの管理画面をC#で作成するようなケースです。参考までに、C#側で同様の削除処理（ADO.NET等を使用するイメージ）を行う際のコード例も挙げておきます。


using System;
using System.Data.SqlClient;

public class EmployeeManager
{
    public void DeleteEmployee(int empId)
    {
        string connectionString = "Your_Connection_String";
        string sql = "DELETE FROM EMPLOYEE WHERE EMPLOYEE_ID = @EmpId";

        using (SqlConnection conn = new SqlConnection(connectionString))
        {
            SqlCommand cmd = new SqlCommand(sql, conn);
            cmd.Parameters.AddWithValue("@EmpId", empId);

            try
            {
                conn.Open();
                int rowsAffected = cmd.ExecuteNonQuery();
                if (rowsAffected > 0)
                {
                    Console.WriteLine(empId + " の社員データを削除しました。");
                }
                else
                {
                    Console.WriteLine("対象のデータが見つかりませんでした。");
                }
            }
            catch (Exception ex)
            {
                Console.WriteLine("エラーが発生しました: " + ex.Message);
            }
        }
    }
}

このように、言語が違えど「SQLを組み立て、パラメータ（ホスト変数）を渡し、結果を確認する」というフローは共通しています。COBOLで培ったDELETE文の知識は、他の言語でも必ず役立つ普遍的なスキルと言えるでしょう。

先生と生徒の振り返り会話

生徒

「先生、まとめを読んでDELETE文の怖さと重要性がさらによく分かりました。特にSQLCODEが0以外の場合の処理も考えないといけないんですね。」

先生

「その通りです。プログラムは成功した時よりも、失敗した時にどう動くかが重要なんです。特に削除処理でエラーが出たまま放置すると、後続の計算が狂ってしまうこともありますからね。」

生徒

「SQLCODEが100のときは『データがない』という意味だと教わりましたが、これはエラーではないんですか？」

先生

「いい質問ですね。COBOLやDBの世界では、100は『正常に終了したけれど、対象は0件だった』という通知です。これを異常とみなすか、単なるスルーで良いかは設計次第ですが、プログラムが止まるような重大エラー（マイナスの値など）とは区別して考えます。」

生徒

「なるほど。あと、ホスト変数の定義でPIC句の桁数をDBの定義と合わせるのも、地味に重要そうですね。」