I did this, but is there a better way?

CASE FormatFieldValue = 'MMDDCCYY'
	NewFieldValue = EVALUATE("ALLTRIM(TRANSFORM(DTOS(FieldValue), '@R " + REPLICATE('!',FieldLength) + "'))")
	NewFieldValue = SUBSTR(NewFieldValue,5,2) + SUBSTR(NewFieldValue,7,2) + SUBSTR(NewFieldValue,1,4)

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