RPG 嵌入式 SQL - 获取和更新行
RPG embedded SQL - Fetching and updating rows
我想在 RPG 中提取行并更新它们（免费）。
使用旧式操作码我会这样做：
READE %KDS(KEY) FILE;
processRecord();
UPDATE FILE;
SQL 操作码出现问题：
EXEC SQL FETCH MYCURSOR INTO :VAR;
processRecord();
????
使用 EXEC SQL UPDATE FILE... SET... WHERE KEY... return 一个 SQLCOD 错误。
有什么特别的技巧吗？
通过阅读"Programming in 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;
就是这样，非常简单！
我想在 RPG 中提取行并更新它们（免费）。 使用旧式操作码我会这样做：
READE %KDS(KEY) FILE;
processRecord();
UPDATE FILE;
SQL 操作码出现问题：
EXEC SQL FETCH MYCURSOR INTO :VAR;
processRecord();
????
使用 EXEC SQL UPDATE FILE... SET... WHERE KEY... return 一个 SQLCOD 错误。
有什么特别的技巧吗？
通过阅读"Programming in 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;
就是这样，非常简单！