strValue = spaces(FIELD_DATA_SIZE + 1)
     iValue  = 0
     lFlags = 0
     IF LceGetDefaultValueX(iSession, "EMPNO", strValue, lFlags)
         IF NOT lFlags = 1
              iValue = ConvertStringToInteger (strValue)
         ENDIF
     ELSE
              / return error /
     ENDIF