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 FA-INFRA-MAINT-TBL    REDEFINES MTIOAREA.
     05  DOCH-IOAREA.                                    
           10  FAIM-KEY-HEADER-FIELDS.                     
                 15  FIXED-ASSET-TYPE          		PIC X(01). 
                 15  FIXED-ASSET-NUMBER        		PIC X(15). 
     05  DOCD-IOAREA.                                            
           10  FAIM-LINE-KEY-FIELDS.                               
                 15  FISC-YEAR.                                      
                       20  FISC-YEAR-CC  		PIC X(02).         
                       20  FISC-YEAR-YY  		PIC X(02).         
           10  FAIM-RESULT-FIELDS.                                 
                 15  ESTIMATED-COST           		PIC S9(14).        
                 15  ESTIMATED-COST-9 REDEFINES                      
                       ESTIMATED-COST          		PIC S9(12)V99.     
                 15  ACTUAL-COST         		PIC S9(14).        
                 15  ACTUAL-COST-9 REDEFINES                         
                       ACTUAL-COST       		PIC S9(12)V99.     
                 15  CONDITION-CODE       		PIC X(01).         
                 15  LAST-INVENT-DATE.                                             
                       20  LAST-INVENT-YEAR.                           
                             25  LAST-INVENT-YEAR-CC    PIC X(02).         
                             25  LAST-INVENT-YEAR-YY    PIC X(02).  
                       20  LAST-INVENT-MONTH        	PIC X(02).  
                       20  LAST-INVENT-DAY          	PIC X(02).