Re: Constant Scope - Source Code

[SirZetar@xxxxxxx]

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
H ExtBinInt(*Yes)                                      
                                                       
H Option(*SrcStmt:*NoDebugIO)                          
H Indent('.')                                          
                                                       
H AlwNull(*UsrCtl)                                     
                                                       
H DftActGrp(*No) ActGrp('QILE') BndDir('OPPGM')        
H UsrPrf(*User)                                        
                                                       
D MaxTypes        C                   3                
D ListTypes       S               N   Dim(MaxTypes) Inz
                                                       
D PrintValues     PR                                   
                                                       
D MaxGrids        C                   25               
D GridType        S              5A   Dim(MaxGrids) Inz
                                                       
D x               S             10I 0 Inz              
                                                       
C                   Eval      *inlr = *on              
                                                       
P PrintValues     B                                    
D PrintValues     PI                                   
                                                       
D TtlValue        S             10I 0 Dim(MaxTypes) Inz
D WrkGrids        S              5A   Dim(MaxGrids) Inz
                                                       
C                   For       x = 1 to MaxTypes        
C                   Endfor                             
                                                       
C                   If        x < MaxGrids             
C                   Endif                              
                                                       
C                   Return                             
                                                       
P                 E                                    
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+---
| 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
+---