nyrtfleury14
Technical User
Hi all,
I have macros to pull up data on 4 screens that worked perfectly in Attachmate Extra and I am trying to get them to work in Reflection. The issue seems to be with the .edp extension changing to .rd3x. If I keep everything the same and change .edp to .rd3x then it gives me an error on the highlighted line. Any ideas? I have been running .edp sessions in Reflection, but will be forced to change to .rd3x next year.
Dim Sys As Object, Sess As Object, MyScreen As Object, Sess2 As Object, MyScreen2 As Object,Sess3 As Object, MyScreen3 As Object, Sess4 As Object, MyScreen4 As Object
Set Sys = CreateObject("EXTRA.System")
Set Sys2 = CreateObject("EXTRA.System")
Set Sys3 = CreateObject("EXTRA.System")
Set Sys4 = CreateObject("EXTRA.System")
Set sess = GetObject("C:\Users\Desktop\Session1.edp")
Set sess2 = GetObject("C:\Users\Desktop\Session2.edp")
Set sess3 = GetObject("C:\Users\Desktop\Session3.edp")
Set sess4 = GetObject("C:\Users\Desktop\Session4.edp")
[highlight #FCE94F]Set myscreen = Sess.Screen[/highlight]
Set myscreen2 = sess2.Screen
Set myscreen3 = sess3.Screen
Set myscreen4 = sess4.Screen
I have macros to pull up data on 4 screens that worked perfectly in Attachmate Extra and I am trying to get them to work in Reflection. The issue seems to be with the .edp extension changing to .rd3x. If I keep everything the same and change .edp to .rd3x then it gives me an error on the highlighted line. Any ideas? I have been running .edp sessions in Reflection, but will be forced to change to .rd3x next year.
Dim Sys As Object, Sess As Object, MyScreen As Object, Sess2 As Object, MyScreen2 As Object,Sess3 As Object, MyScreen3 As Object, Sess4 As Object, MyScreen4 As Object
Set Sys = CreateObject("EXTRA.System")
Set Sys2 = CreateObject("EXTRA.System")
Set Sys3 = CreateObject("EXTRA.System")
Set Sys4 = CreateObject("EXTRA.System")
Set sess = GetObject("C:\Users\Desktop\Session1.edp")
Set sess2 = GetObject("C:\Users\Desktop\Session2.edp")
Set sess3 = GetObject("C:\Users\Desktop\Session3.edp")
Set sess4 = GetObject("C:\Users\Desktop\Session4.edp")
[highlight #FCE94F]Set myscreen = Sess.Screen[/highlight]
Set myscreen2 = sess2.Screen
Set myscreen3 = sess3.Screen
Set myscreen4 = sess4.Screen