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

Then add the follow statement in loop
     select count(*) from zip_file where city=:vciti and zip_code between
:vmin and :vmax


I just was trying to approach other view to the solution.
Regards
Fernando.



                                                                                
                     
                    "Lim Hock-Chai"                                             
                     
                    <Lim.Hock-Chai@arch        Para:   "RPG programming on the 
AS400 / iSeries"      
                    .com>                      <rpg400-l@xxxxxxxxxxxx>          
                     
                    Enviado por:               cc:                              
                     
                    rpg400-l-bounces@mi        Asunto:      RE: Trivia: How 
many lines of code are   
                    drange.com                 allowed in an RPG Program?       
                     
                                                                                
                     
                                                                                
                     
                    19/10/2004 17:13                                            
                     
                    Por favor, responda                                         
                     
                    a RPG programming                                           
                     
                    on the AS400 /                                              
                     
                    iSeries                                                     
                     
                                                                                
                     
                                                                                
                     



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

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.