6 15 3 Psuedocode Example

6.15.3 Psuedocode Example

strName = "PSLMST"

strKey  = "EMPNO"

strList  = "SURNAME, GIVENAME"

strLastName = ""

strFirstName = ""

 

IF NOT LceSetFieldValue(iSession, strKey , "12345")

         /* return error */

ENDIF

IF  LceFetch(iSession, strList, strName, strKey) 

         CALL LceGetFieldValueX(iSession, "SURNAME", strLastName, lFlags)

         CALL LceGetFieldValueX(iSession, "GIVENAME",

          StrFirstName, lFlags)

ELSE

         /* error occurred */

ENDIF