引数の説明
SQLMSG. |
例
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の英数字項目として,定義しなければなりません.