>>do case >>case AT('/',x) > 0 >> *Do date processing >>case type(x) = 'N' >> *Do Numeric processing >>otherwise >> *Do String processing >>Endcase >>
case type(x) = 'N' and empty(chrtran(x,'1234567890.','')) * Do numeric process