******************************************************************
      *
      *    TABLE: FA-BETTERMENT-TABLE
      *
      *      KEY: FIXED-ASSET-TYPE
      *           FIXED-ASSET-NUMBER
      *           BETTERMENT-NUMBER
      ******************************************************************
       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-BETTERMENT-TABLE                REDEFINES MTIOAREA.
              05  DOCD-IOAREA.
                 10  FBT1-KEY-FIELDS.
                  15  FIXED-ASSET-TYPE                PIC X(01).
                  15  FIXED-ASSET-NUMBER              PIC X(15).
                  15  BETTERMENT-NUMBER               PIC X(02).
                 10  FBT1-RESULT-FIELDS.
                  15  ACQUISITION-DATE.
                   20  ACQUISITION-YEAR               PIC X(04).
                   20  ACQUISITION-MONTH              PIC X(02).
                   20  ACQUISITION-DAY                PIC X(02).
                  15  ACQUISITION-METHOD              PIC X(01).
                  15  DESCRIPTION-30                  PIC X(30).
                  15  SERIAL-NUM-22                   PIC X(22).
                  15  MANUFACTURERS-NUM               PIC X(20).
                  15  MODEL-NUMBER                    PIC X(15).
                  15  VENDOR-CODE.
                   20  VENDOR-NUMBER                  PIC X(10).
                   20  VENDOR-ADDR-IND                PIC X(01).
                  15  VENDOR-NAME                     PIC X(30).
                  15  UNITS-8                         PIC X(08).
                  15  SALVAGE-VALUE                   PIC X(14).
                  15  XAREA                           PIC X(10).
                  15  PLAT-NUMBER                     PIC X(10).
                  15  PURCHASE-AUTH                   PIC X(13).
                  15  IN-SERVICE-DATE.
                   20  IN-SERVICE-YEAR                PIC X(04).
                   20  IN-SERVICE-MONTH               PIC X(02).
                   20  IN-SERVICE-DAY                 PIC X(02).
                  15  CLOSING-COSTS                   PIC X(14).
                  15  EQUITY-ACCOUNTS.
                   20  EQUITY-ACCOUNT-1               PIC X(04).
                   20  EQUITY-ACCOUNT-2               PIC X(04).
                   20  EQUITY-ACCOUNT-3               PIC X(04).
                   20  EQUITY-ACCOUNT-4               PIC X(04).
                   20  EQUITY-ACCOUNT-5               PIC X(04).
                   20  EQUITY-ACCOUNT-6               PIC X(04).
                   20  EQUITY-ACCOUNT-7               PIC X(04).
                   20  EQUITY-ACCOUNT-8               PIC X(04).
                  15  EQUITY-ASSET-VALUES.
                   20  ASSET-VALUE-1                  PIC X(14).
                   20  ASSET-VALUE-2                  PIC X(14).
                   20  ASSET-VALUE-3                  PIC X(14).
                   20  ASSET-VALUE-4                  PIC X(14).
                   20  ASSET-VALUE-5                  PIC X(14).
                   20  ASSET-VALUE-6                  PIC X(14).
                   20  ASSET-VALUE-7                  PIC X(14).
                   20  ASSET-VALUE-8                  PIC X(14).
                  15  EQUITY-ACCUM-DEPR.
                   20  ACCUM-DEPR-1                   PIC X(14).
                   20  ACCUM-DEPR-2                   PIC X(14).
                   20  ACCUM-DEPR-3                   PIC X(14).
                   20  ACCUM-DEPR-4                   PIC X(14).
                   20  ACCUM-DEPR-5                   PIC X(14).
                   20  ACCUM-DEPR-6                   PIC X(14).
                   20  ACCUM-DEPR-7                   PIC X(14).
                   20  ACCUM-DEPR-8                   PIC X(14).
                  15  DESCRIPTION-FIELDS.
                   20  DESCRIPTION-FIELD-1            PIC X(12).
                   20  DESCRIPTION-FIELD-2            PIC X(12).
                   20  DESCRIPTION-FIELD-3            PIC X(12).
                   20  DESCRIPTION-FIELD-4            PIC X(12).
                   20  DESCRIPTION-FIELD-5            PIC X(12).
                   20  DESCRIPTION-FIELD-6            PIC X(12).
                  15  PROJECT                         PIC X(04).
                  15  CIP-REVERSAL-FLAG               PIC X(01).
                  15  DOLI-VALUE.
                   20  DOLI-MM                        PIC X(02).
                   20  DOLI-YYYY                      PIC X(04).
                  15  CONDITION-CODE                  PIC X(01).
                  15  DISPOSITION-AUTH                PIC X(15).
                  15  DISPOSITION-METHOD              PIC X(01).
                  15  DISPOSITION-DATE-2.
                   20  DISPOSITION-YEAR-4             PIC X(04).
                   20  DISPOSITION-MONTH              PIC X(02).
                   20  DISPOSITION-DAY                PIC X(02).
                  15  SELLING-PRICE                   PIC X(14).
                  15  MEMO-DISP-VALUE                 PIC X(14).
                  15  NET-BOOK-VALUE                  PIC X(14).
                 10  FBT1-DISPLAY-ONLY-FIELDS.
                  15  SUMMARY-ACCUM-DEPR              PIC X(14).
                  15  SUMMARY-ASSET-VALUE             PIC X(14).
                  15  SUMM-ASSET-VAL-SCR1             PIC X(18).
          03  FILLER                                  PIC X(1362).