|
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; > > > > >
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.