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

As always, thanks for your product. We in the industry TRULY appreciate the fact that YOU get back to us. You have NO IDEA how important that is.

T.G., Berlin, MD