Ahhh.... That "SCATTER NAME" is the key. Very cool.

What version of VFP did that come with?

I quit using scatter long ago, so I never even knew that was there.

Thanks for this great insight!



>

>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
>

>
>
>
>Sure that is a VERY rough class but that is just an idea you should put Error handling, check for reliable parameters etc.