** COMMAND FILE TO BUILD COMPLETELY NEW INDEXES FOR THE GENEOLOGICAL DATA BASE **
*										*	
*			NEWINDEX.CMD	version 1.0
*********************************************************************************

USE PERSONS
ERASE
? "*** BE PATIENT THIS TAKES A WHILE ***"
PACK
?
? "BUILDING REF:NO INDEX"
INDEX ON REF:NO TO REF
? "                    COMPLETE."
?
? "BUILDING FATHER INDEX"
INDEX ON FATHER:REF+STR(BIRTH:DATE,8) TO FATHER
? "                    COMPLETE."
?
? "BUILDING MOTHER INDEX"
INDEX ON MOTHER:REF+STR(BIRTH:DATE,8) TO MOTHER
? "                    COMPLETE."
?
? "BUILDING NAME INDEX"
INDEX ON !(LAST:NAME+FIRST:NAME) TO NAME
? "                    COMPLETE."
?
? "CLEANING UP STORY FILE"
USE STORIES
DELETE ALL FOR REF:CODE = "    "
PACK
? "BUILDING STORY FILE INDEX"
INDEX ON REF:CODE TO STORYREF
? "                    COMPLETE."
?
? "ALL INDEXES REBUILT"
USE PERSONS
SET INDEX TO REF,FATHER,MOTHER,NAME

** END OF PROGRAM **