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

While we have consistently been impressed with the level of assistance we receive through your online chat portal, Geoff has been more than helpful and great to work with on every issue we’ve come across. He is quick to diagnose and resolve the issues. He also has offered to instruction and information to prevent future issues. He has even guided us through some functions of Accuzip we had not previously been utilizing. I wanted to take a minute and give a huge shout out to Geoff.

T.A., Grand Rapids, MI