6 68 3 Psuedocode Example

6.68.3 Psuedocode Example

Check if the record can be updated.

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