Re: READE is confusing to me

[Leo Lefebvre <leo@xxxxxxxxx>]

How about doing a SETLL in place of of the CHAIN?
Is your file LIFO, so your CHAIN would give you the last of the group and
therefore your "cursor" is "positioned" at  the end of the group and your READE
would give you only one record?
Before a READE, I always issue a SETLL......



booth@martinvt.com wrote:

> I have trouble making READE work properly.  Here's code that gives me just
> one record of a group and I can't figure out why.  Any replies would be
> appreciated.  I've RTFM so that isn't a help to me.
>
> C     JobNo         Chain     INVDET
> C                   If        %Found
>
>  * Fill the subfile:
> C                   DOW       %Equal And Not %EOF
>  * fill the detail fields:
>  ....
> C     JobNo         READE (E) INVDETR
> C                   END
>
> C                   END
> _______________________
> Booth Martin
> Booth@MartinVT.com
> http://www.MartinVT.com
> _______________________

--

Leo Lefebvre
President
Toronto Users Group for Midrange Systems
Visit our home page at <http://www.tug.on.ca>
Ph: (416) 606-5960   ---   Fx: (416) 495-0100
mailto:leo@tug.on.ca


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---