COBOLのUPDATE文でデータを更新する方法！初心者向けサンプル例

1. UPDATE文とは？

1. UPDATE文とは？

UPDATE文は、データベースの既存の行の値を変更するために使います。テーブル内の特定の行を条件で指定し、新しい値を設定します。例えば社員テーブルの部署名を変更したり、住所情報を更新したりする場合に使用します。SQLでは、条件を指定するWHERE句が重要で、指定しないとテーブル全体のデータが変更されるので注意が必要です。

2. COBOLでのUPDATE文の基本構文

2. COBOLでのUPDATE文の基本構文

COBOLでUPDATE文を使うときは、EXEC SQLとEND-EXECでSQL文を囲みます。値はホスト変数を使用することで、プログラム内の変数から安全に値を渡せます。

WORKING-STORAGE SECTION.
01  EMP-ID    PIC 9(4) VALUE 1004.
01  NEW-DEPT  PIC X(10) VALUE "営業部".

PROCEDURE DIVISION.
    EXEC SQL
        UPDATE EMPLOYEE
        SET DEPARTMENT = :NEW-DEPT
        WHERE EMPLOYEE_ID = :EMP-ID
    END-EXEC.

この例では、社員IDが1004の社員の部署を「営業部」に変更しています。

3. ホスト変数を使うメリット

3. ホスト変数を使うメリット

ホスト変数を使うことで、SQL文に直接値を埋め込むより安全にデータを更新できます。プログラム内の変数に値を設定するだけで簡単にSQLに渡せます。また、変数の値を変えるだけで複数の行を条件に応じて更新することも可能です。これにより、セキュリティリスクや手作業でのミスを減らせます。

4. UPDATE文の注意点

4. UPDATE文の注意点

• 条件を指定しないUPDATEはテーブル全体を変更するため危険。
• ホスト変数の型をテーブルの列と一致させる必要がある。
• 更新対象の行が存在しない場合、変更は行われない。
• SQLCODEを確認して、更新が成功したかどうかをチェックする。

5. 実践例：社員部署の更新

5. 実践例：社員部署の更新

WORKING-STORAGE SECTION.
01  EMP-ID    PIC 9(4) VALUE 1005.
01  NEW-DEPT  PIC X(10) VALUE "開発部".

PROCEDURE DIVISION.
    EXEC SQL
        UPDATE EMPLOYEE
        SET DEPARTMENT = :NEW-DEPT
        WHERE EMPLOYEE_ID = :EMP-ID
    END-EXEC.

    IF SQLCODE = 0
        DISPLAY "更新成功：" EMP-ID " の部署を " NEW-DEPT
    ELSE
        DISPLAY "更新失敗：" SQLCODE
    END-IF.

更新成功：1005 の部署を 開発部

この例では、社員IDが1005の社員の部署を開発部に変更し、SQLCODEで更新結果を確認しています。COBOLでUPDATE文を使うと、既存のデータを簡単かつ安全に更新できることがわかります。

6. 初心者向けポイント

6. 初心者向けポイント

UPDATE文を使うときは、必ずWHERE句で条件を指定すること、ホスト変数を使って安全に値を渡すこと、SQLCODEで更新結果を確認することを意識してください。まずは小さなテーブルで試しながら、更新処理の流れを理解することが重要です。

まとめ

まとめ

ここまで、COBOLにおけるUPDATE文の基本的な使い方から、実務で重要となる注意点まで詳しく解説してきました。メインフレームや基幹システムにおいて、データの正確性を維持することは非常に重要な役割を担っています。その中で、データベースの情報を書き換えるUPDATE文は、頻繁に使用される一方で、一歩間違えるとシステム全体に大きな影響を及ぼす可能性を秘めたコマンドです。

COBOLとSQLの連携（埋め込みSQL）の重要性

現代のCOBOL開発においては、フラットファイル（順次ファイル）の操作だけでなく、リレーショナルデータベース（RDB）との連携が不可欠です。本記事で紹介したEXEC SQLからEND-EXECで囲む記述方式は「埋め込みSQL」と呼ばれ、COBOLプログラムの中から直接データベースを操作するための標準的な手法です。特にUPDATE文は、単なるデータの書き換えにとどまらず、トランザクション管理（COMMITやROLLBACK）と密接に関係しているため、プログラム全体の整合性を保つための要となります。

ホスト変数とデータ整合性の確保

プログラム内の変数をSQL文に渡す「ホスト変数」の利用は、単にコードを簡潔にするだけではなく、プログラムの柔軟性と保守性を高めるために欠かせません。:NEW-DEPTのようにコロンを付けて記述することで、COBOLのWORKING-STORAGE SECTIONで定義した変数の値を動的にSQLへ反映させることができます。この際、COBOL側のデータ型定義（PIC句）と、データベース側のカラム定義（CHARやDECIMALなど）が一致していることが、実行時エラーを防ぐための大前提となります。

実務で差がつくエラーハンドリング（SQLCODE）

初心者の方がつい見落としがちなのが、SQL実行後の結果確認です。COBOLでは、SQLを実行するたびにSQLCODEというシステム変数に実行結果が格納されます。

• 0：正常終了（データの更新が成功）
• 100：該当データなし（WHERE句の条件に合う行が見つからなかった）
• 負の値：何らかの異常エラー（型不一致、ロック待ち、権限不足など）

このように、成功か失敗かだけでなく「更新対象があったのかどうか」を判断することが、堅牢なプログラムを作成するポイントです。

さらなる応用：複数の列を同時に更新する方法

今回のサンプルでは一つの項目（部署名）を更新しましたが、実務では複数の項目を一度に変更することも多いです。その場合は、SET句にカンマ区切りで複数の項目を記述します。

WORKING-STORAGE SECTION.
01  EMP-ID        PIC 9(4) VALUE 2001.
01  NEW-SALARY    PIC 9(7) VALUE 350000.
01  NEW-POSITION  PIC X(10) VALUE "主任".

PROCEDURE DIVISION.
    EXEC SQL
        UPDATE EMPLOYEE
        SET SALARY = :NEW-SALARY,
            POSITION = :NEW-POSITION
        WHERE EMPLOYEE_ID = :EMP-ID
    END-EXEC.

    IF SQLCODE = 0
        DISPLAY "給与と役職を更新しました。"
    ELSE IF SQLCODE = 100
        DISPLAY "対象の社員が見つかりません。"
    ELSE
        DISPLAY "SQLエラーが発生しました。コード：" SQLCODE
    END-IF.

C#との比較で理解を深める

最近では基幹システムのマイグレーション（移行）に伴い、COBOLからC#への書き換えが行われるケースも増えています。C#で同様のデータベース更新処理を行う場合、DapperなどのORM（オブジェクト関係マッピング）ライブラリを使うと、非常に直感的に記述できます。

using System;
using System.Data.SqlClient;
using Dapper;

public class EmployeeRepository
{
    private string connectionString = "YourConnectionStringHere";

    public void UpdateEmployee(int empId, string newDept)
    {
        using (var connection = new SqlConnection(connectionString))
        {
            string sql = "UPDATE EMPLOYEE SET DEPARTMENT = @Dept WHERE EMPLOYEE_ID = @Id";
            int affectedRows = connection.Execute(sql, new { Dept = newDept, Id = empId });

            if (affectedRows > 0)
            {
                Console.WriteLine($"更新成功：社員ID {empId} の部署を {newDept} に変更しました。");
            }
            else
            {
                Console.WriteLine("更新対象が見つかりませんでした。");
            }
        }
    }
}

C#の場合は、@Deptのようなパラメーターを利用してSQLインジェクションを防ぐのが一般的です。COBOLのホスト変数（:NEW-DEPT）と役割は同じであることが分かりますね。言語が変わっても「安全に、確実に、条件を絞って更新する」というデータベース操作の本質は変わりません。

最後に

データベース操作は、参照（SELECT）、追加（INSERT）、削除（DELETE）、そして今回の更新（UPDATE）の4つが基本です。中でもUPDATEは既存の資産を書き換える行為ですので、テスト環境での入念な確認が欠かせません。まずは、本記事で紹介した基本構文をしっかりマスターし、実際のプログラム開発に役立ててください。