01 MTI-LOG. 
     03 LOGREC-PREFIX. 
           05 LOGREC-RECLEN 				PIC S9(04) COMP. 
           05 LOGREC-TABNUM 				PIC X(4). 
           05 LOGREC-ACTION 				PIC X. 
                 88 LOGREC-ACTION-ADD 			VALUE 'A'. 
                 88 LOGREC-ACTION-CHANGE 		VALUE 'C'. 
                 88 LOGREC-ACTION-DELETE		VALUE 'D'. 
           05 LOGREC-DATE. 
                 07 LOGREC-CC 				PIC XX. 
                 07 LOGREC-YY 				PIC XX.  
                 07 LOGREC-MM 				PIC XX. 
                 07 LOGREC-DD 				PIC XX. 
           05 LOGREC-TIME. 
                 07 LOGREC-TIME-HH 			PIC XX. 
                 07 LOGREC-TIME-MM			PIC XX. 
                 07 LOGREC-TIME-SS			PIC XX. 
           05 LOGREC-TABID 				PIC X(4). 
           05 LOGREC-TYPE 				PIC X. 
      03 PMT-ACCOUNT-INFO-SCREEN           REDEFINES MTIOAREA. 
           05  KEY-FIELDS.                                            
                 07  ACCOUNT-NUMBER 			PIC X(20).    
           05  RESULT-FIELDS.                                         
                 07  DESCRIPTION 			PIC X(30).    
                 07  VENDOR-NUMBER.                                    
                       09  VENDOR-NUM 			PIC X(10).    
                       09  VENDOR-ADDR-IND		PIC X(1).     
                 07  PO-SER-CONT-REQ 			PIC X.        
                 07  REFUNDABLE-DEPOSIT-X		PIC X(14).    
                 07  REFUNDABLE-DEPOSIT-9  REDEFINES     
                       REFUNDABLE-DEPOSIT-X.                             
                       09  REFUNDABLE-DEPOSIT		PIC S9(12)V99.
                 07  LOCATION 				PIC X(25).    
                 07  MAX-CONTRACT-AMT-X			PIC X(14).    
                 07  MAX-CONT-AMT-14       REDEFINES     
                       MAX-CONTRACT-AMT-X 		PIC S9(14).   
                 07  MAX-CONTRACT-AMT-9    REDEFINES     
                       MAX-CONTRACT-AMT-X.                                
                       09  MAX-CONTRACT-AMT 		PIC S9(12)V99. 
                 07  REMARKS    			PIC X(30).     
                 07  AVERAGE-USAGE-X 			PIC X(14).     
                 07  AVERAGE-USAGE-14      REDEFINES      
                       AVERAGE-USAGE-X 			PIC S9(14).    
                 07  AVERAGE-USAGE-9       REDEFINES      
                       AVERAGE-USAGE-X.                                   
                       09  AVERAGE-USAGE 		PIC S9(12)V99. 
                07  NUM-OF-INVOICES-X 			PIC X(14).     
                07  NUM-OF-INVOICES-9      REDEFINES      
                      NUM-OF-INVOICES-X.                                 
                      09  NUM-OF-INVOICES		PIC 9(14).     
                07  PREV-CDNI-X				PIC X(14).     
                07  PREV-CDNI-14           REDEFINES      
                      PREV-CDNI-X			PIC S9(14).    
                07  PREV-CDNI-9            REDEFINES      
                      PREV-CDNI-X.                                       
                      09  PREV-CDNI 			PIC S9(12)V99. 
                07  PRV-CONTRACT-PMTX 			PIC X(14).     
                07  PRV-CONT-PMT-14        REDEFINES      
                      PRV-CONTRACT-PMTX			PIC S9(14).    
                07  PRV-CON-PMT-9          REDEFINES      
                      PRV-CONTRACT-PMTX.                                 
                      09  PRV-CONTRACT-PMT 		PIC S9(12)V99. 
         05  INFERRED-FIELD.                                       
                07  VENDOR-NAME                       	PIC X(30).