Re: How to properly use %EOF() bif?

Igor,

> 01 FOR COUNT=1 TO %Elem(keyARRAY);
> 02 key4file=keyARRAY(COUNT);
> 03 chain key4file KEYEDFILE;
> 04 if %Found();
> 05   dow NOT %Eof();
> 06      register();
> 07      reade key4file KEYEDFILE;
> 08   ENDDO;
> 09  endIf;
> 10 endFor;

once the first loop is done, the condition %eof value is "true".

it remains true until the next setll (is that what register does?)

after the first iterration of the loop, the DOW NOT %EOF() fails to
enter the do, because it IS %eof.

This is due to the fact that you have not specified a file name on
your %eof() bif.
%eof() - with no file name - is not effected by chain, setll, etc.

Change it to %eof(KEYEDFILE) and it should work.

it's good practice to include the file name in all file condition bifs
for this reason, and for clarity and maintainability.

Hope this helps,

Rick