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

>
>The error handling here is missing.


So ?