home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / disk_20.zip / NUDBMSX.ZIP / DELTEMPL.PRG < prev    next >
Text File  |  1985-11-15  |  265b  |  16 lines
  1. *****   Program:  DELTEMPL.PRG   *****
  2. * DELETE AN EMPLOYEE RECORD 
  3. set talk off
  4. set echo off
  5. DO FINDEMPL
  6. IF .NOT. EMPLFOUND
  7.    RETURN
  8. ELSE
  9.    DELETE
  10.    PACK
  11.    @ 10,1 SAY "            The employee record has been deleted !"
  12.    RETURN
  13. ENDIF
  14. RETURN
  15.  
  16.