Re: When is %EOF not an %EOF

["Booth Martin" <Booth@xxxxxxxxxxxx>]

I would make 3 changes to your code based upon experiences I've had:
 
 
Partial_key CHAIN(e) FileName
   if               %Found
   eval          SavedPartialKey = PartialKey
  DOW        SavedPartialKey = PartialKey ...
...
  READ(e)  FileName
  ENDDO
  endif
 
1) I'd do away with *in88 
2) I'd do away with the ReadE.
3) I'd use %found
 
---------------------------------------------------------
Booth Martin http://www.MartinVT.com
Booth@xxxxxxxxxxxx
---------------------------------------------------------
 
-------Original Message-------
 
From: RPG programming on the AS400 / iSeries
Date: Sunday, September 28, 2003 11:15:02
To: RPG programming on the AS400 / iSeries
Subject: When is %EOF not an %EOF
 
To the list,
I seem to run into this problem every once in a while:
 
Using a partial key to perform a CHAIN and READE loop the chain does not
find any records but still goes into the loop. The code looks something
like this -
 
Partial_key CHAIN FileName 88
DOW NOT %EOF vs. *IN88 = *OFF
...
...
Partial_key READE FileName 88
ENDDO
 
If I replace the %EOF with an indicator (DOW *IN88 = *OFF and the READE
with the 88 in the "=" indicator position), it works like I expect. My
customer's box is at V4R5. Could I be imagining this or what?
 
TIA...
Eric
_______________________________________________
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.
 
.