Mark Invalid ZIP Code Records in a script

[Eric]

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.

Code: Select all

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.