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 BASIS-CODE-TABLE    REDEFINES MTIOAREA. 
           05  DOCH-IOAREA.                             
                 10  BAS2-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  BASIS-CODE           PIC X(04).   
           05  DOCD-IOAREA.                            
                 10  BAS2-LINE-KEY-FIELDS.              
                       15  OBJECT-OBJECT-CLASS  PIC X(04).  
                 10  BAS2-RESULT-FIELDS.                
                       15  INCL-EXCL-IND        PIC X(01).  
                       15  OBJECT-CLASS-IND     PIC X(01).