6.78.3 Psuedocode Example

strSys = "SYSTEM1"

iSession = LceGetSessionId()

IF NOT LceUseSystem(iSession, strSys)

         /* return error */

ENDIF