*****************************************************************
      *                                                               *
      *   LEDGER: DEPRECIATION-LEDGER                                 *
      *                                                               *
      *   NUMBER: 0129                                                *
      *                                                               *
      *      KEY: NONE                                                *
      *                                                               *
      *   LENGTH: 140                                                 *
      *                                                               *
      *****************************************************************
       03  FLEDGER-DEFINE.
           05  BATCH-DATE.
               07  BATCH-YEAR.
                   09  BATCH-YEAR-CC       PIC X(02).
                   09  BATCH-YEAR-YY       PIC X(02).
               07  BATCH-MONTH             PIC X(02).
               07  BATCH-DAY               PIC X(02).
           05  BATCH-NUMBER                PIC X(06).
           05  TRANSACTION-ID.
               07  TRANS-CODE              PIC X(02).
               07  TRANS-NUMBER            PIC X(11).
           05  TRANS-AGENCY                PIC X(03).
           05  RECORD-DATE.
               07  RECORD-YEAR.
                   09  RECORD-YEAR-CC      PIC X(02).
                   09  RECORD-YEAR-YY      PIC X(02).
               07  RECORD-MONTH            PIC X(02).
               07  RECORD-DAY              PIC X(02).
           05  ACCEPTANCE-DATE.
               07  ACCEPTANCE-YEAR.
                   09  ACCEPTANCE-YEAR-CC  PIC X(02).
                   09  ACCEPTANCE-YEAR-YY  PIC X(02).
               07  ACCEPTANCE-MONTH        PIC X(02).
               07  ACCEPTANCE-DAY          PIC X(02).
           05  ACCOUNTING-PERIOD.
               07  FISC-YEAR.
                   09  FISC-YEAR-CC        PIC X(02).
                   09  FISC-YEAR-YY        PIC X(02).
               07  FISC-QUARTER            PIC X(01).
               07  FISC-MONTH              PIC X(02).
           05  FA-INFORMATION.
               07  FIXED-ASSET-TYPE         PIC X(01).
               07  FIXED-ASSET-NUMBER       PIC X(15).
               07  BETTERMENT-NUMBER        PIC X(02).
               07  LOCATION                 PIC X(04).
               07  FUND                     PIC X(04).
               07  AGENCY                   PIC X(03).
               07  XORGANIZATION            PIC X(04).
               07  ACTIVITY                 PIC X(04).
               07  OBJECT                   PIC X(04).
               07  DISPOSITION-AUTH         PIC X(15).
               07  ASSET-AMOUNT             PIC S9(12)V99.
               07  ACCUM-DEPR-AMOUNT        PIC S9(12)V99.
               07  FROM-TO-IND              PIC X(01).
               07  FILLER                   PIC X(02).