Если нужно лишь создать несколько индексов, а не изменять содержимое курсора, то я использую неструктурный составной индекс:

&& Где-то там в конструкторах.

PUBLIC gcPathTemp && Путь к временному каталогу.

DECLARE INTEGER GetLongPathName IN Win32API;
STRING @lpszShortPath, STRING @lpszLongPath, INTEGER cchBuffer
DECLARE INTEGER GetTempPath IN Win32API;
INTEGER nBufferLength, STRING @lpBuffer

LOCAL lcValue, lcValue2

lcValue = REPLICATE (' ', 255)
=GetTempPath (255, @lcValue)
lcValue = LEFT (lcValue, AT (CHR (0), lcValue) - 1)
lcValue2 = REPLICATE (' ', 255)
=GetLongPathName (@lcValue, @lcValue2, 255)
lcValue2 = LEFT (lcValue2, AT (CHR (0), lcValue2) - 1)

gcPathTemp = lcValue2

CLEAR DLLS

&& Работа с курсором.

PUBLIC gcКурсорAlias
gcКурсорAlias = СозданиеКурсораНаЧтение ()

PUBLIC gcIndexName && Имя НЕСТРУКТУРНОГО СОСТАВНОГО индекса.
gcIndexName = ADDBS (gcPathTemp) + SUBSTR (SYS (2015), 3, 10)

SELECT (gcКурсорAlias)
INDEX ON Exp1 TAG Tag1 OF gcIndexName + '.cdx'
INDEX ON Exp2 TAG Tag2 OF gcIndexName + '.cdx'
...
INDEX ON ExpN TAG TagN OF gcIndexName + '.cdx'

=ИспользованиеКурсора (gcКурсорAlias)

USE IN (gcКурсорAlias)
ERASE (gcIndexName + '.*')
RELEASE gcIndexName
RELEASE gcКурсорAlias

&& Где-то там в деструкторах.

RELEASE gcPathTemp