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

If there is a logical by City and zip-Code, wouldn't that equal to CHAIN (by 
city) to get the min and then SETGT+READPE (by city) to get the max?


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