请教高手: 能否帮我看看下面的一段程序代码?遇到数组的问题我就糊涂了!

灌木林

C           #PSUB     BEGSR                        
C*                                                  
C                     SETOF                     6162
C                     Z-ADD*ZERO     B       20     
C                     Z-ADD*ZERO     C       20     
C                     Z-ADD*ZERO     D       20     
C                     Z-ADD*ZERO     PQTY    70     
C                     CLEARCH1                     
C                     CLEARCH2                     
C                     CLEARCH3                     
C                     CLEARCH4                     
C                     CLEARCH5                     
C                     MOVEAG3BAR     CH1            
C*                                                  
C           1         DO   40        A              
C           41        SUB  A         B              
C*                                   
C           *IN62     IFEQ '1'                     
C                     ADD  1         D              
C                     MOVELCH1,B     CH3,D         
C                     END                        
C*                                 
C           *IN61     IFEQ '1'                    
C           CH1,B     ANDEQ*BLANK                 
C                     SETON                     62
C                     END                        
C*                                 
C           CH1,B     IFNE *BLANK                 
C           *IN62     ANDEQ'0'                    
C                     SETON                     61
C                     ADD  1         C            
C                     MOVELCH1,B     CH2,C        
C                     END                        
C                     END                        
C*                                 
C           1         DO   7         A            
C           8         SUB  A         B            
C                     MOVELCH2,A     CH4,B        
C                     END                        
C*   
C           1         DO   D         A      
C           D         SUB  A         B      
C                     ADD  1         B      
C                     MOVELCH3,A     CH5,B  
C                     END                  
C*                                          
C                     MOVE WKQTY     PQTY   
C*                                          
C                     ENDSR

胖有型

CH3,2   就是指数组CH3中的第2条记录。
MOVEA  是向数组赋值。

请问楼主的问题在哪里？