埋め込みの説明
@1@ : エラーの原因となったカーソル名.
例題
[P2686.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2686. 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 DECLARE CUR1 CURSOR FOR 000012 SELECT C1, C2 WHERE N1 = 10 000013 END-EXEC 000014 EXEC SQL 000015 DECLARE CUR1 CURSOR FOR 000016 SELECT C1, C2 WHERE N1 = 12 000017 END-EXEC 000018 END PROGRAM P2686.
P2686.cob 15: JMN2686I-S カーソル名'CUR1'は,すでに定義されています.
詳細な説明
埋込みSQL文で,同じカーソル名を宣言しているカーソル宣言が2つ以上あります.カーソル名は,翻訳単位のプログラム内で一意でなければなりません.