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