The TYPE() function will not return exact field type for some data types, integer, for example.

>cFieldInfo = fGetFieldTypeSize("mytable","myfield")
>cFieldType = left(cFieldInfo,1)
>cFieldSize = val(substr(cFieldInfo,2,len(cFieldInfo)-1))
>
>function fGetFieldTypeSize
>lparameters cTableName, cFieldName
>
>cReturnValue = .F.
>for nFieldNo = 1 to fcount(cTableName)
>....if lower(field(nFieldNo, cTableName)) = lower(cFieldName)
>........cReturnValue = type('cFieldName') + fsize(cFieldName, cTableName)
>........exit for
>....endif
>endfor
>
>return cReturnValue