The following embedded SQL comes back with an
"Invalid cursor state" on the UPDATE statement.
What could it be?

EXEC SQL DECLARE cur1 CURSOR FOR
SELECT col1 FROM table1 FOR UPDATE OF col1
END-EXEC

EXEC SQL OPEN cur1 END-EXEC

EXEC SQL FETCH cur1 INTO :ws-col1 END-EXEC

EXEC SQL
UPDATE table1 SET col1 = 'The rain in spain'
WHERE CURRENT OF cur1
END-EXEC

EXEC COMMIT END-EXEC
EXEC SQL CLOSE cur1 END-EXEC


**** other info
Oracle 9i, Microfocus COBOL