home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / dbgen.lbr / NEWINDEX.CZD / NEWINDEX.CMD
Encoding:
Text File  |  1993-10-26  |  1.0 KB  |  39 lines
  1. ** COMMAND FILE TO BUILD COMPLETELY NEW INDEXES FOR THE GENEOLOGICAL DATA BASE **
  2. *                                        *    
  3. *            NEWINDEX.CMD    version 1.0
  4. *********************************************************************************
  5.  
  6. USE PERSONS
  7. ERASE
  8. ? "*** BE PATIENT THIS TAKES A WHILE ***"
  9. PACK
  10. ?
  11. ? "BUILDING REF:NO INDEX"
  12. INDEX ON REF:NO TO REF
  13. ? "                    COMPLETE."
  14. ?
  15. ? "BUILDING FATHER INDEX"
  16. INDEX ON FATHER:REF+STR(BIRTH:DATE,8) TO FATHER
  17. ? "                    COMPLETE."
  18. ?
  19. ? "BUILDING MOTHER INDEX"
  20. INDEX ON MOTHER:REF+STR(BIRTH:DATE,8) TO MOTHER
  21. ? "                    COMPLETE."
  22. ?
  23. ? "BUILDING NAME INDEX"
  24. INDEX ON !(LAST:NAME+FIRST:NAME) TO NAME
  25. ? "                    COMPLETE."
  26. ?
  27. ? "CLEANING UP STORY FILE"
  28. USE STORIES
  29. DELETE ALL FOR REF:CODE = "    "
  30. PACK
  31. ? "BUILDING STORY FILE INDEX"
  32. INDEX ON REF:CODE TO STORYREF
  33. ? "                    COMPLETE."
  34. ?
  35. ? "ALL INDEXES REBUILT"
  36. USE PERSONS
  37. SET INDEX TO REF,FATHER,MOTHER,NAME
  38.  
  39. ** END OF PROGRAM **