03  LEDGER-DEFINE               PIC X(232).
               05  TRANSACTION-ID.
                   07  TRANS-CODE           PIC X(02).
                   07  VI-NUMBER.           PIC X(12).
               05  COMM-LINE-NUMBER         PIC X(03).
               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  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  BUDGET-FY.
                   07  BUDGET-FY-CC         PIC X(02).
                   07  BUDGET-FY-YY         PIC X(02).
               05  DOCUMENT-ACTION          PIC X(01).
               05  TYPE-OF-REQ.
                   07  TYPE-OF-ORDER        PIC X(01).
               05  PO-CATEGORY              PIC X(01).
               05  VENDOR-CODE.
                   07  VENDOR-NUMBER        PIC X(10).
                   07  VENDOR-ADDR-IND      PIC X(01).
               05  AGENCY                   PIC X(03).
               05  ORG-CODE                 PIC X(04).
               05  DELIVER-DATE.
                   07  DELIVER-YEAR.
                       09  DELIVER-YEAR-CC  PIC X(02).
                       09  DELIVER-YEAR-YY  PIC X(02).
                   07  DELIVER-MONTH        PIC X(2).
                   07  DELIVER-DAY          PIC X(2).
               05  SHIP-ADDRESS-CODE        PIC X(03).
               05  CONFIRMATION-ORDER       PIC X(01).
               05  FOB-POINT                PIC X(01).
               05  TAX-AMOUNT               PIC S9(14) COMP-3.
               05  FREIGHT-AMOUNT           PIC S9(14) COMP-3.
               05  DISCOUNT-TYPE            PIC X(01).
               05  COMMODITY-CODE           PIC X(14).
               05  QUANTITY                 PIC S9(12) COMP-3.
               05  UNIT-OF-MEASURE          PIC X(04).
               05  CATALOG-PART-NUM         PIC X(11).
               05  UNIT-COST                PIC S9(14) COMP-3.
               05  EXTENDED-COST            PIC S9(14) COMP-3.
               05  CONDITION                PIC X(02).
               05  PARTIAL-FINAL-FLAG       PIC X(01).
               05  CARRIER-CODE             PIC X(03).
               05  REF-TRANS-CODE           PIC X(02).
               05  REF-TRANS-NUM.
                   07  REF-TRANS-NUM-AGENCY PIC X(03).
                   07  REF-TRANS-NUM-NUMBER PIC X(12).
               05  REF-TRANS-COMM-LINE      PIC X(03).
               05  BLANKET-NUMBER           PIC X(11).
               05  BUYER                    PIC X(02).
               05  WAREHOUSE-CODE           PIC X(04).
               05  ITEM-CODE                PIC X(03).
               05  BID-ID.
                   07  BID-NUMBER           PIC X(10).
                   07  BID-SUFFIX           PIC X(01).
               05  BID-LINE-NUMBER          PIC X(03).
               05  ORIG-UNIT-COST           PIC S9(14) COMP-3.
               05  DISCOUNT-CODE            PIC X(01).
               05  PERCENT-OF-DISCOUNT      PIC S9(05) COMP-3.
               05  DISCOUNT-AMOUNT          PIC S9(14) COMP-3.
               05  PA-LINE-NUMBER           PIC X(03).