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