Hi, I use the following code to connect to quick 3270 macro and it also connect to the screen. But when I run the macro for the first time it works, but does not work when I run the same macro for second time. If I restart the mainframe then the macro runs. Below is the code.
Sub getdata() Set objQuick3270 = CreateObject("Quick3270.Application") objQuick3270.Visibility = True Set objSession = objQuick3270.ActiveSession Set objScreen = objSession.Screen HostSettleTime = 3000 ' milliseconds objSession.Server_Name = "Server Name" 'Server that u are using objSession.Model_Name = "IBM-7248-2-A" objSession.Connect