home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBIIIBBS.ARC / XFERPGMS.PRG < prev    next >
Text File  |  1985-08-16  |  2KB  |  67 lines

  1. *      XFERPGMS-TRANSFER AND USE XFERDIR INTO DBASEIII 
  2. PROCEDURE APPXFER
  3. ? '  This is a procedure to transfer, and search the database'
  4. ? '  for gene plantz bbs file - XFERLIST.' 
  5. ? '1. Download the file using the Xmodem protocol. '
  6. ? '2. Unsqeeze the file using the USQ utility, or equivalent.'  
  7. ? '   Assume you now have a standard text file called XFERLIST. '
  8.  
  9. ACCEPT 'HAVE YOU DONE THE ABOVE STEPS(Y/N)' TO ANS
  10. IF ANS<>'Y'
  11.         RETURN
  12. ENDIF
  13. IF FILE('XFERLIST.DBF')
  14.    ACCEPT 'XFERLIST.DBF IS ALREADY ON DISK - DELETE.....(Y/N)' TO DEL
  15.    IF ANS='Y'
  16.          DELETE FILE XFERLIST.DBF
  17.    ELSE
  18.       RETURN
  19.    ENDIF
  20. ENDIF
  21. CLEAR
  22. ? 'Copying XFERSTRU.DBF TO XFERLIST.DBF'
  23. USE XFERSTRU
  24. COPY STRUCTURE TO XFERLIST.DBF
  25. ? 'Appending XFERLIST into XFERLIST.DBF'
  26. USE XFERLIST
  27. APPEND FROM XFERLIST. SDF
  28. ? '5.  Using the Modify Structure command in DbaseIII, delete the'
  29. ? '    fields starting with SPACEx.'
  30. WAIT
  31. MODIFY STRUCTURE 
  32. RETURN 
  33.  
  34. PROCEDURE BEGCOMM
  35. use xferlist
  36. ACCEPT 'Beg. String for DESC field-->' TO BC
  37. DISPLAY FOR DESC='&BC' FILENAME,DATE,DESC,SIZE OFF 
  38. use
  39. wait
  40. RETURN
  41.  
  42. PROCEDURE BEGFILE
  43. use xferlist
  44. ACCEPT 'Beg. String for FILENAME field-->' TO BF
  45. DISPLAY FOR FILENAME='&BF' FILENAME,DATE, DESC, SIZE OFF
  46. USE
  47. WAIT
  48. RETURN
  49.  
  50. PROCEDURE ANYCOMM
  51. USE XFERLIST
  52. ACCEPT 'Search anywhere in DESC field-->' TO AC
  53. DISPLAY FOR '&AC'$DESC FILENAME,DATE,DESC,SIZE OFF
  54. USE
  55. WAIT
  56. RETURN
  57.  
  58. PROCEDURE ANYFILE
  59. USE XFERLIST
  60. ACCEPT 'Search anywhere in FILENAME field-->' TO AF
  61. DISPLAY FOR '&AF'$FILENAME FILENAME,DATE,DESC,SIZE OFF
  62. USE
  63. WAIT
  64. RETURN
  65.  
  66.