埋め込みの説明
@1@ : SQLMSG.
例題
[P2826.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2826. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 EXEC SQL BEGIN DECLARE SECTION END-EXEC. 000007 01 HVAR1 PIC S9(9) BINARY. 000008 01 SQLSTATE PIC X(5). 000009 01 SQLMSG. 000010 02 PIC S9(4). 000011 02 PIC X(50). 000012 EXEC SQL END DECLARE SECTION END-EXEC. 000013 PROCEDURE DIVISION. 000014 EXEC SQL WHENEVER SQLERROR CONTINUE END-EXEC 000015 EXEC SQL 000016 SELECT CL1 FROM T1 000017 INTO :HVAR1 000018 END-EXEC 000019 END PROGRAM P2826.
P2826.cob 9: JMN2826I-S SQLMSGは英数字項目でなければなりません.
詳細な説明
SQL文の実行によって例外事象が発生した場合,例外事象の内容を示すメッセージが応用プログラムに通知されます.SQLMSGは,このメッセージを格納するための領域です.
SQLMSGは,レベル番号01または77の英数字項目として,定義しなければなりません.