home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / disk_20.zip / NUDBMSX.ZIP / FINDEMPL.PRG < prev    next >
Text File  |  1985-11-15  |  473b  |  23 lines
  1. *****   Program:  FINDEMPL.PRG   *****
  2. * FIND AN EMPLOYEE RECORD BY FIRST NAME AND LAST NAME
  3. PUBLIC EMPLFOUND
  4. set talk off
  5. set echo off
  6. EMPLFOUND = .T.
  7. CLEAR
  8. ?
  9. ?
  10. ?
  11. ?
  12. ACCEPT "             Enter employee's first name : " to firstname
  13. ?
  14. accept "                               Last Name : " to lastname
  15. use employee
  16. loca for upper(FIRST_NAME)= upper(firstname).and.;
  17.  upper(last_name) = upper(lastname)
  18. IF EOF()
  19.    EMPLFOUND = .F.
  20.    RETURN
  21. ENDIF
  22. RETURN
  23.