RE: EOF

<snip>
This will work today, but as someone pointed out, as soon as someone
adds
another I/O, the routine becomes toast.

I prefer to use my own indicator. This will produce a considerably
more
stable application. See the semi-pseudo code:

DoU noMoreRecords ;
Select ;
When cond1 ;
Read file1 ;
noMoreRecords = %EOF(file1) ;
when cond2 ;</snip>

not true. if the new I/O is just adding a new file in a WHEN condition
it
will still work as designed without a problem.

Au contraire! That is the sort of small thinking that causes this to be a
problem. Here's what I meant (definitely not lined up!!!) :


DoU %EOF
Select ;
Etc...
EndSL ;
If not %EOF ;
Do some stuff ;
Proc1()
Endif
Enddo


P proc1 B
D proc1 pi
/free
Read file99 ;
/end-free
P proc1 e

Now, what will happen when file99 reaches EOF?

D