*****************************************************************
      *                                                               *
      *   LEDGER: REVENUE-LEDGER                                      *
      *                                                               *
      *   NUMBER: 0791                                                *
      *                                                               *
      *      KEY: NONE                                                *
      *                                                               *
      *   LENGTH: 346                                                 *
      *                                                               *
      *****************************************************************
               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  SORT-ACCOUNT-CODE.
                   07  SORT-FUND-AGCY-ORG-ACT.
                       09  FUND                   PIC X(4).
                       09  AGENCY                 PIC X(03).
                       09 XORGANIZATION           PIC X(04).
                       09  ACTIVITY               PIC X(04).
                   07  SORT-OBJ-REV-SOURCE.
                       09  OBJECT                 PIC X(04).
                       09  REVENUE-SOURCE         PIC X(04).
                   07  BS-ACCOUNT                 PIC X(04).
                   07  ACCOUNT-TYPE               PIC X(02).
               05  TRANSACTION-ID.
                   07  TRANS-CODE                 PIC X(02).
                   07  RECEIVABLE-NUMBER          PIC X(14).
               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  PLANNING-PERIOD.
                   07  PLANNING-YEAR.
                       09  PLANNING-YEAR-CC       PIC X(02).
                       09  PLANNING-YEAR-YY       PIC X(02).
                   07  PLANNING-QUARTER           PIC X(01).
                   07  PLANNING-MONTH             PIC X(02).
               05  DOCUMENT-ACTION                PIC X(01).
               05  LINE-ACTION                    PIC X(01).
               05  TYPE-OF-ORDER                  PIC X(01).
               05  CUSTOMER-ID
                   07  CUST-CODE                  PIC X(10).
                   07  CUST-ADDR-IND              PIC X(01).
               05  CUSTOMER-NAME-R
                   07  CUSTOMER-NAME              PIC X(30).
               05  VENDOR-INVOICE                 PIC X(12).
               05  VI-LINE-DESCRIPTION
                   07  DESCRIPTION                PIC X(27).
                   07  PC-LINE-NUMBER             PIC X(3).
               05  SUB-ORG                        PIC X(02).
               05  APPR-UNIT                      PIC X(09).
               05  SORT-SUB-OBJ-REV.
                   07  SUB-OBJECT                 PIC X(02).
                   07  SUB-REV-SOURCE             PIC X(02).
               05  JOB-NUMBER.
                   07 GEN-REPT-CATEGORY           PIC X(08).
               05  SORT-REPT-CAT-INTRA-REF.
                   07  PERFORMANCE-CODEPIC X(04).
                   07  INTRA-GOVT-REF.
                      09  INTRA-GOVT-REF-FUND     PIC X(04).
                      09  SERIES-NUM              PIC X(03).
               05  BANK-ACCOUNT-CODE              PIC X(02).
               05  REF-TRANS-ID.
                   07  REF-TRANS-CODE             PIC X(02).
                   07  REF-TRANS-NUMBER           PIC X(14).
               05  REF-TRANS-LINE                 PIC X(02).
               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  MATCH-KEY.
                   07  MATCH-BUDGET-FY.
                       09  MATCH-BUDGET-FY-CC     PIC X(02).
                       09  MATCH-BUDGET-FY-YY     PIC X(02).
                   07  MATCH-TRANS-CODE           PIC X(02).
                   07  MATCH-TRANS-NUMBER         PIC X(14).
                   07  MATCH-TRANS-DATE.
                       09  MATCH-TRANS-DATE-CC        PIC X(02).
                       09  MATCH-TRANS-DATE-YYMMDD    PIC X(06).
               05 XSTATUS                         PIC X(01).
               05  FSBO-POST-CODE                 PIC X(01).
               05  APPR-ORG                       PIC X(04).
               05  ALLT-ORG                       PIC X(04).
               05  EXP-BUD-ORG                    PIC X(04).
               05  REV-BUD-ORG                    PIC X(04).
               05  FED-AID-NUMBER                 PIC X(12).
               05  CHARGE-CLASS                   PIC X(03).
               05  PROJECT-DATA.
                   07  PROJECT                    PIC X(05).
                   07  SUB-PROJECT                PIC X(02).
                   07  PHASE                      PIC X(01).
               05  REVERT-BEG-CASH-IND            PIC X(01).
               05  COST-CATEGORY                  PIC X(03).
               05  XFUNCTION                      PIC X(04).
               05  QUANTITY                       PIC S9(12) COMP-3.
               05  BILLING-CODE                   PIC X(04).
               05  BUDGET-OBJ-CLASS               PIC X(03).