*****************************************************************
      *                                                               *
      *   LEDGER: MODOT-JOB-LEDGER                                    *
      *                                                               *
      *   NUMBER: 0620                                                *
      *                                                               *
      *      KEY: NONE                                                *
      *                                                               *
      *   LENGTH: 346                                                 *
      *                                                               *
      *****************************************************************
           03  MODOT-JOB-LEDGER.
                    05  TRANS-CODE               PIC X(2).
                    05  JOB-NUMBER               PIC X(8).
                    05  DATE-OF-RECORD.
                    07  RECORD-MONTH             PIC X(2).
                    07  RECORD-DAY               PIC X(2).
                    07  RECORD-YEAR.
                    09  RECORD-YEAR-YY           PIC X(2).
                    09  RECORD-YEAR-CC           PIC X(2).
                    05  EXPIRATION-MONTH         PIC X(2).
                    05  EXPIRATION-DAY           PIC X(2).
                    05  EXPIRATION-YEAR          PIC X(2).
                    05  DOCUMENT-ACTION          PIC X(1).
                    05  JOB-DESCRIPTION          PIC X(30).
                    05  SELLER-FUND              PIC X(4).
                    05  SELLER-AGENCY            PIC X(3).
                    05  SELLER-ORG               PIC X(4).
                    05  SELLER-SUB-ORG           PIC X(2).
                    05  SELLER-ACTIVITY          PIC X(4).
                    05  SELLER-REV-SOURCE        PIC X(4).
                    05  SELLER-SUB-REV           PIC X(2).
                    05  SELLER-REPT-CAT          PIC X(4).
                    05  JOB-TYPE                 PIC X(1).
                    05  BILLING-TYPE             PIC X(1).
                    05  BUYER-FUND               PIC X(4).
                    05  BUYER-AGENCY             PIC X(3).
                    05  BUYER-ORG                PIC X(4).
                    05  BUYER-SUB-ORG            PIC X(2).
                    05  BUYER-ACTIVITY           PIC X(4).
                    05  BUYER-OBJECT             PIC X(4).
                    05  BUYER-SUB-OBJ            PIC X(2).
                    05  BUYER-JOB                PIC X(8).
                    05  BUYER-REPT-CAT           PIC X(4).
                    05  BUYER-PO-NUMBER.
                        07  BUYER-PO-NUMBER-AGCY PIC X(03).
                        07  BUYER-PO-NUMBER-NMBR PIC X(11).
                    05  BUYER-PO-LINE-NO         PIC X(2).
                    05  PROVIDER                 PIC X(11).
                    05  GRANT                    PIC X(4).
                    05  PROJECT                  PIC X(4).
                    05  COSTING-METHOD           PIC X(1).
                    05  COSTING-OBJ-CLASS-1      PIC X(3).
                    05  COSTING-RATE-1           PIC X(5).
                    05  COSTING-OBJ-CLASS-2      PIC X(3).
                    05  COSTING-RATE-2           PIC X(5).
                    05  COSTING-OBJ-CLASS-3      PIC X(3).
                    05  COSTING-RATE-3           PIC X(5).
                    05  COSTING-OBJ-CLASS-4      PIC X(3).
                    05  COSTING-RATE-4           PIC X(5).
                    05  COSTING-RATE-DEFAULT     PIC X(5).
                    05  MAX-BILL-AMT-JOB         PIC X(14).
                    05  EXCLUDE-OBJECT-1         PIC X(4).
                    05  EXCLUDE-OBJECT-2         PIC X(4).
                    05  EXCLUDE-OBJECT-3         PIC X(4).
                    05  EXCLUDE-OBJECT-4         PIC X(4).
                    05  EXCLUDE-OBJECT-5         PIC X(4).
                    05  SELLER-OBJECT            PIC X(4).
                    05  SELLER-SUB-OBJ           PIC X(2).
                    05  BILLING-CYCLE            PIC X(1).
                    05  BILLING-LEVEL            PIC X(1).
                    05  BILL-ACCT-DIST-IND       PIC X(1).
                    05  DETAIL-LINE-BILL-OPT     PIC X(1).
                    05  SELLER-BS-ACCT           PIC X(4).
                    05  SELLER-FUNCTION          PIC X(4).
                    05  RESTRICT-IND             PIC X(1).
                    05  ACTIVITY-IND             PIC X(1).
                    05  SELLER-APPR-UNIT         PIC X(9).
                    05  BUYER-APPR-UNIT          PIC X(9).
                    05  BUYER-FUNCTION           PIC X(4).
                    05  XPROJECT                 PIC X(8).
                    05  WORK-ID                  PIC X(14).
                    05  FILL                     PIC X(56).