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