RE: how to code a "lookahead"?

This is exactly what Level Indicators were designed for.

But, I know, we don't use them anymore, shame.

What I've done in this case is to create my own level indicators.  Say I'm 
breaking (different groups) on Customer Number.  Before my read loop I'll set 
LastCustomerNumber = *Blanks.  Then I'll do an initial read (priming the loop), 
the DoW Not EOF() then:

If (CustNo <> LastCustNo) AND (LastCustNo <> *Blanks)
   *** We've just read the next customer in a different customer number group, 
so do subtotals, etc.. here
   *** You're going to have to save any values you need from the previous 
record into temp vars though
   *** because the read we just will contain the next customer, not the last 
one in the group
   ...
   LastCustNo = CustNo
EndIf

HTH

Regards,

Jim Langston
Programmer/Analyst
NT Administrator
Cels Enterprises, Inc.
(310) 838-2103 x604


-----Original Message-----
From: Reggie Acosta [mailto:Reggiea@brownjordan.usa.com]

I'm suffering from severe brain fade and can't remember how to code a 
lookahead. I've searched high and low for an example to follow and even read 
the RPG manuals!!! ;)

Before processing the record just read, the program needs to know if the next 
record belongs to the same group.

Can anyone whip up a bit of sample code?

Thanks