RE: a need for speed

This looks promising.  I'm not a big fan of a rpg-cycle.  However, for the 
speed shake, I'll give it a try.  I didn't know you can actually skip a key 
when using L* indicator.

thanks. 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Scott Klement
Sent: Thursday, August 18, 2005 5:59 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: a need for speed



> Oh wait... (dusting off mental cobwebs)... can you order the records by
> area, prefix, suffix and terminal but tell RPG to level break on area,
> prefix and terminal??

Yeah, that should work. Assuming that the file is keyed by (or sorted by) 
Area, Prefix, Suffix and Terminal, you'd have:

      FINPUT     IP   E           K DISK
      FOUTPUT    O    E           K DISK

      iINPUTREC  NS
      i                                          AREA          L1
      i                                          PREFIX        L1
      i                                          TERMINAL      L2

      c   L2              eval      LowSuffix  = Suffix
      CL2                 eval      HighSuffix = Suffix
      CL2                 write     OUTPUTREC

For someone who works with punch cards day in and day out, this would've 
probably been an easy problem to solve.