******************************************************************
      *
      *    TABLE: MWBE-SUBCON-PAY-TABLE
      *
      *      KEY: PA-PO-NUMBER
      *           FISC-YEAR
      *           VENDOR-CODE
      *           SUBCON-CODE
      ******************************************************************
       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 MWBE-SUBCON-PAY-TABLE               REDEFINES MTIOAREA.
              05  DOCD-IOAREA.
                10  MWBE-DETAIL-LINE.
                    15  MWBE-KEY-FIELDS.
                        20  TRANS-CODE                PIC X(02).
                        20  PA-PO-NUMBER.
                            25  PO-AGENCY             PIC X(03).
                            25  PA-PO-NMBR-NUMBER     PIC X(11).
                        20  FISC-YEAR.
                            25  FISC-YEAR-CC          PIC X(02).
                            25  FISC-YEAR-YY          PIC X(02).
                        20  VENDOR-CODE.
                            25  VENDOR-NUMBER         PIC X(10).
                            25  VENDOR-ADDR-IND       PIC X(01).
                        20  SUBCON-CODE.
                            25  SUBCON-NUMBER         PIC X(10).
                            25  SUBCON-ADDR-IND       PIC X(01).
                    15  MWBE-RESULT-FIELDS.
                        20  MONTH-FIELDS.
                            25  MBE-AMOUNT-JAN        PIC X(14).
                            25  WBE-AMOUNT-JAN        PIC X(14).
                            25  COMMENT-JAN           PIC X(30).
                            25  MBE-AMOUNT-FEB        PIC X(14).
                            25  WBE-AMOUNT-FEB        PIC X(14).
                            25  COMMENT-FEB           PIC X(30).
                            25  MBE-AMOUNT-MAR        PIC X(14).
                            25  WBE-AMOUNT-MAR        PIC X(14).
                            25  COMMENT-MAR           PIC X(30).
                            25  MBE-AMOUNT-APR        PIC X(14).
                            25  WBE-AMOUNT-APR        PIC X(14).
                            25  COMMENT-APR           PIC X(30).
                            25  MBE-AMOUNT-MAY        PIC X(14).
                            25  WBE-AMOUNT-MAY        PIC X(14).
                            25  COMMENT-MAY           PIC X(30).
                            25  MBE-AMOUNT-JUN        PIC X(14).
                            25  WBE-AMOUNT-JUN        PIC X(14).
                            25  COMMENT-JUN           PIC X(30).
                            25  MBE-AMOUNT-JUL        PIC X(14).
                            25  WBE-AMOUNT-JUL        PIC X(14).
                            25  COMMENT-JUL           PIC X(30).
                            25  MBE-AMOUNT-AUG        PIC X(14).
                            25  WBE-AMOUNT-AUG        PIC X(14).
                            25  COMMENT-AUG           PIC X(30).
                            25  MBE-AMOUNT-SEP        PIC X(14).
                            25  WBE-AMOUNT-SEP        PIC X(14).
                            25  COMMENT-SEP           PIC X(30).
                            25  MBE-AMOUNT-OCT        PIC X(14).
                            25  WBE-AMOUNT-OCT        PIC X(14).
                            25  COMMENT-OCT           PIC X(30).
                            25  MBE-AMOUNT-NOV        PIC X(14).
                            25  WBE-AMOUNT-NOV        PIC X(14).
                            25  COMMENT-NOV           PIC X(30).
                            25  MBE-AMOUNT-DEC        PIC X(14).
                            25  WBE-AMOUNT-DEC        PIC X(14).
                            25  COMMENT-DEC           PIC X(30).
                    15  LINE-INFERED-FLDS.
                        20  VENDOR-NAME               PIC X(30).
                        20  SUBCON-NAME               PIC X(30).
                        20  MBE-TOTAL                 PIC X(18).
                        20  WBE-TOTAL                 PIC X(18).
          03  FILLER                                  PIC X(1262).