The ECI COM class provides the names and descriptions of CICS® servers configured in the Gateway initialization file.
The Connect COM class provides methods for querying the availability of a particular CICS server.
'Declare object variables
Dim ECI As CclOECI
Dim Connect As CclOConn
Dim Flow As CclOFlow
Sub ECIServers_Click()
Dim I as Integer
'Instantiate CICS ECI objects
Set ECI = New CclOECI
Set Connect = New CclOConn
Set Flow = New CclOFlow
'List CICS server information
For I = 1 To ECI.ServerCount
List1.AddItem ECI.ServerName(I)
List1.AddItem ECI.ServerDesc(I)
Next
End Sub
Connect.Details ECI.ServerName(1)
Connect.Status Flow
Text1.Text = Connect.ServerStatusText