     A*
     A                                      UNIQUE
     A          R AVLIST
     A*
     A            VNUM           7  0       TEXT('Vendor Number')
     A            VNAME         60          TEXT('Vendor Name')
     A            VURL         100          TEXT('Vendor URL')
     A            STREET1       30          TEXT('Address Line 1')
     A            STREET2       30          TEXT('Address Line 2')
     A            CITY          25          TEXT('City')
     A            STATE          2          TEXT('State')
     A            ZIP            5          TEXT('Zip')
     A*
     A          K VNUM
     A* 