Dim iValue As Integer
     iRet = LceGetSystemAttribute (iSession LCE_SYS_CHARSET_TYPE, iValue)