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

[fkany@xxxxxxxxxxxxxxxxxx]

You're on the right track Lim.

Frank





"Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxx>@midrange.com on 10/19/2004
03:13:55 PM

Please respond to RPG programming on the AS400 / iSeries
       <rpg400-l@xxxxxxxxxxxx>

Sent by:    rpg400-l-bounces@xxxxxxxxxxxx


To:    "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc:

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


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