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