03 BUYER-TABLE                        REDEFINES MTIOAREA.     00000001
              05  DOCD-IOAREA.                                          00000002
                 10  BUYT-KEY-FIELDS.                                   00000003
                  15  BUYER-CODE                      PIC X(02).        00000004
                 10  BUYT-RESULT-FIELDS.                                00000005
                  15  BUYER-NAME-30                   PIC X(30).        00000006
                  15  BUYER-AGENCY                    PIC X(03).        00000010
                  15  PHONE-NUMBER                    PIC X(12).        00000100