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 ALT-VTXT-TABLE                     REDEFINES MTIOAREA. 
                10  VTXT-KEY-HEADER-FIELDS.                            
                 15  VENDOR-CODE.                                      
                  20  VENDOR-NUMBER                   PIC X(10).        
                  20  VENDOR-ADDR-IND                 PIC X(01).        
                10  VEND-TEXT-TABLE-DETAIL.                            
                 15  VTXT-KEY-LINE-FIELDS.                             
                  20  TEXT-LINE-NUMBER                PIC X(03).        
                 15  VTXT-RESULT-FIELDS.                               
                  20  TEXT-LINE.                                       
                   25  LINE-TEXT                      PIC X(70).        
                   25  TEXT-LINE-FF-FL                PIC X(01).        
                    25 FILLER                         PIC X(002). 
                    25  TEXT-DATE.                                
                     30  TEXT-YEAR.                               
                      35  TEXT-YEAR-CC                PIC X(02).  
                      35  TEXT-YEAR-YY                PIC X(02).  
                     30  TEXT-MONTH                   PIC X(02).  
                     30  TEXT-DAY                     PIC X(02).