6.17.3 Psuedocode Example

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