strValue = ""
iValue  = 0
lFlags = 0
lDataLen = 0
 
LceGetFieldDataLength(iSession, "EMPNO", lDataLen)
/ Allocate buffer for field value /
LceSetFieldValue(iSession, "EMPNO", szBuffer)