2016-10-26 6 views
0

Я хочу fecth строк и обновлять их в RPG (бесплатно). Использование старых опкодов стиля я сделать это:RPG встроенный SQL - выборка и обновление строк

READE %KDS(KEY) FILE; 
processRecord(); 
UPDATE FILE; 

Проблемы приходят с опкодами SQL:

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

EXEC SQL UPDATE FILE... SET... WHERE KEY... Использование возвращает ошибку SQLCOD.
Есть ли определенная техника?

ответ

5

Прочитав «Программирование в 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; 

Это все, довольно просто!