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"))`

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"))

I'm impressed. I've been a [telecommunication] engineer for many years, and never had the response from a company you have given...I will tell all.

J.Y., Daytona Beach, FL