home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbutil.zip / FED.CMD < prev    next >
OS/2 REXX Batch file  |  1987-02-14  |  1KB  |  53 lines
  1. * This command will find and present for editing a record as indexed in
  2. * any previously opened index file.
  3. SET TALK OFF
  4. STORE  "T"  TO More:Key
  5. Do while More:key = "T"
  6. ACCEPT "KEY TO EDIT? (<retn> to quit)  "  TO Key
  7. Store Trim(!(Key)) to Key
  8. * Check for blank KEY and exit program if found
  9. IF Key = " "
  10. STORE "F " to More:Key
  11. Loop
  12. Endif
  13. * If Key is not blank find the record.
  14. FIND &Key
  15. * Check the record # for zero, which dBASE returns if not found.
  16. IF # = 0
  17. * Tell the user that it is not there
  18. REMARK NOT FOUND!
  19. Loop
  20. Endif
  21. * EDIT # will edit the current record
  22. EDIT #
  23. Enddo While More:Key
  24. RELEASE KEY, MORE:KEY
  25. SET TALK ON
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39. ET TALK ON
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.