home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DB3.ARC / BIG.PRG < prev    next >
Encoding:
Text File  |  1984-10-25  |  1.6 KB  |  55 lines
  1. **********************  Big COMMAND FILE ***************************
  2. *
  3. * This file starts with the records from Names.dbf, then builds itself up
  4. * to 100 records (Last_num).  It copies the records to Big.dbf, then appends 
  5. * records from Names.dbf, as needed.  Experiment with the value of Last_num
  6. * to see how this works.
  7. *
  8. Last_num = 100
  9. *
  10. * You can include comments in a command file by using an asterisk followed
  11. * by a space, then your comments, just like these lines.
  12. *
  13. USE Names
  14. SET SAFETY OFF
  15. *
  16. * First GO BOTTOM to determine the size of Names.dbf.  (This is the size
  17. * of the record set to be APPENDed FROM).  Compute the number of entire 
  18. * Names.dbf (loops) to be APPENDed.  Compute:  Whole sets (loops) = 
  19. * Last_num / size of Names.dbf
  20. *
  21. GO BOTTOM
  22. loops = int(Last_num/RECNO())
  23. *
  24. * Now compute the number of single records needed (remainder) to equal
  25. * Last_num.  Compute: Additional records (remainder) = Last_num - (loops times
  26. * the size of Names.dbf
  27. *
  28. remainder = Last_num - (loops * RECNO())
  29. *
  30. * First create Big.dbf with the extra single records needed
  31. *
  32. COPY TO Big all for RECNO() <= remainder
  33. *
  34. * Now APPEND in loops number of Names.dbf, decrementing loops each time
  35. *
  36. USE Big
  37. DO WHILE loops > 0
  38.    APPEND FROM Names
  39.    loops = loops - 1
  40. ENDDO
  41. * 
  42. * After the work is done, display the structure of Big.dbf
  43. *
  44. CLEAR
  45. SET TALK OFF
  46. DISPLAY STRUCTURE
  47. CLEAR ALL
  48. SET TALK ON
  49. SET SAFETY ON
  50. *
  51. ? 'Due to space limitations on the disk, the number of records ì
  52. in'
  53. ? 'in the file Big.Dbf has been reduced from 250 to 100 records.'
  54. RETURN
  55.