× 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.



I don't use BIF's for file access.

-----Original Message-----
From: Rich Duzenbury [mailto:rduz-midrange@xxxxxxxxxxxxxxxxxxx]
Sent: Friday, March 26, 2004 7:43 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: RPG400-L Digest, Vol 3, Issue 231


On Fri, 2004-03-26 at 16:33, John Brandt Sr. wrote:
> I've already corrected the %Eof and %Found statement.
> 
> Is this simple enough for everyone? (If not, the next one will have
> indicators in it)
> 
> C     myklist       chain     myfile
> C                   dow       not %Found
> C                   eval      rrn = rrn + 1
> C                   write     mysubfile
> C     myklist       reade     myfile    
> C                   end
Sorry to trouble you, but you still have an important problem.  %FOUND
is not set by the READE opcode. %FOUND is only set in the
context of a file operation by CHAIN, DELETE, SETGT, SETLL.  Therefore,
you still have the possibility of an infinite loop with this code.

An earlier poster already gave you the answer, which is to abandon the 
chain/reade combo if you wish to use BIF's, and go with SETLL/READE opcode
pairs.

I don't mind indicator code, I'm used to seeing it.

--
Regards,
Rich

Current Conditions in Des Moines, IA
Overcast
Temp 64.4F
Winds out of the East at 8mph




_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.642 / Virus Database: 410 - Release Date: 3/24/04
 

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.639 / Virus Database: 408 - Release Date: 3/22/04
 

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.