01 MTI-LOG.
          03 LOGREC-PREFIX.
              05 LOGREC-RECLEN                        PIC S9(04) COMP.
              05 LOGREC-TABNUM                        PIC X(4).
              05 LOGREC-ACTION                        PIC X.
                 88 LOGREC-ACTION-ADD                 VALUE 'A'.
                 88 LOGREC-ACTION-CHANGE              VALUE 'C'.
                 88 LOGREC-ACTION-DELETE              VALUE 'D'.
              05 LOGREC-DATE.
                 07 LOGREC-CC                         PIC XX.
                 07 LOGREC-YY                         PIC XX.
                 07 LOGREC-MM                         PIC XX.
                 07 LOGREC-DD                         PIC XX.
              05 LOGREC-TIME.
                 07 LOGREC-TIME-HH                    PIC XX.
                 07 LOGREC-TIME-MM                    PIC XX.
                 07 LOGREC-TIME-SS                    PIC XX.
              05 LOGREC-TABID                         PIC X(4).
              05 LOGREC-TYPE                          PIC X.
         03 JOB-TABLE                          REDEFINES MTIOAREA.
            05  DOCD-IOAREA.
                 10  JOBT-KEY-FIELDS.
                  15  JOB-NUMBER                      PIC X(08).
                 10  JOBT-RESULT-FIELDS.
                  15  JOB-DESCRIPTION                 PIC X(30).
                  15  JOB-SET-UP-DATE.
                   20  JOB-SET-UP-YEAR.
                       25  JOB-SET-UP-YEAR-CC         PIC X(02).
                       25  JOB-SET-UP-YEAR-YY         PIC X(02).
                   20  JOB-SET-UP-MONTH               PIC X(02).
                   20  JOB-SET-UP-DAY                 PIC X(02).
                  15  JOB-EXPIRATION-DATE.
                   20  JOB-EXPIRATION-YEAR.
                       25  JOB-EXPIRATION-YEAR-CC     PIC X(02).
                       25  JOB-EXPIRATION-YEAR-YY     PIC X(02).
                   20  JOB-EXPIRATION-MONTH           PIC X(02).
                   20  JOB-EXPIRATION-DAY             PIC X(02).
                  15  JOB-STATUS                      PIC X(01).
                  15  JOB-TYPE-01                     PIC X(1).
                  15  BILLING-TYPE                    PIC X(01).
                  15  SELLER-FUND                     PIC X(04).
                  15  SELLER-AGENCY                   PIC X(03).
                  15  SELLER-ORG                      PIC X(04).
                  15  SELLER-SUB-ORG                  PIC X(02).
                  15  SELLER-ACTIVITY                 PIC X(04).
                  15  SELLER-REV-SOURCE               PIC X(04).
                  15  SELLER-SUB-REV-SRCE             PIC X(02).
                  15  SELLER-REPT-CAT                 PIC X(04).
                  15  BUYER-FUND                      PIC X(04).
                  15  BUYER-AGENCY                    PIC X(03).
                  15  BUYER-ORG                       PIC X(04).
                  15  BUYER-SUB-ORG                   PIC X(02).
                  15  BUYER-ACTIVITY                  PIC X(04).
                  15  BUYER-OBJECT                    PIC X(04).
                  15  BUYER-SUB-OBJ                   PIC X(02).
                  15  BUYER-REPT-CAT                  PIC X(04).
                  15  BUYER-JOB                       PIC X(08).
                  15  BUYER-PO-NUMBER.
                      20  BUYER-PO-NUMBER-AGCY        PIC X(03).
                      20  BUYER-PO-NUMBER-NMBR        PIC X(11).
                  15  BUYER-PO-LINE-NO                PIC X(02).
                  15  PROVIDER-CODE                   PIC X(11).
                  15  GRANT                           PIC X(4).
                  15  PROJECT                         PIC X(04).
                  15 FILLER                           PIC X(004).
                  15  COSTING-METHOD                  PIC X(01).
                  15  COSTING-OBJ-CLASS-1             PIC X(03).
                  15  COSTING-RATE-1                  PIC S9(05).
                  15  COSTING-RATE-1-X                REDEFINES
                      COSTING-RATE-1                  PIC X(05).
                  15  COSTING-OBJ-CLASS-2             PIC X(03).
                  15  COSTING-RATE-2                  PIC S9(05).
                  15  COSTING-RATE-2-X                REDEFINES
                      COSTING-RATE-2                  PIC X(05).
                  15  COSTING-OBJ-CLASS-3             PIC X(03).
                  15  COSTING-RATE-3                  PIC S9(05).
                  15  COSTING-RATE-3-X                REDEFINES
                      COSTING-RATE-3                  PIC X(05).
                  15  COSTING-OBJ-CLASS-4             PIC X(03).
                  15  COSTING-RATE-4                  PIC S9(05).
                  15  COSTING-RATE-4-X                REDEFINES
                      COSTING-RATE-4                  PIC X(05).
                  15  COSTING-RATE-DEFAULT            PIC S9(05).
                  15  COSTING-RATE-DEFAULT-X          REDEFINES
                      COSTING-RATE-DEFAULT            PIC X(05).
                  15  MAX-BILL-AMT-JOB                PIC S9(14).
                  15  MAX-BILL-AMT-JOB-9 REDEFINES
                     MAX-BILL-AMT-JOB                 PIC S9(12)V99.
                  15  MAX-BILL-AMT-JOB-X REDEFINES
                     MAX-BILL-AMT-JOB                 PIC X(14).
                  15  EXCLUDE-OBJECT-1                PIC X(04).
                  15  EXCLUDE-OBJECT-2                PIC X(04).
                  15  EXCLUDE-OBJECT-3                PIC X(04).
                  15  EXCLUDE-OBJECT-4                PIC X(04).
                  15  EXCLUDE-OBJECT-5                PIC X(04).
                  15  DIRECT-CHGS-CURR                PIC S9(14).
                  15  DIRECT-CHGS-CURR-9 REDEFINES
                     DIRECT-CHGS-CURR                 PIC S9(12)V99.
                  15  DIRECT-CHGS-JTD                 PIC S9(14).
                  15  DIRECT-CHGS-JTD-9 REDEFINES
                     DIRECT-CHGS-JTD                  PIC S9(12)V99.
                  15  BILLINGS-CURR                   PIC S9(14).
                  15  BILLINGS-CURR-9 REDEFINES
                     BILLINGS-CURR                    PIC S9(12)V99.
                  15  BILLINGS-JTD                    PIC S9(14).
                  15  BILLINGS-JTD-9 REDEFINES
                     BILLINGS-JTD                     PIC S9(12)V99.
                  15  RECEIPTS-CURR                   PIC S9(14).
                  15  RECEIPTS-CURR-9 REDEFINES
                     RECEIPTS-CURR                    PIC S9(12)V99.
                  15  RECEIPTS-JTD                    PIC S9(14).
                  15  RECEIPTS-JTD-9 REDEFINES
                     RECEIPTS-JTD                     PIC S9(12)V99.
                  15  DETAIL-LINE-BILL-OPT            PIC X(01).
                  15  BILL-ACCT-DIST-IND              PIC X(01).
                  15  BILLING-LEVEL                   PIC X(01).
                  15  BILLING-CYCLE-IND               PIC X(01).
                  15  SELLER-OBJECT                   PIC X(04).
                  15  SELLER-SUB-OBJ                  PIC X(02).
                  15  SELLER-BS-ACCT                  PIC X(04).
                  15  SELLER-FUNCTION                 PIC X(04).
                  15  TOTAL-CHGS-CURR                 PIC S9(14).
                  15  TOTAL-CHGS-CURR-9 REDEFINES
                     TOTAL-CHGS-CURR                  PIC S9(12)V99.
                  15  TOTAL-CHGS-JTD                  PIC S9(14).
                  15  TOTAL-CHGS-JTD-9 REDEFINES
                     TOTAL-CHGS-JTD                   PIC S9(12)V99.
                  15  RESTRICT-IND                    PIC X(01).
                  15  ACTIVITY-IND                    PIC X(01).
                  15  WO-JOB-INDICATOR                PIC X(01).
                  15  BUYER-FUNCTION                  PIC X(04).
                  15  SELLER-APPR-UNIT                PIC X(09).
                  15  BUYER-APPR-UNIT                 PIC X(09).
                  15  XPROJECT                        PIC X(08).
                  15  WORK-ID                         PIC X(14).