RE: CHAIN Versus SETLL and READ When Data Needed

["Ellsberry, Steve" <steve.ellsberry@xxxxxxxxxxxx>]

Personally I prefer to keep I/o to a minimum. If SetLL doesn't find it
why try to retrieve it? 


Thanks,
S. Ellsberry
(678) 893-6673
steve.ellsberry@xxxxxxxxxxxx
 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Chris Pando
Sent: Wednesday, February 28, 2007 3:06 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: CHAIN Versus SETLL and READ When Data Needed

On 2/28/07, Shannon O'Donnell <shannon.odonnell@xxxxxxxxxxxxxx> wrote:
> My opinion is that the CHAIN is more efficient from both a 
> coding/maintenance standpoint and from an I/O standpoint, but I'm open

> to opinions.

Or you could try this:


d keyDS           DS
d  fld1
d  fld2
d  fld3


/free
 $I = 4
 DoU ( $I = 1 Or %Equal(file) );
    $I = $I - 1;
    SetLL %KDS( keyDS : $I ) file;
 EndDo;

 If %Equal(file);
    ReadE %KDS( keyDS : $I ) file;
 EndIf;
/end-free

--
chris@xxxxxxxxx           | Beauty is the first test; there is
www.pando.org             | no permanent place in the world for
                          | ugly mathematics.
                          |   G.H. Hardy
--
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.