lcpack=cdir + files.filename
Use &lcpack Exclusive
Pack
Messagebox(Allt("&lcpack")+" file PACKed",64,"Maintenance Report",1)
FOR nCount = 1 TO 254
IF !EMPTY(TAG(nCount)) && Checks for tags in the index
mytag=TAG(ncount) && Display tag name
mykey=KEY(ncount) && Display index expression
*? mytag,mykey
SET ORDER TO &mytag
* SET ORDER TO &mytag TAG &mytag
*WAIT WINDOW "&mytag"+" alaný indexleniyor..." TIMEOUT 0.5
MESSAGEBOX(allt("&lcpack")+" files "+ALLTRIM("&mytag")+" fields INDEX ed again",64,"Maintenance Report",1)
Reindex
ELSE
EXIT && Exit the loop when no more tags are found
ENDIF
ENDFOR