Add County Information to Simplified Lists

ON ERROR com_message=message()

SET SAFETY OFF

ALTER TABLE (alias()) ADD COLUMN countynm_ C(30)

ALTER TABLE (alias()) ADD COLUMN countyno_ C(3)

USE (ADDBS(xDefFldr)+"DMM\_uszips.dbf") IN 0 ALIAS _uszips ORDER USZIP

REPLACE countynm_ WITH _uszips.countynm FOR SEEK(LEFT(zip,5),"_uszips")

REPLACE countyno_ WITH _uszips.countyno FOR SEEK(LEFT(zip,5),"_uszips")

USE IN (SELECT("_uszips"))