先生と生徒の会話形式で理解しよう

生徒

「先生、COBOLでデータベースにアクセスしたあと、うまくいったかどうか確認する方法はありますか？」

先生

「COBOLでは、SQLCAという構造体を使って、SQL実行の結果を確認できます。SQLCAはSQL通信の状態を示す“サインボード”のようなものです。」

生徒

「サインボードって何ですか？」

先生

「簡単にいうと、SQL文が成功したか失敗したか、エラーコードや警告を教えてくれる情報の集まりです。これを見れば、プログラムがどう動いたか判断できます。」

1. SQLCAとは？

SQLCA（SQL Communications Area）は、データベースとCOBOLプログラム間でSQL処理の結果を受け取るための構造体です。SQLCAには、SQL文が正常に実行されたかどうかを示すSQLCODEや、警告やエラー情報を格納するSQLERRMなどのフィールドがあります。

プログラムは、SQLCAの情報をチェックすることで、エラー発生時に適切な処理を行うことができます。

2. SQLCAの主な項目

SQLCAにはいくつか重要な項目があります。代表的なものを紹介します。

SQLCODE：SQL文の実行結果コード。0なら成功、正の値なら警告、負の値ならエラー。
SQLERRM：エラーメッセージの内容。どのような理由で失敗したかを文字列で保持。
SQLWARN：警告のフラグ。データベースから返された警告を確認できます。

このSQLCAをチェックすることで、COBOLプログラムは安全にデータベース操作を行うことができます。

3. エラーハンドリングの基本

エラーハンドリングとは、プログラム実行中に発生するエラーや異常を検知し、適切に対応することです。COBOLでデータベースにアクセスする場合、SQLCAのSQLCODEを確認して、処理を分岐させるのが基本です。


EXEC SQL
    SELECT EMPLOYEE_NAME
    INTO :EMP-NAME
    FROM EMPLOYEE
    WHERE EMPLOYEE_ID = :EMP-ID
END-EXEC.

IF SQLCODE = 0
    DISPLAY "データ取得に成功しました。"
ELSE
    DISPLAY "エラー発生：" SQLCODE
END-IF

ここで、SQLCODE = 0は成功を意味します。SQLCODE < 0はエラー、SQLCODE > 0は警告です。たとえば、対象データが存在しなかった場合は正の値が返ります。

4. SQLCAを使った応用的なエラーハンドリング

SQLCAを使えば、エラー内容に応じた細かい処理が可能です。例えば、データが存在しなかった場合と、データベース接続が失敗した場合で処理を分けることができます。


IF SQLCODE = 0
    DISPLAY "社員情報を取得しました：" EMP-NAME
ELSE IF SQLCODE = 100
    DISPLAY "該当する社員が存在しません。"
ELSE
    DISPLAY "SQLエラー発生：" SQLCODE
    DISPLAY "詳細：" SQLERRM
END-IF

ここでSQLCODE = 100は、検索したデータが存在しなかったことを意味します。その他の負の値は、ネットワーク障害や構文エラーなどの重大な問題を示します。

5. 初心者が覚えておくべきポイント

SQLCAはSQL文の実行結果を取得するための必須情報。
SQLCODEを確認することで、処理の成功・警告・エラーを判断できる。
SQLERRMで具体的なエラー内容を把握できる。
エラー処理はプログラムの安定性に直結するため、必ずチェックする。
SQLCAはEXEC SQLを使うデータベース処理すべてで自動的に更新される。

6. 実践例で確認しよう

実際に社員情報を取得して、SQLCAでエラー処理を行う例を示します。


WORKING-STORAGE SECTION.
01  EMP-ID   PIC 9(4) VALUE 1001.
01  EMP-NAME PIC X(30).

PROCEDURE DIVISION.
    EXEC SQL
        SELECT EMPLOYEE_NAME
        INTO :EMP-NAME
        FROM EMPLOYEE
        WHERE EMPLOYEE_ID = :EMP-ID
    END-EXEC.

    IF SQLCODE = 0
        DISPLAY "社員名：" EMP-NAME
    ELSE IF SQLCODE = 100
        DISPLAY "該当社員は存在しません。"
    ELSE
        DISPLAY "SQLエラー：" SQLCODE
        DISPLAY "詳細：" SQLERRM
    END-IF.