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