home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug073.arc / GENELOGY.LBR / UNOTECPY.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  43 lines
  1. * UNOTECOPY.CMD to copy Wordstar NOTES.TXT file to dBASE NOTES.DBF file.
  2. @ 1,30
  3. @ 1,30 SAY xinv+"Up-date Notes file"+xnor
  4. @ 1,65 SAY "Date "+date()
  5. SELECT PRIMARY
  6. USE
  7. SELECT SECONDARY
  8. USE
  9. @ 7,20 SAY CHR(27)+'Y'
  10. SET DEFAULT TO b:
  11. DO WHILE .NOT. FILE('B:NOTES.TXT')
  12.    @ 7,15 SAY 'Put WS NOTES.TXT disk in Drive B, then press <RETURN>'
  13.    SET CONSOLE OFF
  14.    WAIT
  15.    SET CONSOLE ON
  16. ENDDO
  17. RESET B:
  18. SET DEFAULT TO A:
  19. @ 7,15
  20. @ 7,20 SAY "Please wait .... Updating file NOTES.DBF"
  21. DELETE FILE a:notes.dbf
  22. USE a:uoneline
  23. COPY TO a:notes.dbf
  24. USE a:notes
  25. SET CONSOLE OFF
  26. APPEND FROM b:notes.txt SDF
  27. SET CONSOLE ON
  28. SET DEFAULT TO B:
  29. @ 7,20
  30. @ 7,30 SAY "Up-date completed"
  31. DO WHILE .NOT. FILE('FAMILY.DBF')
  32.    @ 9,15 SAY 'Replace FAMILY DATA disk in Drive B, then press <RETURN>'
  33.    SET CONSOLE OFF
  34.    WAIT
  35.    SET CONSOLE ON
  36. ENDDO
  37. RESET B:
  38. SET DEFAULT TO A:
  39. SELECT PRIMARY
  40. USE b:family
  41. @ 7,20 SAY chr(27)+'Y'
  42. RETURN
  43.