Reade in ile
DEmpnoo S 2 0 Inz(12) C *Loval Setll Emplf C Empnoo Reade Emplf C Dow Not %Eof(Emplf) C Empno Dsply C Empnoo Reade Emplf C Enddo Here emplf is logical file keyed with emp no Data in emplf EMPNO EMPNAME 11 test11 12 test12 13 test14 14 test14 15 test15 setll *loval points first record [...]

Answer Question   |  August 21, 2008  6:57 AM
Read Equal Key, READE, RPG, RPG ILE