Support 805.461.7300
Sales
Our Technology. Your Success.

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)

« Back to Commands

I can't believe how excellent your support is. The last disaster you rescued me from was one that a programmer had told me had no answer that he knew of. Well, you know more than him! I e mail ed you on a SATURDAY and you had the problem solved by Monday morning!
C.P., Houston, TX