home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / members.zip / MDGEN.PRG < prev    next >
Text File  |  1986-10-16  |  2KB  |  59 lines
  1. *----------------------------------------------------------------------
  2. * Program : Membership Database Package
  3. * File    : MDGEN
  4. * Function: Checks for existence of all required DBF & MEM files
  5. * Author  : J. North        
  6. * Version : (AT contest)
  7. * Date    : 10/15/86
  8. *----------------------------------------------------------------------
  9. *
  10. select 1
  11. if .not. file("mdkeys.dbf")
  12.     clear
  13.     ? "Installation Error - Function Key Text File Not Found"
  14.     wait "(Note this message then press any key)
  15.     close databases
  16.     quit
  17. endif
  18. if .not. file("genmbr.dbf")
  19.     clear
  20.     ? "Installation Error - Database Template File Not Found"
  21.     wait "(Note this message then press any key)
  22.     close databases
  23.     quit
  24. endif
  25. if .not. file("list80.frm")
  26.     clear
  27.     ? "Installation Error - List 80 Report Form Not Found"
  28.     wait "(Note this message then press any key)
  29.     close databases
  30.     quit
  31. endif
  32. if .not. file("one-up.lbl")
  33.     clear
  34.     ? "Installation Error - One-Up Label Form Not Found"
  35.     wait "(Note this message then press any key)
  36.     close databases
  37.     quit
  38. endif
  39. if .not. file("mdvars.mem")
  40.     public m_grp,m_device
  41.     store 1 to m_device
  42.     store 1 to m_grp
  43.     save to mdvars.mem
  44. endif
  45. if .not. file("members.dbf")
  46.     create members from genmbr
  47. endif
  48. if .not. file("name.ndx")
  49.     use members
  50.     index on last_name+first_name to name
  51.     use
  52. endif
  53. if .not. file("zip.ndx")
  54.     use members
  55.     index on zip to zip
  56.     use
  57. endif
  58. return
  59.