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-ENTRY-TABLE         REDEFINES MTIOAREA. 
      05  DOCH-IOAREA.                                   
           10  RPET-KEY-FIELDS.                           
                 15  ACCOUNT-NUMBER          		PIC X(20).     
                 15  INVOICE-NUMBER          		PIC X(12).     
                 15  INVOICE-DATE.                          
                       20 INVOICE-YEAR.                       
                             25 INVOICE-YEAR-CC   	PIC X(02).     
                             25 INVOICE-YEAR-YY   	PIC X(02).     
                       20 INVOICE-MONTH        		PIC X(02).     
                       20 INVOICE-DAY          		PIC X(02).     
      05  DOCD-IOAREA.                                
           10  LKEY-FIELDS.                            
                 15  LINE-NUMBER             		PIC X(02).  
           10  RESULT-FIELDS.                          
                 15  FUND                    		PIC X(04).  
                 15  AGENCY                  		PIC X(03).  
                 15  XORGANIZATION           		PIC X(04).  
                 15  SUB-ORGANIZATION        		PIC X(02).  
                 15  APPR-UNIT               		PIC X(09).  
                 15  ACTIVITY                		PIC X(04).  
                 15  XFUNCTION               		PIC X(04).  
                 15  OBJECT                  		PIC X(04).  
                 15  SUB-OBJECT              		PIC X(02).  
                 15  PROJECT-JOB-NUMBER      		PIC X(08).  
                 15  PJ-NUMBER               		REDEFINES   
                       PROJECT-JOB-NUMBER.                 
                       20  WS-PROJECT          		PIC X(05).  
                       20  WS-SUBPROJECT       		PIC X(02).    
                       20  WS-PHASE            		PIC X(01).    
                  15  REPORTING-CATEGORY      		PIC X(04).     
                  15  COMMODITY-CODE          		PIC X(14).    
                  15  AMOUNT                  		PIC 9(14).    
                  15  AMOUNT-9   	REDEFINES     
                       AMOUNT                  		PIC S9(12)V99.