Page History
...
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