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 just wanted to share how FABULOUS [Geoff] is and you should keep him for sure! I have had the best service and training from him in the last few days that it has sold me on keeping AccuZIP @ my new job. I was new to this software and learning in “trial by fire” mode and he got me thru it without any burns! He is amazing and deserves a raise, bonus, employee of year- SOMETHING BIG. I have dealt with the mail industry for about 30 years and never received this level of support and so positive. I am forever grateful and will suggest him and this product if asked. I am being very serious about his knowledge, skill, and interpersonal skill(hard to find these days).

K.P., Colorado Springs, CO