Re: Skeleton for level breaks

["Leif Guldbrand" <Guldbrand@xxxxxxxxx>]

And the old fashinon RPGII - III way :-)

C* First detail level breaks ...
C  L3           Exsr DetL3
C  L2           Exsr DetL2
C  L1           Exsr DetL1

C* Detail handling
C                Exsr Detail

C* Total level breaks
CL1            Exsr TotL1
CL2            Exsr TotL2
CL3            Exsr TotL3

C* Last record level break
CLR            Exsr TotalLR

Leif
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jeff Crosby
> Sent: Wednesday, July 19, 2006 9:36 AM
> To: 'RPG programming on the AS400 / iSeries'
> Subject: Skeleton for level breaks
>
> I'm getting my feet wet with embedded SQL.  Because of this I cannot use
> The
> Cycle.
>
> Therefore I had to roll-my-own on level breaks.  Believe it or not, I
> don't
> think I've ever had to do that before.  Those L1, L2, etc indicators
> make it
> so simple it's ridiculous.
>
> Anyway I woke up in the middle of the night realizing I had done nothing
> to
> force all lower level breaks when a higher level break occurs.
>
> Does anyone have a skeleton program with multiple roll-your-own level
> breaks
> I can peruse?  I may as well find out what else I have forgotten to code
> for
> at the same time . . .
>
> Thanks.
>
> -- 
> Jeff Crosby