SQL エラーのチェック

EXECSQL WHENEVER 文は、REXX に対して有効ではありません。EXECSQL が呼び出されるたびに、SQLCODE または SQLSTATE の値を調べて、エラーや警告の有無を確認する必要があります。また、EXECSQL が呼び出されると、REXX RC 特殊変数に戻りコードが設定されます。有効な戻りコードは次のとおりです。

0

SQL 警告や SQL エラーは発生していません。

+1

SQL 警告が発生しました。

-1

SQL エラーが発生しました。

-3

DSNREXX の後に無効なトークンまたはサポートされていないトークンが検出されました。

次に例を示します。

SSID = "DB2T"
ADDRESS MVS "SUBCOM DSNREXX"
IF RC THEN S_RC = RXSUBCOM('ADD','DSNREXX','DSNREXX')
ADDRESS DSNREXX "CONNECT" SSID
IF RC /= 0 THEN DO
   SAY "FAILURE TO CONNECT TO DATABASE"  
   EXIT 8
END

DB2 LUW または SQL Server 以外の DBMS で Micro Focus の DSNREXX を使用しようとすると、DSNREXX "CONNECT" 文の後に戻りコード -1 (SQL エラー) が返されます。