home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / moss.zip / REPORT.PRG < prev    next >
Text File  |  1986-11-09  |  873b  |  47 lines
  1. ? "current database = "+dbf()
  2. set talk off
  3. public donn
  4. clear
  5. ?" Select records for processing....  This program will move the selected "
  6. ?"  records to the file SELECT for later use.  Would you like to:"
  7. ?
  8. ?"1. Select individual records"
  9. ?"2. Select all records that match a certain condition"
  10. ?"3. Select ALL records"
  11. wait to c
  12. if c="3"
  13.  filt="all "
  14.  set filter to
  15. endif
  16. if c="1"
  17.  
  18. ?" Eliminate old selection?"
  19. WAIT TO YN
  20. IF UPPER(YN)="Y"
  21. replace mark with .f. FOR MARK
  22. endif
  23. donn=0
  24. do while donn=0
  25.  do find
  26.  if donn=0
  27.  replace mark with .t. 
  28.   endif
  29. FILT="SELECTED "
  30. COND="MARK"
  31. if donn=1
  32.  exit
  33. endif
  34.  enddo
  35. endif
  36. clear
  37. if c="2"
  38. do search
  39. endif 
  40. set filter to &cond
  41. goto top
  42. ?" These are the records you have selected:  "
  43. ?"   Hit control End when finished reviewing)."  
  44. browse FREEZE MARK noappend
  45. set talk on 
  46. return
  47.