03 VENDOR-TABLE-2 REDEFINES MTIOAREA. 00000001 05 DOCD-IOAREA. 00000002 10 VEN2-KEY-FIELDS. 00000003 15 VENDOR-CODE. 00000004 20 VENDOR-NUMBER PIC X(10). 00000005 20 VENDOR-ADDR-IND PIC X(01). 00000006 10 VEN2-RESULT-FIELDS. 00000007 15 VENDOR-NAME PIC X(30). 00000008 15 VENDOR-ADDRESS-LINE1 PIC X(30). 00000009 15 VENDOR-ADDRESS-LINE2 PIC X(30). 00000010 15 VENDOR-ADDRESS-LINE3. 00000011 20 CITY-STATE. 00000012 25 CITY PIC X(18). 00000013 25 STATE PIC X(02). 00000014 20 ZIP-CODE PIC X(10). 00000015 15 SCHED-PYMT-DAY PIC X(02). 00000016 15 MISC-VENDOR-IND PIC X(01). 00000017 15 MINORITY-VENDOR-IND PIC X(01). 00000018 15 1099-VENDOR-IND PIC X(01). 00000019 15 COMMODITY-IND PIC X(01). 00000020 15 EXPENDED-AMT PIC S9(14). 00000021 15 ALTERNATE-NAME PIC X(30). 00000022 15 ALTERNATE-ADDRESS-1 PIC X(30). 00000023 15 ALTERNATE-ADDRESS-2 PIC X(30). 00000024 15 ALTERNATE-ADDRESS-3. 00000025 20 ALT-CITY-STATE. 00000026 25 ALT-CITY PIC X(18). 00000027 25 ALT-STATE PIC X(02). 00000028 20 ALT-ZIP-CODE PIC X(10). 00000029 15 LAST-ACTION-DATE. 00000030 20 LAST-ACTION-YEAR. 00000031 25 LAST-ACTION-YEAR-CC PIC X(02). 00000032 25 LAST-ACTION-YEAR-YY PIC X(02). 00000033 20 LAST-ACTION-MONTH PIC X(02). 00000034 20 LAST-ACTION-DAY PIC X(02). 00000035 15 VENDOR-PHONE PIC X(12). 00000036 15 CONTACT PIC X(30). 00000037 15 COMMENTS-30 PIC X(30). 00000038 15 DISCOUNT-TYPE PIC X(01). 00000039 15 CUSTOMER-ACCOUNT PIC X(12). 00000040 15 A-R-CONTACT PIC X(20). 00000041 15 PAYMENT-HOLD-IND PIC X(01). 00000042 15 MFG-IND PIC X(01). 00000043 15 IN-STATE-IND PIC X(01). 00000044 15 DEALER-IND PIC X(01). 00000045 15 JOBBER-IND PIC X(01). 00000046 15 RETAILER-IND PIC X(01). 00000047 15 FACTORY-REP-IND PIC X(01). 00000048 15 INDEPENDENT-IND PIC X(01). 00000049 15 PARTNERSHIP-IND PIC X(01). 00000050 15 INCORPORATED-IND PIC X(01). 00000051 15 SMALL-BUSS-IND PIC X(01). 00000052 15 REPORT-FLAG-1 PIC X(02). 00000053 15 REPORT-FLAG-2 PIC X(02). 00000054 15 REPORT-FLAG-3 PIC X(02). 00000055 15 REPORT-FLAG-4 PIC X(02). 00000056 15 REPORT-FLAG-5 PIC X(02). 00000057 15 CAL-EXPENDED-AMT PIC S9(14). 00000058 15 FEDERAL-ID-NUMBER PIC X(14). 00000059 15 PRIOR-CAL-YR-EXP-AMT PIC S9(14). 00000060 15 PRIOR-FY-EXP-AMT PIC S9(14). 00000061 15 TEXT-FLAG PIC X(01). 00000062 15 VENDOR-TYPE PIC X(02). 00000063 15 VENDOR-ADDR-LINE2A PIC X(30). 00000064 15 ALTERNATE-ADDRESS-2A PIC X(30). 00000065 15 FID-TYPE PIC X(01). 00000066 15 NAME-CONTROL PIC X(04). 00000067 15 PREVENT-DELETION-IND PIC X(01). 00000068 15 DELETION-CONTACT PIC X(03). 00000069 15 TAX-CODE PIC X(03). 00000070 15 BACKUP-WHOLD-FLAG PIC X(01). 00000071 15 EFT-STATUS PIC X(01). 00000072 15 APPLICATION-TYPE PIC X(02). 00000073 15 SINGLE-CHECK-FLAG PIC X(01). 00000074 15 TIN-COUNTER PIC X(01). 00000075 15 TIN-DATE. 00000076 20 TIN-DATE-YEAR PIC X(04). 00000077 20 TIN-DATE-MM PIC X(02). 00000078 20 TIN-DATE-DD PIC X(02). 00000079 15 PRIM-1099-VENDOR PIC X(01). 00000080 15 REPORT-FLAG-6 PIC X(02). 00000081 15 REPORT-FLAG-7 PIC X(02). 00000082 15 REPORT-FLAG-8 PIC X(02). 00000083 15 REPORT-FLAG-9 PIC X(02). 00000090 15 REPORT-FLAG-10 PIC X(02). 00000100