home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a013 / 1.ddi / SOURCE.EXE / F_STATE.PRG < prev    next >
Encoding:
Text File  |  1991-01-25  |  933 b   |  43 lines
  1. *****************************************************************
  2. FUNCTION STATENAME (statecode)
  3. *****************************************************************
  4.  
  5. * Returns full state name from standard 2 character state code
  6.  
  7. * Copyright(c) 1991 -- James Occhiogrosso
  8.  
  9. LOCAL old_area := 0, ret_value := ''
  10.  
  11. * If passed state code exceeds 2 characters, exit
  12. IF LEN(TRIM(statecode)) > 2
  13.    RETURN statecode
  14. ENDIF
  15.  
  16. * Save old work area
  17. old_area = SELECT()
  18.  
  19. * Make sure Zip Codes database is available
  20. SELECT zips
  21. IF EMPTY(ALIAS())
  22.     IF FILE('zips.dbf')
  23.         * If zips file exists, open it
  24.         USE zips NEW
  25.     ELSE
  26.         * Otherwise, exit
  27.         RETURN statecode
  28.     ENDIF
  29. ENDIF
  30.  
  31. * Check Zip Code database for state code
  32.  
  33. LOCATE FOR UPPER(TRIM(statecode)) $ zips->state
  34. IF FOUND()
  35.    SELECT(old_area)
  36.    RETURN zips->statename
  37. ELSE
  38.    SELECT(old_area)
  39.    RETURN statecode
  40. ENDIF
  41.  
  42.  
  43.