RE: READE vs. READPE performance

["Fleming, Greg \(ED\)" <GFLEMING@xxxxxxxxxxxxxxxxxxxx>]

Correction: (this is why they call me Greg "never gets it right the
first time" Fleming)

SetGT (KeyCompany:KeyRoute:KeyDate) Logical1;
DoW 1 = 1;
ReadP Logical1;
If %EOF(Logical1) or Company <> KeyCompany or
                         Route <> KeyRoute or
                           
Leave;
EndIf;

Do Stuff here....

EndDo;


>-----Original Message-----
>From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
>On Behalf Of Fleming, Greg (ED)
>Sent: Friday, December 09, 2005 3:40 PM
>To: RPG programming on the AS400 / iSeries
>Subject: RE: READE vs. READPE performance
>
>
>SetGT (KeyCompany:KeyRoute:KeyDate) Logical1;
>DoW 1 = 1;
>ReadP Logical1;
>If %EOF(Logical1) or Company <> KeyCompany or
>                        Route <> KeyRoute or
>                          Date <> KeyDate;
>Leave;
>EndIf;
>EndDo;
>>-----Original Message-----
>>From: rpg400-l-bounces+gfleming=evergladesdirect.com@xxxxxxxxxxxx
>>[mailto:rpg400-l-bounces+gfleming=evergladesdirect.com@xxxxxxxxxxxx]
On
>>Behalf Of Ben_Pforsich@xxxxxxxxxxxx
>>Sent: Friday, December 09, 2005 2:21 PM
>>To: RPG programming on the AS400 / iSeries
>>Subject: RE: READE vs. READPE performance
>>
>>Hi Greg,
>>I have to read records by Company and Route first, so don't I need to
>use
>>READE or READPE?  I can't assume the records will be sequential.
>>
>>Example assuming Date is keyed ascending:
>>
>>Company = 'B1';
>>Route = 15;
>>Date = %date();
>>setgt (Company : Route : Date) LOGICAL1;
>>
>>dou %eof(LOGICAL1);
>>      readpe (Company : Route) LOGICAL1;
>>      if not %eof(LOGICAL1);
>>            // Process this record
>>      endif;
>>enddo;
>>
>>
>>
>>
>>
>
>--
>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.