home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / CLSPLSTA.ZIP / CLSPLSTA.PRG
Encoding:
Text File  |  1987-02-27  |  1.6 KB  |  70 lines
  1. *   Two Clipper Autumn '86 functions.
  2. *   (Clipper is a trademark of Nantucket, Inc.)
  3. *
  4. *   A function to test for correct spelling of a field name.
  5. *
  6. *   And a function to test for a valid state abbreviation.
  7. *
  8. *   Released into the public domain 02/27/87 By Henry J. Franzoni III
  9. *
  10. *
  11. *
  12. *   The field name function is used in this fashion:
  13. *
  14. *   @ ROW,COL SAY "Enter Name of field" GET VALU VALID(FLDCHK(VALU))
  15. *
  16. *   The state abbreviation function is used in this fashion:
  17. *
  18. *   @ ROW,COL SAY "Enter State Abbreviation" GET STATE VALID(STATECHK())
  19. *
  20. *   The following memory variable has to be initialized before
  21. *   the STATECHK() function is called.
  22. *
  23. STOR "AL/AK/AZ/AR/CA/CZ/CO/CT/DE/DC/FL/GA/GU/HI/ID/IL/IN/IA/KS/"+;
  24. "KY/LA/ME/MD/MA/MI/MN/MS/MO/MT/NE/NV/NH/NJ/NM/NY/NC/ND/OH/OK"+;
  25. "/OR/PA/PR/RI/SC/SD/TN/TX/UT/VT/VA/VI/WA/WV/WI/WY/" TO MPSTATEABB
  26. *
  27. *   The functions are short and self explanatory and appear below.
  28. *
  29. *
  30. *
  31. *
  32. *
  33. *
  34. FUNCTION FLDCHK
  35. PARAMETER VAR
  36. PRIVATE OK
  37. IF .NOT. EMPTY(VAR)
  38. IF TYPE([&VAR]) != 'U'
  39. OK=.T.
  40. ELSE
  41. OK=.F.
  42. SAVE SCREEN TO FILLSCRN
  43. @ 1,38,4,70 BOX FRAME
  44. @ 2,40 SAY "This field doesn't exist "
  45. @ 3,40 SAY "Press any key to continue"
  46. DO WHIL INKEY()=0
  47. ENDD
  48. RESTORE SCREEN FROM FILLSCRN
  49. ENDI
  50. ELSE
  51. OK=.T.
  52. ENDI
  53. RETURN(OK)
  54. *
  55. FUNCTION STATECHK
  56. PARAMETER VAR
  57. PRIVATE OK
  58. IF VAR $ MPSTATEABB
  59. OK=.T.
  60. ELSE
  61. OK=.F.
  62. SAVE SCREEN TO FILLSCRN
  63. @ 1,38,4,70 BOX FRAME
  64. @ 2,40 SAY "Invalid state abbreviation"
  65. @ 3,40 SAY "Press any key to continue "
  66. DO WHIL INKEY()=0
  67. ENDD
  68. RESTORE SCREEN FROM FILLSCRN
  69. ENDI
  70. RETURN(OK)