I'm having trouble getting the NewFieldValue to evaluate to the correct character value. Can someone give me an example of what I need to do in one of the CASE conditions?

FieldValue = {^2008/01/01}

DO CASE
	CASE FormatFieldValue = 'CCYYMMDD' && Should be "20080101"
		NewFieldValue = EVALUATE("ALLTRIM(TRANSFORM(DTOS(FieldValue), '@R " + REPLICATE('!',FieldLength) + "'))")
	CASE FormatFieldValue = 'MMDDCCYY' && Should be "01012008"
		NewFieldValue = EVALUATE("ALLTRIM(TRANSFORM(DTOS(FieldValue), '@R " + REPLICATE('!',FieldLength) + "'))")
	OTHERWISE && Leave it alone other than converting to text
		NewFieldValue = EVALUATE("ALLTRIM(TRANSFORM(DTOS(FieldValue), '@R " + REPLICATE('!',FieldLength) + "'))")
ENDCASE