埋め込みの説明
@1@ : ホスト変数名
例題
[SP8766.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. SP8766. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 EXEC SQL BEGIN DECLARE SECTION END-EXEC. 000006 01 STOCK-TABLE1. 000007 02 PRDCTNUM1 PIC S9(4) COMP-5. 000008 02 PRDCTNAM1. 000009 03 PRDCTNML1 PIC S9(4) BINARY. 000010 03 PRDCTNMS1 PIC N(8). 000011 01 STOCK-TABLE2. 000012 02 PRDCTNUM2 PIC S9(4) COMP-5. 000013 02 PRDCTNAM2 OCCURS 3 PIC X(10). 000014 01 STOCK-TABLE3. 000015 02 PRDCTNAM3 OCCURS 3 PIC X(10). 000016 02 PRDCTNUM3 PIC S9(4) COMP-5. 000017 01 STOCK-TABLE4. 000018 02 PRDCTNUM4 OCCURS 2 PIC S9(4) COMP-5. 000019 02 PRDCTNAM4 OCCURS 4 PIC X(10). 000020 01 SQLSTATE PIC X(5). 000021 01 SQLMSG PIC X(128). 000022 01 VAR-IND1 PIC S9(4) COMP-5. 000023 EXEC SQL END DECLARE SECTION END-EXEC. 000024 PROCEDURE DIVISION. 000025 EXEC SQL 000026 SELECT PNO INTO :STOCK-TABLE1 FROM STOCK WHERE PNAME = 'TIRE' 000027 END-EXEC 000028 EXEC SQL 000029 SELECT PNO INTO :STOCK-TABLE2 FROM STOCK WHERE PNAME = 'WHEEL' 000030 END-EXEC 000031 EXEC SQL 000032 SELECT PNO INTO :STOCK-TABLE3 FROM STOCK WHERE PNAME = 'SHIFT' 000033 END-EXEC 000034 EXEC SQL 000035 SELECT PNO INTO :STOCK-TABLE4 FROM STOCK WHERE PNAME = 'ENGIN' 000036 END-EXEC 000037 .
SP8766.cob 26: JMN2633I-S SQL文に誤りがあります.ODBC-8766E SQL文変数“STOCK-TABLE1”の従属項目に誤った指定があります.
SP8766.cob 29: JMN2633I-S SQL文に誤りがあります.ODBC-8766E SQL文変数“STOCK-TABLE2”の従属項目に誤った指定があります.
SP8766.cob 32: JMN2633I-S SQL文に誤りがあります.ODBC-8766E SQL文変数“STOCK-TABLE3”の従属項目に誤った指定があります.
SP8766.cob 35: JMN2633I-S SQL文に誤りがあります.ODBC-8766E SQL文変数“STOCK-TABLE4”の従属項目に誤った指定があります.
詳細な説明
該当する行のSQL文中で形式の誤った以下のホスト変数が参照されています.
集団項目がある複数列指定ホスト変数
複数列指定と複数行指定が混在したホスト変数
反復回数が異なる表指定ホスト変数