例題
[SP8503.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. SP8503. 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 X(20). 000009 01 SQLSTATE PIC X(5). 000010 01 SQLMSG PIC X(128). 000011 01 VAR-IND PIC S9(4) COMP-5. 000012 EXEC SQL END DECLARE SECTION END-EXEC. 000013 PROCEDURE DIVISION. 000014 EXEC SQL 000015 DECLARE C1 CURSOR FOR 000016 SELECT PNO FROM STOCK WHERE :PRDCTNAM = 'TIRE' 000017 END-EXEC 000018 EXEC SQL OPEN C1 END-EXEC. 000019 EXEC SQL FETCH C1 INTO :PRDCTNUM END-EXEC. 000020 EXEC SQL UPDATE WHERE CURRENT C1 END-EXEC 000021 EXEC SQL DELETE WHERE CURRENT C1 END-EXEC 000022 EXEC SQL CLOSE C1 END-EXEC. 000023 .
SP8503.cob 20: JMN2633I-S SQL文に誤りがあります.ODBC-8503E キーワードCURRENTの直後にキーワードOFが指定されていません.
SP8503.cob 21: JMN2633I-S SQL文に誤りがあります.ODBC-8503E キーワードCURRENTの直後にキーワードOFが指定されていません.
詳細な説明
UPDATE文またはDELETE文のWHERE句に指定したCURRENT OF指定のキーワードOFがありません.