FW: Skeleton for level breaks

["Holden Tommy" <Tommy.Holden@xxxxxxxxxxxxxxxxx>]

Oh yeah...see *INLR changes below..

Thanks,
Tommy Holden


-----Original Message-----
From: Holden Tommy 
Sent: Wednesday, July 19, 2006 10:28 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Skeleton for level breaks

Not a skeleton...but

Pseudocode:

Dou %eof
 Read file;
 If %eof
  // do L3
  // do L2
  // do L1
  *inlr=%eof
  Return
 endif

 // check L3 break
 if *inl3
   // do l3 break stuff
 endif

 // check L2 break
 if *inl2
  // do L3 break stuff
  // do L2 break stuff
 endif

 // check L1 break
 if *inl1
   // do L3
   // do L2
   // do L1
 endif
enddo 


Thanks,
Tommy Holden


-----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.