03 ELECTRONIC-FUNDS-TRANS-TABLE REDEFINES MTIOAREA. 00000001 05 DOCD-IOAREA. 00000002 10 EFTT-KEY-FIELDS. 00000003 15 VENDOR-CODE-R PIC X(11). 00000004 10 EFTT-RESULT-FIELDS. 00000005 15 BANK-ACCT-NUMBER PIC X(17). 00000006 15 BANK-NAME PIC X(30). 00000007 15 BANK-ADDRESS-1 PIC X(30). 00000008 15 BANK-ADDRESS-2 PIC X(30). 00000009 15 BANK-ADDRESS-3 PIC X(30). 00000010 15 BANK-ADDRESS-4. 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 ABA-NUMBER PIC X(08). 00000016 15 CHECKING-SAVINGS-IND PIC X(01). 00000017 15 CHECK-DIGIT-X PIC X(01). 00000018 15 EFT-STATUS PIC X(01). 00000019 15 LAST-STATUS-CHANGE. 00000020 20 LAST-STATUS-YEAR. 00000021 25 LAST-STATUS-YEAR-CC PIC X(02). 00000022 25 LAST-STATUS-YEAR-YY PIC X(02). 00000023 20 LAST-STATUS-MONTH PIC X(02). 00000024 20 LAST-STATUS-DAY PIC X(02). 00000025 15 TAPE-SEQUENCE-NUMBER PIC X(06). 00000026 15 APPLICATION-TYPE PIC X(02). 00000027 15 DESCRIPTION-60 PIC X(60). 00000028 10 EFTT-INFERRED-FIELDS. 00000030 15 VENDOR-NAME PIC X(30). 00000100