*****************************************************************
      *                                                               *
      *   LEDGER: JOB-FULL-COST-LEDGER                                *
      *                                                               *
      *   NUMBER: 0112                                                *
      *                                                               *
      *      KEY: NONE                                                *
      *                                                               *
      *   LENGTH: 315                                                 *
      *                                                               *
      *****************************************************************
       03  LEDGER-DEFINE.
               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(04).
                       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  TRANS-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  VENDOR-CODE.
                   07  PROVIDER-CODE        PIC X(11).
               05  VENDOR-NAME.
                   07  PROVIDER-NAME        PIC X(30).
               05  DOCUMENT-DESCRIPTION     PIC X(12).
               05  LINE-DESCRIPTION         PIC X(30).
               05  MCGS-SORT-2.
                   07  SUB-ORG              PIC X(02).
                   07  APPR-UNIT            PIC X(09).
                   07  SORT-SUB-OBJ-REV.
                       09  SUB-OBJECT           PIC X(02).
                       09  SUB-REV-SOURCE       PIC X(02).
                   07  JOB-NUMBER.
                       09 GEN-REPT-CATEGORY PIC X(08).
                   07  SORT-REPT-CAT-INTRA-REF.
                       09  REPORTING-CATEGORY   PIC X(04).
                       09  INTRA-GOVT-REF.
                           11  INTRA-GOVT-REF-FUND  PIC X(04).
                           11  INTRA-GOVT-REF-AGNCY 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  POST-CODE                PIC X(01).
               05  JOB-FULL-COST            PIC S9(12)V99 COMP-3.
               05  JOB-BILLING-PERIOD.
                   07  JOB-BILLING-YEAR.
                    09  JOB-BILLING-YEAR-CC    PIC X(02).
                    09  JOB-BILLING-YEAR-YY    PIC X(02).
                   07  JOB-BILLING-QTR      PIC X(1).
                   07  JOB-BILLING-MONTH    PIC X(2).
               05  CHARGE-CLASS             PIC X(3).
               05  GRANT                    PIC X(4).
               05  PROJECT                  PIC X(4).
               05  XFUNCTION                PIC X(04).