Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

      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