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