strSys = "SYSTEM1"
iSession = LceGetSessionId()
IF NOT LceUseSystem(iSession, strSys)
/* return error */
ENDIF