Re: IF NOT %FOUND

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> wrote on 11/11/2019
01:49:39 PM:

is read. *(I ran it in debug so I know the program found it. It
immedially went back up to the top of the do loop, and then on 'IF NOT
%FOUND' it came up as not found, which surprised me as FILE1 was the

last

file to be read and it did find the next record. Am I misunderstanding
something? Again, the program worked fine adding the proper file to the

command.


C KEY1 SETLL FILE1
C KEY1 READE FILE1
C DOU %EOF
C IF NOT %FOUND
...
C ELSE
...
C KEY2 CHAIN FILE2
...
C KEY3 SETLL KEY3
C KEY3 READE KEY3
...
C ELSE
C KEY1 READE FILE1
C ENDDO

Insufficient logic shown -- two ELSE's and no ENDIF's. So, it
looks like the last file read could have been FILE3.


Sincerely,

Dave Clark