RE: READE is confusing to me

["Gary Patterson" <rpg400-l@xxxxxxxxxxxxx>]

I do these like this:

C    JobNo         setll     INVDET
C                  if        not %equal(INVDET)
 *                 ... handle "no matching records" condition
C                  else

C    JobNo         reade     INVDET
C                  dow       not %eof(INVDET)
 *                 ... do stuff
C    JobNo         reade     INVDET
C                  enddo
C                  endif

Notes:
- Using setll/reade as the priming read allows me to use the %eof bif by
itself to condition the loop
- Don't use %equal with reade
- Don't specify "E" extender unless you write an error handler - if
%error... (I use an INFSR for general file error handling instead)
- Always specify the file name with EOF and other file-BIFs.  Trust me.
- If your file is open for update, use reade(N).

-----Original Message-----
From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
Behalf Of booth@martinvt.com
Sent: Sunday, September 10, 2000 2:13 PM
To: rpg400-l@midrange.com
Subject: READE is confusing to me


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