home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / sri314_b.zip / DEMOPRGS.ZIP / APPFROM.PRG next >
Text File  |  1990-09-30  |  1KB  |  42 lines
  1. *** APPFROM.PRG **
  2. **  (C) Copyright 1990, Sub Rosa Publishing Inc.
  3. **  A demonstration program provided to SR-Info and VP-Info users.
  4. **  This program may be copied freely. If it is used in commercial code,
  5. **  please credit the source, Sub Rosa Publishing Inc.
  6. **
  7. **  APPFROM demonstrates the use of the APPEND FROM command.
  8. **  Records are moved from the file OPENTRAN after the return date is
  9. **  filled in.
  10. **  APPFROM is compatible with all current versions of SR-Info and VP-Info.
  11. **
  12. ERASE
  13. CLEAR
  14. SET TALK OFF
  15. USE#2 mastran
  16. SELECT 2
  17. APPEND FROM opentran FOR val(return_day)>0
  18. USE#1 opentran
  19. SELECT 1
  20. DELETE ALL FOR val(return_day)>0
  21. PACK ; make deletions permanent
  22. ACCEPT "Do you want to print or display output? (P/D): " TO mprint
  23. IF UPPER(mprint)='P'
  24.    SET PRINT ON
  25. ENDIF
  26. ?
  27. ? "These are the records now included in mastran.dbf"
  28. ?
  29. LIST#2
  30. WAIT
  31. ?
  32. ?
  33. ? "These are the records that remain in opentran.dbf"
  34. ?
  35. LIST#1
  36. ?
  37. IF UPPER(mprint)="P"
  38.    EJECT
  39.    SET PRINT OFF
  40. ENDIF
  41. *** end of APPFROM.PRG ***
  42.