埋め込みの説明
@1@ : SQLSTATEまたはSQLCODE.
例題
[P2969.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2969. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 EXEC SQL BEGIN DECLARE SECTION END-EXEC. 000007 01 SQLCA. 000008 02 W1. 000009 03 SQLSTATE PIC X(5). 000010 77 HVAR3 PIC S9(9) BINARY. 000011 EXEC SQL END DECLARE SECTION END-EXEC. 000011 PROCEDURE DIVISION. 000012 EXEC SQL 000013 SELECT CL1 INTO :HVAR3 FROM TBL 000014 END-EXEC. 000015 END PROGRAM P2969.
P2969.cob 9: JMN2969I-S 'SQLSTATE'は,レベル番号01のSQLCAに直接従属するOCCURS句の指定のない項目でなければいけません.
詳細な説明
SQLSTATEまたはSQLCODEは,埋込みSQL文の実行結果を応用プログラムに通知するための連絡域です.SQLに従属するこれらは,レベル番号01,77の項目またはレベル番号01のSQLCAに直接従属するレベル番号02~49の項目として宣言してください.