0000.10      A*%%TS  SD  20220902  162546  NARENKUM    REL-V7R5M0  5770-WDS                 
0000.20      A*%%EC                                                                         
0000.30      A                                      DSPSIZ(24 80 *DS3)                      
0000.40      A                                      REF(NARENKUM1/CUSMSTP)                  
0000.50      A                                      PRINT                                   
0000.60      A                                      INDARA                                  
0000.70      A                                      CA03(03 'PRESS F3 TO EXIT.')            
0000.80      A          R CUSPMT                                                            
0000.90      A*%%TS  SD  20220902  162016  NARENKUM    REL-V7R5M0  5770-WDS                 
0001.00      A                                  1  3'CUSTOMER MASTER INQUIRY'               
0001.10      A                                  3  3'CUSTOMER NUMBER'                       
0001.20      A                                  5  3'USE F3 TO END PROGRAM, USE ENTER T-    
0001.30      A                                      O RETURN TO PROMPT SCREEN'              
0001.40      A            CUST      R        I  3 20REFFLD(CUSMST/CUST NARENKUM1/CUSMST-    
0001.50      A                                      P)                                      
0001.60      A  21                                  ERRMSG('CUSTOMER NOT FOUND' 21)         
0001.70      A          R CUSFLDS                                                           
0001.80      A*%%TS  SD  20220902  022438  NARENKUM    REL-V7R5M0  5770-WDS                 
0001.90      A                                      OVERLAY              
0002.00      A                                  8  3'NAME'                                      
0002.10      A                                  9  3'ADDRESS'                                   
0002.20      A                                 10  3'CITY'                                      
0002.30      A                                 11  3'STATE'                                     
0002.40      A                                  7  3'CUST'                                      
0002.50      A            CUST      R        O  7 14REFFLD(CUSMST/CUST NARENKUM1/CUSMST-        
0002.60      A                                      P)                                          
0002.70      A            NAME      R        O  8 14REFFLD(CUSMST/NAME NARENKUM1/CUSMST-        
0002.80      A                                      P)                                          
0002.90      A            ADDR      R        O  9 14REFFLD(CUSMST/ADDR NARENKUM1/CUSMST-        
0003.00      A                                      P)                                          
0003.10      A            CITY      R        O 10 14REFFLD(CUSMST/CITY NARENKUM1/CUSMST-        
0003.20      A                                      P)                                          
0003.30      A            STATE     R        O 11 14REFFLD(CUSMST/STATE NARENKUM1/CUSMS-        
0003.40      A                                      TP)                                         
        ****************** End of data *********************************************************