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