? Type_IsNumeric(m.myVar) ? Type_IsChar(m.myVar) #define T_NUMERIC_LIST T_NUMERIC, T_DOUBLE, 'I', T_CURRENCY *_______________________________________________________________________________ function Type_IsNumeric(n) return inlist(vartype(m.n), T_NUMERIC_LIST) endfunc *_______________________________________________________________________________ function Type_IsChar(s) return inlist(vartype(m.s), T_CHARACTER, T_MEMO, 'V', 'Q', 'W') endfunc *_______________________________________________________________________________