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?

		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