Support 805.461.7300
Sales
Our Technology. Your Success.
Tech Notes

Mark Invalid ZIP Code Records in a script

Use this command to mark Invalid ZIP Codes in your database. This makes it so you can identify Invalid ZIP Codes in a script, as you won't have to pull down Select to Show > Invalid ZIP Codes.

com_alias=alias()
USE IN IIF(USED('USZIP'),SELECT('USZIP'),0) 
SET SAFETY OFF
USE (ADDBS(XDEFFLDR)+"DMM\_USZIPS.DBF") IN 0 ALIAS  uszip
SELECT("uszip")
INDEX ON LEFT(zip,5) TAG mytag
SELECT(com_alias)
replace all X with ""
replace X with "X" for !SEEK(LEFT(zip,5),"uszip")
USE IN IIF(USED('_USZIP'),SELECT('_USZIP'),0)

In the Script, you can add this command event after the Validate Records event.

When you export your data or when you show Marked records, look for a capital X in the x field. These will be your Invalid ZIP Code records.

« Back to Tech Notes

If everyone knew how good the product and tech support you get with Accuzip6, there wouldn't be any other products out there on the market.
D.L., Simi Valley, CA