srvgudba_0135

[ |../../index.htm#lansa/srvgudba_0135.htm]
You are here:

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
 
[ |../../index.htm#lansa/srvgudba_0135.htm]