For x = 1 to FCount()
   IF TYPE(FIELD(x)) = 'C' or TYPE(FIELD(x)) = 'M'
      REPLACE ALL (FIELD(x)) WITH UPPER(EVALUATE(FIELD(x)))
   ENDIF
ENDFOR

Alan

>Is their a quick way to change all the lowercase text in a table to uppercase in one swoop easy way?
>
>Thanks
>Nick Patel