PARAMETERS pcAlias, pcPrgName SET TALK OFF *-* Indexes cPrgName = IIF(EMPTY(pcPrgName), "zRecrInd", pcPrgName) cPrgName = IIF("." $ cPrgName , cPrgName , cPrgName + ".prg") SELECT (pcAlias) * Process all indexes SET TEXT ON SET TEXT TO (cPrgName) \SET TALK OFF \* DBF=<< DBF() >> \SET TALK NOWIND \SET TALK ON \ \? "Indexing:", DBF() \? FOR i = 1 TO TAGCOUNT() m.Tag = TAG(I) m.Key = KEY(i) m.For = For(i) \? "Index << i >> << m.tag >> " + TIME() IF EMPTY(m.For) \INDEX ON << m.Key >> TAG << m.Tag >> ELSE \INDEX ON << m.Key >> TAG << m.Tag >> FOR << m.For >> ENDIF ENDFOR SET TEXT TO SET TEXT OFF RETURN>Hi everybody,