引数の説明
ホスト変数名 |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. SP8725.
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 .
SP8725.cob (26) : JMN2633I-S SQL文に誤りがあります.ODBC-8766E SQL文変数“STOCK-TABLE1”の従属項目に誤った指定があります.
SP8725.cob (29) : JMN2633I-S SQL文に誤りがあります.ODBC-8766E SQL文変数“STOCK-TABLE2”の従属項目に誤った指定があります.
SP8725.cob (32) : JMN2633I-S SQL文に誤りがあります.ODBC-8766E SQL文変数“STOCK-TABLE3”の従属項目に誤った指定があります.
SP8725.cob (35) : JMN2633I-S SQL文に誤りがあります.ODBC-8766E SQL文変数“STOCK-TABLE4”の従属項目に誤った指定があります.
詳細な説明
該当する行のSQL文中で形式の誤った以下のホスト変数が参照されています.
集団項目がある複数列指定ホスト変数
複数列指定と複数行指定が混在したホスト変数
反復回数が異なる複数列複数行指定ホスト変数