*****************************************************************
      *                                                               *
      *   LEDGER: PROJECT-BILLING-LEDGER                              *
      *                                                               *
      *   NUMBER: 0459                                                *
      *                                                               *
      *      KEY: NONE                                                *
      *                                                               *
      *   LENGTH: 200                                                 *
      *                                                               *
      *****************************************************************
           03  PROJECT-LEDGER-DEFINE         PIC X(200).
               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  FUND                     PIC X(04).
               05  AGENCY                   PIC X(03).
               05 XORGANIZATION             PIC X(04).
               05  ACTIVITY                 PIC X(04).
               05  OBJECT                   PIC X(04).
               05  REVENUE-SOURCE           PIC X(04).
               05  BS-ACCOUNT               PIC X(04).
               05  ACCOUNT-TYPE             PIC X(02).
               05  TRANSACTION-ID.
                   07  TRANS-CODE           PIC X(02).
                   07  TRANS-NUMBER.
                       09  TRANS-NUMBER-AGENCY  PIC X(03).
                       09  TRANS-NUMBER-NUMBER  PIC X(11).
               05  DATE-OF-RECORD.
                   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  LINE-NO                  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  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  BUDGET-FY.
                   07  BUDGET-FY-CC         PIC X(02).
                   07  BUDGET-FY-YY         PIC X(02).
               05  ALLOTMENT-PERIOD.
                   07  ALLOTMENT-YEAR.
                    09  ALLOTMENT-YEAR-CC   PIC X(02).
                    09  ALLOTMENT-YEAR-YY   PIC X(02).
                   07  ALLOTMENT-QUARTER    PIC X(01).
                   07  ALLOTMENT-MONTH      PIC X(02).
               05  DOCUMENT-ACTION          PIC X(01).
               05  LINE-ACTION              PIC X(01).
               05  DOCUMENT-DESCRIPTION     PIC X(08).
               05  XFUNCTION                PIC X(04).
               05  LINE-DESCRIPTION         PIC X(30).
               05  SUB-ORG                  PIC X(02).
               05  APPR-UNIT                PIC X(09).
               05  SUB-OBJECT               PIC X(02).
               05  SUB-REV-SOURCE           PIC X(02).
               05  REPORTING-CATEGORY       PIC X(04).
               05  UNITS                    PIC S9(05)V99 COMP-3.
               05  DOLLAR-AMOUNT            PIC S9(12)V99 COMP-3.
               05  DEBIT-CREDIT-CODE        PIC X(01).
               05  PROJ-FISC-YEAR.
                   07  PROJ-FISC-YEAR-CC    PIC X(02).
                   07  PROJ-FISC-YEAR-YY    PIC X(02).
               05  PROJECT-DATA.
                 09  PROJECT                PIC X(05).
                 09  SUB-PROJECT            PIC X(02).
                 09  PHASE                  PIC X(01).
               05  CHARGE-CLASS             PIC X(03).
               05  JOB-NUMBER               PIC X(08).