埋め込みの説明
@1@ : エラーの原因となった手続き名.
例題
[P2662.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2662. 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 PROCEDURE DIVISION. 000010 EXEC SQL 000011 WHENEVER SQLERROR GO TO :ERR-1 000012 END-EXEC. 000013* 000014 EXEC SQL 000015 DECLARE CUR1 CURSOR FOR 000016 SELECT * 000017 END-EXEC 000018* 000019 EXEC SQL 000020 OPEN CUR1 000021 END-EXEC 000022 END PROGRAM P2662.
P2662.cob 20: JMN2662I-S 有効なWHENEVER文の手続き名'ERR-1'が未定義または多重定義です.GO TO手続き名指定をCONTINUE指定とみなします.