*****************************************************************
      *                                                               *
      *   LEDGER: INVENTORY-LEDGER                                    *
      *                                                               *
      *   NUMBER: 0125                                                *
      *                                                               *
      *      KEY: NONE                                                *
      *                                                               *
      *   LENGTH: 286                                                 *
      *                                                               *
      *****************************************************************
               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.
                   09  TRANS-NUMBER-AGENCY PIC X(03).
                   09  TRANS-NUMBER-NUMBER PIC X(11).
           05  COMM-LINE-NUMBER            PIC X(03).
           05  DATE-OF-RECORD.
               07  RECORD-YEAR.
                   09 RECORD-YEAR-9.
                      11 RECORD-YEAR-CC-9  PIC 9(02).
                      11 RECORD-YEAR-YY-9  PIC 9(02).
               07  RECORD-MONTH.
                   09 RECORD-MONTH-9       PIC 9(02).
               07  RECORD-DAY.
                   09 RECORD-DAY-9         PIC 9(02).
           05  ACCEPTANCE-DATE.
               07  ACCEPTANCE-YEAR.
                   09 ACCEPTANCE-YEAR-9.
                      11 ACCEPTANCE-YEAR-CC-9      PIC 9(02).
                      11 ACCEPTANCE-YEAR-YY-9      PIC 9(02).
               07  ACCEPTANCE-MONTH.
                   09 ACCEPTANCE-MONTH-9   PIC 9(02).
               07  ACCEPTANCE-DAY.
                   09 ACCEPTANCE-DAY-9     PIC 9(02).
           05  BUDGET-FY.
               10  BUDGET-FY-CC            PIC X(02).
               10  BUDGET-FY-YY            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  DOCUMENT-ACTION              PIC X(01).
           05  AGENCY                       PIC X(03).
           05  REQUESTING-ORG               PIC X(04).
           05  REQUESTED-BY                 PIC X(20).
           05  UNIT-PRICE                   PIC S9(08)V999999.
           05  UNIT-COST                    PIC S9(08)V999999.
           05  RETURN-CHARGE                PIC X(14).
           05  USER-ID                      PIC X(04).
           05  FILLER                       PIC X(04).
           05  TERMINAL-ID                  PIC X(08).
           05  WAREHOUSE                    PIC X(04).
           05  STOCK-ITEM.
               07  STOCK-NUMBER             PIC X(14).
               07  STOCK-SUFFIX             PIC X(03).
           05  REQUESTED-QTY                PIC S9(9)V999.
           05  ISSUE-UNIT                   PIC X(04).
           05  ADJ-CODE.
               07 XRETURN-CODE              PIC X(06).
           05  DELIVERY-DATE.
               07  DELIVERY-YEAR.
                   09  DELIVERY-YEAR-CC     PIC X(02).
                   09  DELIVERY-YEAR-YY     PIC X(02).
               07  DELIVERY-MONTH           PIC X(02).
               07  DELIVERY-DAY             PIC X(02).
           05  REF-TRANS-ID.
               07  REF-TRANS-CODE           PIC X(02).
               07  REF-TRANS-NUMBER.
                   09  REF-TRANS-NUMBER-AGCY PIC X(03).
                   09  REF-TRANS-NUMBER-NMBR PIC X(11).
               07  REF-TRANS-LINE           PIC X(03).
           05  REORDER-INDICATOR            PIC X(01).
           05  REF-ACCT-LINE            PIC X(02).
           05  FUND                     PIC X(04).
           05 XAGENCY                   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  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  JOB-NUMBER.
               07 GEN-REPT-CATEGORY     PIC X(08).
           05  REPORTING-CATEGORY       PIC X(04).
           05  XFUNCTION                PIC X(04).
           05  COST-CATEGORY            PIC X(03).
           05  JOB-TYPE                 PIC X(04).