RE: RPG read loops

["Ali Ekinci" <Ali.Ekinci@xxxxxxxxxx>]

What would be nice is (may be already there, but I don;tknow)%read(File) BIF, 
returns a boolean true (and of course the file buffer), if the read was 
successfull. Then we can have a read loop like below:

DoW  %read(FileToRead)
.....
EndDo

-----Original Message-----
From: Paul Morgan [mailto:pmorgan@xxxxxxxxxxxxxx]
Sent: Tuesday, February 01, 2005 4:15 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: RPG read loops


Read Bob Cozzi
DoW Bob Cozzi Trolls
   Delete
   Read Bob Cozzi
EndDo;

Thanks,
Paul

-- 
Paul Morgan
Senior Programmer Analyst - Retail
J. Jill Group
100 Birch Pond Drive, PO Box 2009
Tilton, NH 03276-2009
Phone: (603) 266-2117
Fax:   (603) 266-2333
"Bob Cozzi" <cozzi@xxxxxxxxx> wrote in message
news:200502012103.j11L3YNi002302@xxxxxxxxxxxxxxxxxxxx
> Three lines go into and out of each dot.
> Curved, straight, whatever.
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of rick baird
> Sent: Tuesday, February 01, 2005 2:57 PM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: RPG read loops
>
> a strait line?   one line?
>
>
> On Tue, 1 Feb 2005 14:39:06 -0600, Bob Cozzi
<cozzi@xxxxxxxxx> wrote:
> > Yes there is a better way...
> > I will only tell you the answer, however, after you send me a diagram
> > illustrating how, in the figure below, to connect the top row of 3 dots
> with
> > the bottom row of 3 dots using a line drawn with a pen or pencil WITHOUT
> > ever allowing any of the lines to intersect. This has to be accomplished
> on
> > a two-dimensional surface. You have ten minutes... Go!
> >
> >   *          *          *
> >
> >   *          *          *
> >
> >
> > -Bob Cozzi
> >
> >
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> > On Behalf Of Paul Morgan
> > Sent: Tuesday, February 01, 2005 2:27 PM
> > To: rpg400-l@xxxxxxxxxxxx
> > Subject: RPG read loops
> >
> > Almost all of the code in the current Leave / Iter thread showed a loop
> > like:
> >
> > DoU F3 or F12
> >    exfmt
> >    If Not (F3 or F12)
> >       //  do something
> >    EndIf
> > EndDo
> >
> > This only has one exfmt statement inside a DoU loop.  A similar file
read
> > loop would be:
> >
> > DoU %EoF
> >    Read
> >    If Not %Eof
> >       // do something
> >    EndIf
> > EndDo
> >
> > which has one read statement indhiside of a DoU loop.  Isn't there a
> better way
> > of coding loops with more than one read/exfmt like:
> >
> > exfmt
> > DoW Not (F3 or F12)
> >    //  do something
> >    exfmt
> > EndDo
> >
> > or
> >
> > Read
> > DoW Not %Eof
> >    // do something
> >    Read
> > EndDo
> >
> > or
> >
> > SetLL
> > ReadE
> > DoW Not %Eof
> >    // do something
> >    ReadE
> > EndDo
> >
> > Most programmers seem to code with the single read/exfmt style which
IMHO
> > complicates the code.  In a DoU/Read loop the body of the loop is nested
> two
> > deep inside the DoU and an If statement.  In a Read/DoW/Read loop the
body
> > of the loop is nested one deep inside a DoW.  Doesn't this reduction in
> the
> > nesting of the body of the loop improve the program?  Readability is
> > improved.  Performance is also improved (although minor) with the
removal
> of
> > one test against the end of loop.
> >
> > Other programmers I work with are adamant about not coding more than one
> > read statement.  Why is coding more than one read statement such a
> problem?
> >
> > Paul
> >
> > --
> > Paul Morgan
> > Senior Programmer Analyst - Retail
> > J. Jill Group
> > 100 Birch Pond Drive, PO Box 2009
> > Tilton, NH 03276-2009
> > Phone: (603) 266-2117
> > Fax:   (603) 266-2333
> >
> > --
> > 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.
> >
> >
> -- 
> 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.
>
>



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