RE: Trivia: How many lines of code are allowed in an RPG Program?

["Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxx>]

I might be wrong here, but I think what he wants is to be able to print/output 
by range.  Is like somebody ask you to print Serial Number by range instead of 
detail and provide a count.

For example: 

 From                       To 
Serail Number   Serial Number  Total
AAAAAAA110              AAAAAAA125          16
AAAAAAA127            AAAAAAA128       2        


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of fgarcia@xxxxxxxxxxxx
Sent: Tuesday, October 19, 2004 2:31 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: Trivia: How many lines of code are allowed in an RPG
Program?



To group and range, try with something like this

declare XX cursor for SELECT city, MIN(zip_code), MAX(zip_code) * from
zip_input_file order by city, group by city.
open xx
fetch xx into :Vcity, Vmin, Vmax

dow sqlcode=*zero
     output file
     fetch xx into :Vcity, Vmin, Vmax
end

Fernando