Я для данной ситуации использую справочник индексов, получаемый программынм способом:

CREATE TABLE stru\IndStru.SQL (tb c(8), nm c(10), vi c(254), vf c(254))

DIMENSION NmTbl(кол-во таблиц)
NmTbl(1)=[таблица1]
......

FOR RollTbl=1 TO ALEN(NmTbl,1)
USE &NmTbl(RollTbl) IN 0
CntIndexes=ATAGINFO(IND)
IF CntIndexes>0
=ASORT(IND,1)
FOR RollInd=1 TO CntIndexes
INSERT INTO stru\IndStru.sql (tb, nm, vi, vf) VALUES ;
(NmTbl(RollTbl), IND(RollInd,1), IND(RollInd,3), IND(RollInd,4))
ENDFOR
ENDIF
USE
ENDFOR

а затем при переиндексации использую этот справочник.

USE indstru.sql IN 0 ALIAS ListTag && открываем файл структурных индексов
SELECT ListTag

GO TOP
cntdbf=RECCOUNT([ListTag])

LastAlias=[] && последний открывавшийся алиас
SCAN
FraseInd=[INDEX ON ]+ALLTRIM(vi)+[ TAG ]+ALLTRIM(nm)+;
IIF(!EMPTY(vf),[ FOR ]+ALLTRIM(vf),[]) &&выражение индекса

OpenTable=ALLTRIM(tb) && имя открываемой таблицы
USE (OpenTable) IN 0 EXCLUSIVE && открываем монопольно
SELECT (OpenTable)
IF !LastAlias==OpenTable &&если алиас последней открывавшейся таблицы не равен текущему, то
LastAlias=OpenTable
DELETE TAG ALL && удаляем все тэги
ENDIF
&FraseInd && создаем тэг
USE
SELECT ListTag
ENDSCAN
CLOSE TABLES ALL

Я не использую команду REINDEX, т.к. она ведет к "опуханию" индексного файла. Естественно у этого метода есть недостаток, так как справочник индексов должен соответствовать текущей версии БД.

А что непонятного, индексный файл после каждого reindex увеличивается в размере.
то есть берем таблицу со структурным индексом, смотрим размер CDX. Открываем, даем команду REINDEX, закрываем, смотрим размер CDX - он увеличился.

На всякий случай проэкспериментировал (а то червяк сомнения глодать начал :-)), и убедился, что так и есть - увеличиться индекс не увеличился после REINDEX, но и не уменьшился (хотя точно помню, что при реиндексации размер увеличивался, могу ошибаться, но может это связано с наличием FOR-условия в индексе, в данной ситуации таких тэгов не было). Взял табличку родную для FPD 2.5, кол-во записей 2298114, исходный размер CDX = 76 519 936, после REINDEX размер не изменился, поле удаления структурного индекса по DELETE TAG ALL создал индексы снова. CDX получился размером 62 252 032. Т.е. разница составила 14 267 904.

да вроде DELETE TAG ALL тоже уничтожает CDX, а после удаления структурного индекса по DLETE FILE или ERASE при следующем открытии DBF-файла будет выдано сообщение об отсутствии структурного индекса. Мелочь :-), но если таких файлов пригорошня, то тогда прийдется писать обработку такой ситуации...

Hi Igor Korolyov.
Насчет битого индекса не спорю, прийдется удалять. Но и в этом случае справочник индексов вполне нормальный выход - всегда можно добавить необхадимые поля в него и для Collate и для чего угодно. Никто не мешает опять же вместо DELETE TAG ALL использовать удаление индексного файла (что я уже и проделал в своей процедуре :-)). На сообщение об ошибке об отсутствии структурного индекса можно просто выдать RETRY (по коду ошибки). В общем поле деятельности большое :-). Я не большой любитель эталонных таблиц, поэтому сделал это на уровне справочника, на уровне справочника же я отслеживаю соответствие структур таблиц, эти справочники генерю после компиляции новой версии EXE.
А вообще большое спасибо за то, что подтолкнули к доработке процедуры восстановления индексов. До этого момента вроде как не подводила меня, но теперь думаю будет надежнее (хочется надеяться :-)).