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