Page History
Check if the record can be updated.strList =
strList = "SURNAME,
...
SALARY"
...
strName = "PSLMST"
strKey =
...
"EMPNO"
...
IF NOT LceSetFieldValue(iSession,
...
strKey ,
...
"12345")
/ return error /
ENDIF
...
IF NOT LceSetFieldValue(iSession,
...
"SALARY",
...
"25000")
/ return error /
ENDIF
...
IF NOT LceSetFieldValue(iSession,
...
"SURNAME",
...
"Buckley")
/ return error /
ENDIF
...
IF LceUpdate(iSession,
...
strList,
...
strName,
...
strKey,
...
TRUE)
/ update of the record can be performed /
ELSE
/ cannot update the record /
/ display error messages /
ENDIF