close all open database gdtest set database to GDTest set procedure to program() oMeta = NewObject("DBCXMgr", "DBCXMgr.VCX") oMeta.SetDataBase(dbc()) llRetval = oMeta.oSDTMgr.Reindex('', .f., .t.) close table all sys(3054,1) select ctest from test where mkup() = 'A' into cursor curtest sys(3054,0) close tables all release procedure program()