How about something like

FUNCTION convert_date
LPARAMETERS FieldValue,FormatFieldValue
lcSetDate = SET("DATE")
DO CASE
  CASE FormatFieldValue = 'CCYYMMDD' && Should be "20080101"
       lcReturnValue = DTOS(FieldValue)  
  CASE FormatFieldValue = 'MMDDCCYY' && Should be "01012008"
      SET DATE AMERICAN
      lcReturnValue = CHRTRAN(TRANSFORM(fieldvalue),"/","")
  OTHERWISE && Leave it alone other than converting to text
      lcReturnValue = DTOS(FieldValue)
ENDCASE
SET DATE &lcSetDate
RETURN lcReturnValue

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