sorry the function name misspelled(typographical error)

I am writing a function which takes any data type as the parameter.

Now in that function I have to check what is that parameter data type, do some manipulation and return the data in the same data type as passed.


eg :

Funct typeofvar
param myvar

if type(str(myvar)) = 'N' then
? 'numeric'
return type(myvar)
else
if type(mvar) ='C' then
? 'charecter'
return type(myvar)
endif
endif

return

**************
**Main Prog

=typeofvar('12')
=typeofvar(12)
******* end of prog

the main problem lies with type of data passed