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

You Know, When God created the Seven Wonders of the world, He created another one called AccuZIP!! Thank You for all your help!

R.B., Omaha, NE