RPG嵌入式SQL - 获取和更新行

Question

我想在RPG（免费）中创建行并更新它们。 使用旧式操作码我会这样做：

EXEC SQL FETCH MYCURSOR INTO :VAR;
processRecord();
????

SQL操作码出现问题：

EXEC SQL UPDATE FILE... SET... WHERE KEY...

使用String返回SQLCOD错误 有没有特定的技术？

Answer 1

通过阅读“RPG IV编程”，我找到了答案。

EXEC SQL DECLARE MYCURSOR CURSOR FOR *SELECT STATEMENT* FOR UPDATE OF *FIELDS*;
EXEC SQL OPEN MYCURSOR;
EXEC SQL FETCH MYCURSOS INTO :VARIABLE;
EXEC SQL UPDATE FILE SET *FIELDS* WHERE CURRENT OF MYCURSOR;
EXEC SQL CLOSE MYCURSOR;

就是这样，非常简单！