home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBIIIBBS.ARC / XFERPGMS.PRG < prev    next >
Encoding:
Text File  |  1985-08-16  |  1.6 KB  |  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. ? 
  6. ? '1. Download the file using the Xmodem protocol. '
  7. ? '2. Unsqeeze the file using the USQ utility, or equivalent.'  
  8. ? '   Assume you now have a standard text file called XFERLIST. '
  9.  
  10. ACCEPT 'HAVE YOU DONE THE ABOVE STEPS(Y/N)' TO ANS
  11. IF ANS<>'Y'
  12.         RETURN
  13. ENDIF
  14. IF FILE('XFERLIST.DBF')
  15.    ACCEPT 'XFERLIST.DBF IS ALREADY ON DISK - DELETE.....(Y/N)' TO DEL
  16.    IF ANS='Y'
  17.          DELETE FILE XFERLIST.DBF
  18.    ELSE
  19.       RETURN
  20.    ENDIF
  21. ENDIF
  22. CLEAR
  23. ? 'Copying XFERSTRU.DBF TO XFERLIST.DBF'
  24. USE XFERSTRU
  25. COPY STRUCTURE TO XFERLIST.DBF
  26. ? 'Appending XFERLIST into XFERLIST.DBF'
  27. USE XFERLIST
  28. APPEND FROM XFERLIST. SDF
  29. ? '5.  Using the Modify Structure command in DbaseIII, delete the'
  30. ? '    fields starting with SPACEx.'
  31. WAIT
  32. MODIFY STRUCTURE 
  33. RETURN 
  34.  
  35. PROCEDURE BEGCOMM
  36. use xferlist
  37. ACCEPT 'Beg. String for DESC field-->' TO BC
  38. DISPLAY FOR DESC='&BC' FILENAME,DATE,DESC,SIZE OFF 
  39. use
  40. wait
  41. RETURN
  42.  
  43. PROCEDURE BEGFILE
  44. use xferlist
  45. ACCEPT 'Beg. String for FILENAME field-->' TO BF
  46. DISPLAY FOR FILENAME='&BF' FILENAME,DATE, DESC, SIZE OFF
  47. USE
  48. WAIT
  49. RETURN
  50.  
  51. PROCEDURE ANYCOMM
  52. USE XFERLIST
  53. ACCEPT 'Search anywhere in DESC field-->' TO AC
  54. DISPLAY FOR '&AC'$DESC FILENAME,DATE,DESC,SIZE OFF
  55. USE
  56. WAIT
  57. RETURN
  58.  
  59. PROCEDURE ANYFILE
  60. USE XFERLIST
  61. ACCEPT 'Search anywhere in FILENAME field-->' TO AF
  62. DISPLAY FOR '&AF'$FILENAME FILENAME,DATE,DESC,SIZE OFF
  63. USE
  64. WAIT
  65. RETURN
  66.  
  67.