×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
<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.
Thanks,
Tommy Holden
From: "Dennis Lovelady" <iseries@xxxxxxxxxxxx>
To: "'RPG programming on the IBM i / System i'"
<rpg400-l@xxxxxxxxxxxx>
Date: 11/20/2009 07:21 AM
Subject: RE: EOF
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
Will the test on EOF work correctly ? Will it be on if either of the 3
files is at condition %EOF ? Do I need to check EOF for each file?
Does an indicator EOF exist for all 3 files plus another that indicates
any of the files?
Thanks!
Select
when cond1;
read file1;
when cond1;
read file2;
etc
other;
read file3;
EndSl;
IF %EOF;
etc
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 ;
Etc.
Dennis Lovelady
http://www.linkedin.com/in/dennislovelady
--
"Politics is not a bad profession. If you succeed there are many rewards,
if
you disgrace yourself you can always write a book."
-- Ronald Reagan
midrange.com
