>lcDBC=JUSTFNAME(lcDBC) >*- Create StoneField Object >oMeta = NEWOBJECT('DBCXMgr', 'DBCXMGR.VCX') >IF TYPE('oMeta') <> 'O' OR ISNULL(oMeta) > =MESSAGEBOX("Unable To Create Data Control Object"+CHR(13)+; > "Serious Error, Cannot Run",64,"CANNOT PROCEED") > RETURN .F. >ENDIF >oMeta.SetDatabase(lcDBC) >lcDBCText=lcDBC+'!ALL' >oMeta.oSDTmgr.lQuiet=.F. >oMeta.oSDTmgr.UPDATE(lcDBCText) >oMeta.oSDTmgr.REINDEX(lcDBCText) >>