strDataType = ""
iLength = 0
iDecimal = 0
 
IF NOT LceGetFieldType(iSession, "SURNAME", strDataType, iLength, iDecimal)
         / return error /
ENDIF