for loop behavior

[Joel Fritz <JFritz@xxxxxxxxxxxxxxxx>]

Try the following and see how it performs for you.  If you get the same
results as I did, the first loop will run for 1 iteration while the rest
will run for 5.  It's probably well documented, but I just didn't see it.

 H  dftactgrp(*no) actgrp(*caller)                       
 H OPTION( *SrcStmt: *NoDebugIO)                         
 D int             s              5u 0                   
 D zoned           s              4s 0                   
 D packed          s              5  0                   
 D limit           s              4s 0 inz(5)            
 C                                                       
 C                                                       
 C                   for       int = 1 to limit          
 C                   endfor                              
 C                                                       
 C                   for       zoned = 1 to limit        
 C                   endfor                              
 C                                                       
 C                   for       packed = 1 to limit       
 C                   endfor                              
 C                                                       
 C                   eval      int = 1                   
 C                   dow       int < limit               
 C                   eval      int = int + 1             
 C                   enddo                               
 C                                                       
 C                   eval      *inlr = *on               
                                
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---