home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / disk_20.zip / NUDBMSX.ZIP / FINDITEM.PRG < prev    next >
Text File  |  1985-11-15  |  308b  |  19 lines
  1. *****   Program:  FINDITEM.PRG   *****
  2. * FIND AN ACCOUNT BY ITS ACCOUNT NUMBER
  3. PUBLIC ITEMFOUND
  4. set talk off
  5. set echo off
  6. ITEMFOUND = .T.
  7. CLEAR
  8. ?
  9. ?
  10. ?
  11. ?
  12. ACCEPT "                Enter STOCK number : " TO STOCKNO
  13. LOCA FOR STOCK_NO = STOCKNO
  14. IF EOF()
  15.    ITEMFOUND = .F.
  16.    RETURN
  17. ENDIF
  18. RETURN
  19.