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

Thank you for continuing to produce a wonderful tool for the mail ing industry. We continually enjoy the capabilities of your product. Once again, thank you for producing such an excellent product.

D.H., San Diego, CA