埋め込みの説明
@1@ : エラーの原因となった利用者語.
例題
[P2663.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2663. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 EXEC SQL BEGIN DECLARE SECTION END-EXEC. 000007 01 SQLSTATE PIC X(5). 000008 EXEC SQL END DECLARE SECTION END-EXEC. 000009 01 PROC-NAME PIC X(8). 000010 PROCEDURE DIVISION. 000011 EXEC SQL 000012 WHENEVER SQLERROR GO TO :PROC-NAME 000013 END-EXEC. 000014* 000015 EXEC SQL 000016 DECLARE CUR1 CURSOR FOR 000017 SELECT * 000018 END-EXEC 000019* 000020 EXEC SQL 000021 OPEN CUR1 000022 END-EXEC 000023 END PROGRAM P2663.
P2663.cob 21: JMN2663I-S 有効なWHENEVER文の名標'PROC-NAME'は,手続き名でなければなりません.GO TO手続き名指定をCONTINUE指定とみなします.