例
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がありません．