> * Free Table - Update CursorSource property
> lcCursorSource = toDataEnvironment.&lcObjectName..CursorSource
> lcTableName = SUBSTR(lcCursorSource, RAT("\", lcCursorSource)+1)
> toDataEnvironment.&lcObjectName..CursorSource = ;
> lcDataDir + lcTableName
> ENDIF
> ENDIF
>ENDFOR


Hi,

Sorry it has taken me such al long time to reply.
I had some urgent busines to take care off.

Next i am loking to your tip, will surely try it.

Thanks already, will give you a sign.


Regards, Marc