>SET ASSERTS ON > >lcTable = GETFILE() >ASSERT .f. >oJob = CREATEOBJECT([TableInfo]) >oJob.TableName = JUSTSTEM(lcTable) >oJob.GetInfo([SomeValue],[TheOrder]) > > >DEFINE CLASS TableInfo AS Session > Fields = NULL > TableName = [] > > FUNCTION GetInfo(leSeekExpression, lcOrderName) > SELECT (this.TableName) > SEEK leSeekExpression IN (this.TableName) ORDER &lcOrderName > IF FOUND(this.TableName) > SCATTER NAME this.Fields > ELSE > this.Fields = NULL > ENDIF > ENDFUNC > > FUNCTION TableName_Assign(leNewValue) > IF NOT USED(leNewValue) > USE (leNewValue) IN 0 > ENDIF > this.TableName = m.leNewValue > ENDFUNC >ENDDEFINE >>