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-DOC-INQ-TABLE                   REDEFINES MTIOAREA.     
       05  DOCD-IOAREA.                                          
          10  FAPV-KEY-FIELDS.                                   
           15  TRANS-CODE                      PIC X(02).        
           15  AGENCY                          PIC X(03).        
           15  TRANS-NUMBER                    PIC X(11).        
           15  LINE-NO                         PIC X(02).        
           15  RESULT-TRANS-CODE               PIC X(02).        
           15  RESULT-AGENCY                   PIC X(03).        
           15  RESULT-TRANS-NUMBER             PIC X(11).        
           15  RESULT-LINE-NUMBER              PIC X(02).        
          10  FAPV-RESULT-FIELDS.                                
           15  CREATION-DATE.                                    
            20  CREATION-YEAR.                                   
                25  CREATION-YEAR-CC           PIC X(02).        
                25  CREATION-YEAR-YY           PIC X(02).        
            20  CREATION-MONTH                 PIC X(02).        
            20  CREATION-DAY                   PIC X(02).        
   03 FILLER 				       PIC X(1956).