RE: When is %EOF not an %EOF

["Christen, Duane J." <dchristen@xxxxxxxxxxxxx>]

Booth;

I would code it this way;

key     SetLL   FileName
key     ReadE           FileName

        DoW             Not %Eof(FileName)
...
key     ReadE           FileName
        EndDo


Duane


-----Original Message-----
From: Booth Martin [mailto:Booth@xxxxxxxxxxxx]
Sent: Sunday, September 28, 2003 12:12 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: When is %EOF not an %EOF


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

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



NOTICE: This electronic mail transmission may contain confidential
information and is intended only for the person(s) named.  Any use, copying
or disclosure by any other person is strictly prohibited. If you have
received this transmission in error, please notify the sender via e-mail.