Clipper/FiveWin - Reindexar varios archivos a la vez

Hola buenas,

He creado una pequeña rutina para regenerar todos los indices de un monton de tabla a la vez, pero no me acaba de funcionar, soy nuevo en clipper y no demasiado ducho en estas cosas... Ahi va el codigo:

***********************************************************
use listas.dbf alias Rel
index on NOMBRE to listas.ntx

Rel->(dbgotop())

do while Rel->(!Eof())

fnl:=Rel->Nombre
fna:=fnl+'.Dbc'
fnli:=Alltrim(fnl)+'.Ntx'
fnli1:=Alltrim(fnl)+'1.Ntx'
fnli2:=Alltrim(fnl)+'2.Ntx'
fnli3:=Alltrim(fnl)+'3.Ntx'
fnli4:=Alltrim(fnl)+'4.Ntx'

use &fna alias informe
INDEX ON Str(cod_pro,6) to &fnli
INDEX ON Nombre to &fnli1
INDEX ON str(cod_int,4)+Nombre to &fnli2
INDEX ON str(cod_int,4)+str(planta,3)+Nombre to &fnli3
INDEX ON str(cod_int,4)+str(habitacion,6) to &fnli4

Rel->(dbskip())

enddo
************************************************************

La tabla "listas.dbf" contiene todos los nombres de los dbf de los que quiero volver a crear los indices.

Me dice que no existe el alias Rel

¿Alguna idea?

Un saludo

usas clipper duro puro o fivewin?

Se nota que la de Gabriel no te llenó y ahora buscas la de Armando, jeje

El Duro, Te tengo vigilado

Me controlas con clipper duro puro o fivewin?
jajajaja

Hola
Debes agregar la clausula NEW en
use &fna alias informe new
y ademas antes del Rel->(dbskip())
dbCloseArea()
Suerte y saludos
Ricardo

Muchas gracias Ricardo, funciona perfecto :-))

Armando, utilizo clipper duro :-P

Mi idea ahora es prescindir de la tabla "listas.dbf" y utilizar la funcion adir() o DIRECTORY() para generar el tiempo real la lista de los archivos que quiero reindexar. Lo he probado todo pero no me funciona, ¿se os ocurre como hacerlo?

Un saludo y gracias