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