NetCOBOL V11.0 メッセージ集

2.9.12 ODBC-8308E

“@1@”の前後にカーソル名が指定されていません．

埋め込みの説明

@1@ : DECLARE

例題

[SP8308.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    SP8308.
000003 DATA           DIVISION.
000004 WORKING-STORAGE SECTION.
000005     EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000006 01 STOCK-TABLE.
000007   02 PRDCTNUM   PIC S9(4) COMP-5.
000008   02 PRDCTNAM   PIC N(10).
000009 01 SQLSTATE     PIC X(5).
000010 01 SQLMSG       PIC X(128).
000011 01 VAR-IND1     PIC S9(4) COMP-5.
000012     EXEC SQL END DECLARE SECTION END-EXEC.
000013 PROCEDURE DIVISION.
000014     EXEC SQL
000015       DECLARE CURSOR C1 FOR
000016         SELECT PNO FROM STOCK WHERE :PRDCTNAM = 'TIRE'
000017     END-EXEC
000018     .

SP8308.cob 15: JMN2633I-S SQL文に誤りがあります．ODBC-8308E “DECLARE”の前後にカーソル名が指定されていません．

詳細な説明

該当するSQL文に以下の誤りが考えられます．

• カーソル宣言でDECLAREの直後にカーソル名の指定がない

• CURRENT OF指定にカーソル名の指定がない

カーソル名を指定してください．