FoxPro/Visual FoxPro - estudiante de informatica

hola a todos : desde ya le agradesco su ayuda en mi problema,soy estudiante de informatica y tengo como practico un sistema, pero mi mayor problema radica en que en el programa de mantenimiento de indicesno lo logra hacre correr ya que de anuncia las tablas como no exixtentes de aqui le mando las sentencias para ver si pueden lograr ayudarme, estoy trabajando con el fox 2.6 para windows chau y mucha suerte a todos y estoy a dispocision del que quiera un poco de ayuda

Saludos, estudiante instalmafuerte....
Te envio parte del programa que hice para dar mnto. a tablas, por favor estudialo y te dara mucha sustancia.
Solo quiero decirte que si el problema es que la tabla no existe te recomiendo que ocupes el SET PATH TO <Ruta de tablas> y el SYS(16,1). Ejemplo:

m.pdbfs=SUBSTR(UPPER(SYS(16,1)),1,RAT("\",UPPER(SYS(16,1))))+"Bases"

SET PATH TO &pdbfs.
USE cat_prod ALIAS prod IN 0
USE cat_sucu ALIAS sucu IN 0

* --o si lo prefieres puedes definir variables en tiempo de ejecucion:
#DEFINE Prod m.pdbfs+"\Cat_prod"
#DEFINE Sucu m.pdbfs+"\Cat_sucu"
USE prod
USE sucu

porque puede que estes corriendo tu sistema en un directorio donde no esten tus tablas y se encuantran localizadas y otro subdirectorio.

=Exibses()
.
.
.
.
*-- Resto de tu codigo

**********************
FUNCTION Exibses
**********************
PRIVATE m.Mssadi,m.Bsq,m.Etq
DIMENSION Inds(1,2)
Inds(1,1)=0
Inds(1,2)=""
m.Mssadi=""
m.Bsq=0
m.Etq=""
ON ERROR DO Problema.SPR WITH ERROR(),MESSAGE(),m.Mssadi
*
*-- Catalogo de productores
IF FILE(Prod+".DBF")
USE (Prod) SHARED
=Cargind()

m.Bsq=ASCAN(Inds,"ALLTRIM(RFC)")
m.Etq=IIF(m.Bsq#0,TAG(Inds(ASUBSCRIPT(Inds,m.Bsq,1),1)),"")
IF m.Bsq=0 OR (m.Bsq#0 AND m.Etq#"RFC")
m.Mssadi="Cat_prod.DBF KEY:ALLTRIM(Rfc) Etq:Rfc"
USE (Prod) EXCLUSIVE