03  BPRO-RECORD                       REDEFINES MTIOAREA.      00000001
              05  BPRO-RECORD-KEY.                                      00000002
                   07  BILLING-CODE                     PIC X(04).      00000003
              05  BPRO-RESULT-FIELDS.                                   00000004
                   07  REMIT-TO-NAME                    PIC X(30).      00000005
                   07  REMIT-TO-DIV                     PIC X(30).      00000006
                   07  REMIT-TO-ADDRESS.                                00000007
                       09  REMIT-TO-ADDR-LINE1          PIC X(30).      00000008
                       09  REMIT-TO-ADDR-LINE2          PIC X(30).      00000009
                       09  REMIT-TO-ADDR-LINE3.                         00000010
                           11  REMIT-TO-CITY            PIC X(19).      00000011
                           11  REMIT-TO-ST              PIC X(02).      00000012
                           11  REMIT-TO-ZIP.                            00000013
                               13  REMIT-TO-ZIP1        PIC X(05).      00000014
                               13  REMIT-TO-ZIP2        PIC X(04).      00000015
                   07  PAID-TO                          PIC X(30).      00000016
                   07  CONTACT-NAME                     PIC X(30).      00000017
                   07  CONTACT-PHONE                    PIC X(15).      00000018
                   07  INV-STATEMENT-FL                 PIC X(01).      00000019
                   07  STATEMENT-DAY                    PIC X(02).      00000020
                   07  REC-DUE-DATE-LAG                 PIC X(03).      00000021
                   07  INSTRUCTION-CODE                 PIC X(12).      00000030
                   07  BILL-COLL-CODE                   PIC X(04).      00000100