RPG 내장 SQL - 행 가져 오기 및 업데이트

Question

행을 제거하고 RPG (무료)로 업데이트하려고합니다. 사용 된 스타일의 옵 코드 나는 그렇게 할 것 :

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

문제는 SQL 연산 코드와 함께 제공 :

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

는 EXEC SQL UPDATE FILE... SET... WHERE KEY... 돌려 주어 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; 

그건 아주 간단합니다.