Re: READE is confusing to me

[Paul Tuohy <tuohyp@xxxxxxxxxxxxx>]

Hi  Booth,

Your problem is with the %Equal. Get rid of it, you don't need it. ReadE sets 
the
%EOF condition when it does not read a record. i.e. it does not have to be the
actual EOF.

As an aside, recommend that you use EndDo and EndIf operations as opposed to 
just
End. The compiler will do some extra checking for you.

HTH

Paul Tuohy

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
> _______________________
> +---
> | 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
> +---

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