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 FADF-TABLE                         REDEFINES MTIOAREA.
            05  DOCD-IOAREA.
                 10  FADF-DETAIL-LINE.
                  15  FADF-KEY-LINE-FIELDS.
                   20  FIXED-ASSET-TYPE               PIC X(01).
                   20  FIXED-ASSET-NUMBER             PIC X(15).
                   20  BETTERMENT-NUMBER              PIC X(02).
                   20  DATE-KEY.
                    25  DATE-KEY-YEAR                 PIC X(04).
                    25  DATE-KEY-MONTH                PIC X(02).
                    25  DATE-KEY-DAY                  PIC X(02).
                  15  FADF-RESULT-LINE-FIELDS.
                   20  TRANSACTION-ID.
                    25  TRANS-CODE                    PIC X(02).
                    25  TRANS-NUMBER.
                     30  TRANS-NUMBER-AGENCY          PIC X(03).
                     30  TRANS-NUMBER-NUMBER          PIC X(11).
                   20  EFFECTIVE-DATE.
                    25  EFFECTIVE-YEAR                PIC X(04).
                    25  EFFECTIVE-MONTH               PIC X(02).
                    25  EFFECTIVE-DAY                 PIC X(02).
                   20  FC-ACCEPT-DATE.
                    25  FC-ACCEPT-YEAR                PIC X(04).
                    25  FC-ACCEPT-MONTH               PIC X(02).
                    25  FC-ACCEPT-DAY                 PIC X(02).
                   20  CURR-PERIOD-DEPR               PIC S9(14).
                   20  NEW-USEFUL-LIFE                PIC X(03).
                   20  OLD-USEFUL-LIFE                PIC X(03).
                   20  NEW-ACQUISITION-DATE.
                    25  NEW-ACQ-YEAR                  PIC X(04).
                    25  NEW-ACQ-MONTH                 PIC X(02).
                    25  NEW-ACQ-DAY                   PIC X(02).
                   20  OLD-ACQUISITION-DATE.
                    25  OLD-ACQ-YEAR                  PIC X(04).
                    25  OLD-ACQ-MONTH                 PIC X(02).
                    25  OLD-ACQ-DAY                   PIC X(02).
                   20  NEW-IN-SERVICE-DATE.
                    25  NEW-SERV-YEAR                 PIC X(04).
                    25  NEW-SERV-MONTH                PIC X(02).
                    25  NEW-SERV-DAY                  PIC X(02).
                   20  OLD-IN-SERVICE-DATE.
                    25  OLD-SERV-YEAR                 PIC X(04).
                    25  OLD-SERV-MONTH                PIC X(02).
                    25  OLD-SERV-DAY                  PIC X(02).
                   20  NEW-DEPR-METHOD                PIC X(03).
                   20  OLD-DEPR-METHOD                PIC X(03).
                   20  NEW-SALVAGE-VALUE-X            PIC X(14).
                   20  OLD-SALVAGE-VALUE-X            PIC X(14).
                   20  NEW-ASSET-VALUE-X              PIC X(14).
                   20  OLD-ASSET-VALUE-X              PIC X(14).
                   20  FADF-PROCESSED                 PIC X(01).