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 VEND-CLASS-SUBCLASS-TABLE   REDEFINES MTIOAREA.
            05  DOCH-IOAREA.                                       
                 10  VCSC-KEY-HEADER-FIELDS.                       
                       15  VENDOR-CODE.                                 
                             20  VENDOR-NUMBER   	PIC X(10).   
                             20  VENDOR-ADDR-IND 	PIC X(01).   
                 10  VCSC-INFERRED-HEADER-FIELDS.                  
                       15  VENDOR-NAME            	PIC X(30).   
           05  DOCD-IOAREA.                                     
                 10  VCSC-KEY-LINE-FIELDS.                       
                       15  COMM-CLASS             	PIC X(03). 
                       15  COMM-SUB-CLASS         	PIC X(02). 
                 10  VCSC-RESULT-FIELDS.                         
                       15  NO-RESPONSE-COUNT      	PIC 9(01). 
                 10  VCSC-INFERRED-LINE-FIELDS.                  
                       15  SUB-CLASS-DESC         	PIC X(60). 
                       15  CLASS-DESC             	PIC X(60).