EPI CICS Server Information

The EPI COM class provides the names and descriptions of CICS® servers configured in the Gateway initialization file.

An EPI object is created as in the previous examples, and a list of CICS server names and their descriptions is output to a listbox "List1":
        Sub EPIServers_Click()
            Dim I
            'Instantiate CICS EPI object
            Set EPI = New CclOEPI
            'List CICS server information
            For I = 1 To EPI.ServerCount
                List1.AddItem EPI.ServerName(I)
                List1.AddItem EPI.ServerDesc(I)
            Next