How can I check the status of the Report Application Server after a restart?

[former_member184995]

Customers who recycle their RAS servers periodically may notice that sometimes even though the RAS server is up and running per the CMC or the CCM that it will refuse a crystal reports job like it would if it were down.

There may be instances where the RAS server isn't quite ready to begin taking on report jobs and customers want to know this prior to sending actual jobs to the server from their custom app.

The following code checks the RAS server to verify that it is enabled, running, and ready to take on report jobs.

Check RAS Server
Imports CrystalDecisions.EnterpriseImports CrystalDecisions.Enterprise.DesktopImports CrystalDecisions.ReportAppServer.ClientDocPartial Class _Default    Inherits System.Web.UI.Page    'Crystal Enterprise variables    Dim boSessionmgr As New SessionMgr()    Dim boSession As EnterpriseSession    Dim boInfoStore As InfoStore    Dim boEnterpriseService As EnterpriseService    Dim userid As String = "Administrator"      'Enter a user name here    Dim password As String = ""                 'Enter a password here    Dim cms As String = "localhost"             'Enter the name of the CMS here    Dim auth As String = "secEnterprise"    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load        boSession = boSessionmgr.Logon(userid, password, cms, auth)        boEnterpriseService = boSession.GetService("", "InfoStore")        boInfoStore = New InfoStore(boEnterpriseService)        Dim RASServers As InfoObjects        Dim RASServer As InfoObject        'Query for RAS Servers        RASServers = boInfoStore.Query("select * from ci_systemobjects where si_kind = 'server' and SI_SERVER_KIND = 'rptappserver'")        'Loop through RAS servers        For Each RASServer In RASServers            Dim serverPlugin As Server            serverPlugin = New Server(RASServer.PluginInterface)            Dim RASDoc As ReportClientDocument            'Check to see if the RAS Server is enabled            If serverPlugin.Disabled = True Then                Response.Write("RAS Server " & RASServer.Title.ToString() & " is disabled.")                Continue For            End If            'Check to see if the RAS Server is enabled            If serverPlugin.ServerIsAlive = False Then                Response.Write("RAS Server " & RASServer.Title.ToString() & " has not started.")                Continue For            End If            'Check to see if the RAS Server is ready for jobs            Try                RASDoc = New ReportClientDocument                RASDoc.ReportAppServer = RASServer.Properties("SI_SERVER_NAME").Value.ToString()                RASDoc.[New]()                Response.Write("RAS Server " & RASServer.Title.ToString() & " is running and ready to process jobs!")                RASDoc.Close()            Catch ex As Exception                Response.Write("RAS Server is not available for new report jobs, please wait...")            End Try        Next    End SubEnd Class

I hope this helps and good luck with your projects!

Jason