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 IND-COST-PCT-TABLE REDEFINES MTIOAREA. 
           05 DOCD-IOAREA. 
                 10 ICPE-KEY-FIELDS. 
                       15 FISC-YEAR. 
                             20 FISC-YEAR-CC 	PIC X(02). 
                             20 FISC-YEAR-YY 	PIC X(02). 
                       15 AGENCY 		PIC X(03). 
                       15 FED-AID-NUMBER 	PIC X(12). 
                       15 XORGANIZATION 	PIC X(04). 
                 10 ICPE-RESULT-FIELDS. 
                       15 BASIS-CODE 		PIC X(04). 
                       15 PERCENTAGE 		PIC 9(06). 
                       15 IND-COST-REPT-CAT 	PIC X(04). 
                       15 CASH-BASIS 		PIC X(01).