Populate City and St when you have only address and ZIP

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 refer AccuZIP because of the customer service. You have a live person that answers phone calls and fields them to the correct person for help. On top of that each of your technicians knows their stuff! They are always helpful.

T.P., Spartanburg, SC