Populate City and St when you have only address and ZIP

If you have a need to populate the City and St fields when only the ZIP is available then use the following command, or run address validation.

USE IN IIF(USED('_USZIPS'),SELECT('_USZIPS'),0) REPLACE ZIP WITH ALLT(SUBSTR(ADDRESS,RAT(" ",ALLT(ADDRESS)))),; ADDRESS WITH LEFT(ADDRESS,RAT(" ",ALLT(ADDRESS))); FOR EMPTY(ZIP) AND ISDIGIT(RIGHT(ALLT(ADDRESS),1)) REPLACE ADDRESS WITH ALLT(ADDRESS)+" "+ZIP,; ZIP WITH "" FOR ISALPHA(ALLT(ZIP)) PUBLIC COMALIAS COMALIAS=ALIAS() USE (ADDBS(XDEFFLDR)+"DMM\_USZIPS.DBF") IN 0 ORDER USZIP REPLACE CITY WITH _USZIPS.PREFCITY,; ST WITH _USZIPS.ST FOR SEEK(LEFT(ZIP,5),'_USZIPS') USE IN IIF(USED('_USZIPS'),SELECT('_USZIPS'),0)

USE IN IIF(USED('_USZIPS'),SELECT('_USZIPS'),0)
REPLACE ZIP WITH ALLT(SUBSTR(ADDRESS,RAT(" ",ALLT(ADDRESS)))),;
   ADDRESS WITH LEFT(ADDRESS,RAT(" ",ALLT(ADDRESS)));
   FOR EMPTY(ZIP) AND ISDIGIT(RIGHT(ALLT(ADDRESS),1))
REPLACE ADDRESS WITH ALLT(ADDRESS)+" "+ZIP,;
   ZIP WITH "" FOR ISALPHA(ALLT(ZIP))
PUBLIC COMALIAS
COMALIAS=ALIAS()
USE (ADDBS(XDEFFLDR)+"DMM\_USZIPS.DBF") IN 0 ORDER USZIP
REPLACE CITY WITH _USZIPS.PREFCITY,;
   ST WITH _USZIPS.ST FOR SEEK(LEFT(ZIP,5),'_USZIPS')
USE IN IIF(USED('_USZIPS'),SELECT('_USZIPS'),0)

« Back to Commands

New to the
Mailing
Industry?
More Info

Professional Services
More Info

I wanted to drop you a line to tell you that working with Accuzip has been a breath of fresh air. I’ve been able to speak with a Live person each and every time I call. Your unlimited Tech Support, Personal Training and Price Lock Guarantee has given me the confidence that I made the right choice. Accuzip was able to solve my list issues and add value to my existing database at a more than reasonable price.

J.S., Newark, OH