>>>Dmitry,
>>>
>>>Perhaps this function may be of help.
>>>
>>>Pass
>>>- nothing for current workarea
>>>- an alias name
>>>- a workarea
>>>
>>>
>>>UPDATE
>>>
>>>

>>>function	GetTableName(wa)
>>>	wa = evl( m.wa, select(0) )
>>>	
>>>	do case
>>>	case !used(m.wa)
>>>		return '???'
>>>		
>>>	case !empty(cursorgetprop('DataBase', m.wa))
>>>		return proper(cursorgetprop('SourceName', m.wa))
>>>	
>>>	otherwise
>>>		return Proper(juststem(dbf(m.wa)))
>>>	
>>>	endcase
>>>endfunc
>>>

>>
>>Thank you, Gregory.
>
>
>My pleasure.
>
>It returns the table name defined in the database - not the dbf() name
>Returns the stem of the dbf in case of a free table,
>
>If it isn't useful now - it may be in the future
>
>And, my, ahem, secretary informs you that you have to add error handling - gr+d

One more calling me a secretary and I will get seriously offended. You did update your original message - and you're so opposed to making changes in the message - in this case you changed the code.