IBM Mainframe Forum

AVERAGE CSECT            
         STM  14,12,12(13)
         BALR 12,0        
         USING *,12        
         ST   13,SAVEA+4  
         LA   13,SAVEA    
 *************************
         L   1,=F'6'      
         LR  6,1          
         LA  2,ARRAY      
         SR  4,4          
 LABEL   DS   0H          
         L   3,0(4,2)      
         A   4,=F'4'      
         A   3,SUM        
         ST  3,SUM        
        BCT 1,LABEL            
        D   6,SUM              
        CVD 7,DW              
        UNPK MSG+2(4),SUM      
        OI  MSG+5,X'F0'        
        LA  5,MSG              
        WTO TEXT=(5),ROUTCDE=11
***********************        
        L    13,SAVEA+4        
        LM   14,12,12(13)      
        SR   15,15            
        BR   14    
********************            
SAVEA   DS   18F              
ARRAY   DC   F'5'              
        DC   F'12'            
        DC   F'9'              
        DC   F'23'            
        DC   F'11'      
        DC   F'99'      
SUM     DC   F'0'        
MSG     DC   AL2(4)      
        DS   CL4        
DW      DS   D          
        DS   0F          
        LTORG ,          
        END      

         . . . . . . .
        D   6,SUM  
        . . . . . . .

F'00000006,????????' / SUM

AVERAGE CSECT            
         STM  14,12,12(13)
         BALR 12,0        
         USING *,12        
         ST   13,SAVEA+4  
         LA   13,SAVEA    
 *************************   
         LA  2,ARRAY          = start of array    
         XR  3,3              clean up the accumulator    
 LOOP   DS   0H          
         A   3,0(2)           add new element to accumulator 
         LA   2,L'ARRAY(2)    = next element address
         C    2,=A(SUM)       compare to end of array
         JL   LOOP            loop while not end        
        ST  3,SUM             keep the total (not needed so far...)
        XR  2,2               prepare to divide               
        D   2,SIZE            find the average as integer              
        CVD 3,DW              convert quotient to decimal             
        UNPK TEXT,DW          unpack decimal to zoned    
        OI  TEXT+L'TEXT-1,X'F0'  convert zoned to character              
        WTO TEXT=MSG,ROUTCDE=11  send message
***********************        
        L    13,SAVEA+4        
        LM   14,12,12(13)      
        SR   15,15            
        BR   14    
********************            
SAVEA   DS   18F              
ARRAY   DC   F'5'              
        DC   F'12'            
        DC   F'9'              
        DC   F'23'            
        DC   F'11'      
        DC   F'99'      
SUM     DC   F'0'    
SIZE    DC   A((SUM-ARRAY)/L'ARRAY)          number of array elements
DW      DS   PL8      
MSG     DC   Y(L'TEXT)      
TEXT    DS   CL4                   
        LTORG ,          
        END