03  TPAR-RECORD                           REDEFINES MTIOAREA.  00000001
              05  TPAR-RECORD-KEY.                                      00000002
                   07  THIRD-PARTY-CODE               PIC X(11).        00000003
              05  TPAR-RESULT-FIELDS.                                   00000004
                   07  CUSTOMER-NAME                  PIC X(30).        00000005
                   07  CUST-DIV                       PIC X(30).        00000006
                   07  CUSTOMER-ADDRESS.                                00000007
                       09  CUSTOMER-ADDR-LINE1        PIC X(30).        00000008
                       09  CUSTOMER-ADDR-LINE2        PIC X(30).        00000009
                       09  CUSTOMER-ADDR-LINE3.                         00000010
                           11  CUSTOMER-ADDR-CITY     PIC X(28).        00000011
                           11  CUSTOMER-ADDR-ST       PIC X(02).        00000012
                   07  CUSTOMER-ADDR-ZIP.                               00000013
                       09  CUST-ADDR-ZIP1             PIC X(05).        00000014
                       09  CUST-ADDR-ZIP2             PIC X(04).        00000015
                   07  CUST-PHONE-NUMBER              PIC X(15).        00000016
                   07  FAX-PHONE-NUMBER               PIC X(15).        00000017
                   07  RET-MAIL-IND                   PIC X(01).        00000020
                   07  INDIV-CORP-NAME-FL             PIC X(01).        00000100