A                                      REF(CUST)                  
A*----------------------------------------------------------------
A          R SCRN1                                                
A                                      CF03(03)                   
A                                  1  2USER                       
A                                  1 29'Customer Maintenance'     
A                                      DSPATR(HI)                 
A                                  1 69DATE                       
A                                      EDTCDE(Y)                  
A                                  2  2'CUSD010'                  
A                                  2 69TIME                       
A                                  6 28'(A)dd'                    
A                                  7 28'(C)hange'                 
A                                  8 28'(D)elete'                 
A            DSPACT         1A  I  8 41DSPATR(HI)                 
A                                 10 29'Cust#'                    
A            DSPCST         4Y 0I 10 41DSPATR(HI)
A            DSPMSG        79A    22  1                           
A  90                                  DSPATR(RI)                 
A                                 23  7'F3=Exit'                  
A*----------------------------------------------------------------
A          R SCRN2                                                
A                                      CF12(12)                   
A                                  1  2USER                       
A                                  1 29'Customer Maintenance'     
A                                      DSPATR(HI)                 
A                                  1 69DATE                       
A                                      EDTCDE(Y)                  
A                                  2  2'CUSD010'                  
A                                  2 35'CHANGE'                   
A                                      DSPATR(RI)                 
A                                  2 69TIME                       
A                                  3 29'Customer#'                
A            CSNBR     R        O  3 39EDTCDE(4)              
A                                  6  6'Name'                 
A            CSNAME    R        B  6 16DSPATR(HI)             
A                                  7  6'Address'              
A            CSADR1    R        B  7 16DSPATR(HI)             
A                                  8  6'City'                 
A            CSCTY     R        B  8 16DSPATR(HI)             
A                                  9  6'State'                
A            CSSTE     R        B  9 16DSPATR(HI)             
A                                  9 24'Zip'                  
A            CSZIP     R        B  9 28DSPATR(HI)
A            DSPMSG        79A    22  1                       
A  90                                  DSPATR(RI)             
A                                 23 18'F12=Cancel'