******************************************************************
      *
      *    TABLE: VENDOR-TABLE-2
      *
      *      KEY: VENDOR-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 VENDOR-TABLE-2                     REDEFINES MTIOAREA.
              05  DOCD-IOAREA.
                 10  VEN2-KEY-FIELDS.
                  15  VENDOR-CODE.
                   20  VENDOR-NUMBER                  PIC X(10).
                   20  VENDOR-ADDR-IND                PIC X(01).
                 10  VEN2-RESULT-FIELDS.
                  15  VENDOR-NAME                     PIC X(30).
                  15  VENDOR-ADDRESS-LINE1            PIC X(30).
                  15  VENDOR-ADDRESS-LINE2            PIC X(30).
                  15  VENDOR-ADDRESS-LINE3.
                   20  CITY-STATE.
                    25  CITY                          PIC X(18).
                    25  STATE                         PIC X(02).
                   20  ZIP-CODE                       PIC X(10).
                  15  SCHED-PYMT-DAY                  PIC X(02).
                  15  MISC-VENDOR-IND                 PIC X(01).
                  15  MINORITY-VENDOR-IND             PIC X(01).
                  15  1099-VENDOR-IND                 PIC X(01).
                  15  COMMODITY-IND                   PIC X(01).
                  15  EXPENDED-AMT                    PIC S9(14).
                  15  ALTERNATE-NAME                  PIC X(30).
                  15  ALTERNATE-ADDRESS-1             PIC X(30).
                  15  ALTERNATE-ADDRESS-2             PIC X(30).
                  15  ALTERNATE-ADDRESS-3.
                   20  ALT-CITY-STATE.
                    25  ALT-CITY                      PIC X(18).
                    25  ALT-STATE                     PIC X(02).
                   20  ALT-ZIP-CODE                   PIC X(10).
                  15  LAST-ACTION-DATE.
                   20  LAST-ACTION-YEAR.
                       25  LAST-ACTION-YEAR-CC        PIC X(02).
                       25  LAST-ACTION-YEAR-YY        PIC X(02).
                   20  LAST-ACTION-MONTH              PIC X(02).
                   20  LAST-ACTION-DAY                PIC X(02).
                  15  VENDOR-PHONE                    PIC X(12).
                  15  CONTACT                         PIC X(30).
                  15  COMMENTS-30                     PIC X(30).
                  15  DISCOUNT-TYPE                   PIC X(01).
                  15  CUSTOMER-ACCOUNT                PIC X(12).
                  15  A-R-CONTACT                     PIC X(20).
                  15  PAYMENT-HOLD-IND                PIC X(01).
                  15  MFG-IND                         PIC X(01).
                  15  IN-STATE-IND                    PIC X(01).
                  15  DEALER-IND                      PIC X(01).
                  15  JOBBER-IND                      PIC X(01).
                  15  RETAILER-IND                    PIC X(01).
                  15  FACTORY-REP-IND                 PIC X(01).
                  15  INDEPENDENT-IND                 PIC X(01).
                  15  PARTNERSHIP-IND                 PIC X(01).
                  15  INCORPORATED-IND                PIC X(01).
                  15  SMALL-BUSS-IND                  PIC X(01).
                  15  REPORT-FLAG-1                   PIC X(02).
                  15  REPORT-FLAG-2                   PIC X(02).
                  15  REPORT-FLAG-3                   PIC X(02).
                  15  REPORT-FLAG-4                   PIC X(02).
                  15  REPORT-FLAG-5                   PIC X(02).
                  15  CAL-EXPENDED-AMT                PIC S9(14).
                  15  FEDERAL-ID-NUMBER               PIC X(14).
                  15  PRIOR-CAL-YR-EXP-AMT            PIC S9(14).
                  15  PRIOR-FY-EXP-AMT                PIC S9(14).
                  15  TEXT-FLAG                       PIC X(01).
                  15  VENDOR-TYPE                     PIC X(02).
                  15  VENDOR-ADDR-LINE2A              PIC X(30).
                  15  ALTERNATE-ADDRESS-2A            PIC X(30).
                  15  FID-TYPE                        PIC X(01).
                  15  NAME-CONTROL                    PIC X(04).
                  15  PREVENT-DELETION-IND            PIC X(01).
                  15  DELETION-CONTACT                PIC X(03).
                  15  TAX-CODE                        PIC X(03).
                  15  BACKUP-WHOLD-FLAG               PIC X(01).
                  15  EFT-STATUS                      PIC X(01).
                  15  APPLICATION-TYPE                PIC X(02).
                  15  SINGLE-CHECK-FLAG               PIC X(01).
                  15  TIN-COUNTER                     PIC X(01).
                  15  TIN-DATE.
                      20  TIN-DATE-YEAR               PIC X(04).
                      20  TIN-DATE-MM                 PIC X(02).
                      20  TIN-DATE-DD                 PIC X(02).
                  15  PRIM-1099-VENDOR                PIC X(01).
                  15  REPORT-FLAG-6                   PIC X(02).
                  15  REPORT-FLAG-7                   PIC X(02).
                  15  REPORT-FLAG-8                   PIC X(02).
                  15  REPORT-FLAG-9                   PIC X(02).
                  15  REPORT-FLAG-10                  PIC X(02).
          03  FILLER                                  PIC X(1439).