>I was trying to hack what you made into a function, but I can't seem to get rid of the macro expansion. What do you think?
If I understand your code correctly, you can use eval() instead, in this case.
Hilmar.
>
>
> cDBF=DBF(cAlias)
> Select 0
> cName = "A"+Sys(3)
> Use (cDBF) Alias (cName) Again
> Locate for .f.
> cFld1=Fields(1)
> Scatter Fields((cFld1)) Memvar
> cValue = &cFld1
> Blank Fields(cFld1)
> Replace (cFld1) with (cValue)
> Use
> =Rlock()
> UnLock
>
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)
