RPGってこんなかんじだよ。

C KEY SETLLTEST1R
C DO *HIVAL
C KEY READETEST1R 01
C 01 Z-ADD1 I 20
C 01 GOTO #NEXT
C Z-ADDFIELD FIELD2
C END