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.
