thanks very much to Ned Gerhart for this reflection 2011 r2 macro interface to lookat .. it will work with 2008 but works much better with 2011 r2..
now the rd2x macro for 2011r2 Sub LookatZOSmsg() Dim msg As String Dim sr As ScreenRegion Set sr = ThisIbmScreen.Selection If sr.StartColumn = 0 Or sr.StartRow = 0 Then 'no selection - prompt for msg msg = InputBox("Enter the message id:") If msg = "" Then Exit Sub 'canceled inputbox Else 'get selected text from screen msg = ThisIbmScreen.GetText(sr.StartRow, sr.StartColumn, (sr.EndColumn - sr.StartColumn) + 1) End If 'MsgBox msg 'Create a new WebControl object... Dim wc As WebControl 'this GUID value is found in the .net help for WebControl Set wc = Application.CreateControl2("{F1F058B1-0472-4095-A782-3D7333813AD0}") 'Cause the WebControl to be visible in a View in the Reflection Workspace frame... Dim wv As View Set wv = thisFrame.CreateView(wc) 'set url for the WebControl... wc.Navigate1 "http://publibz.boulder.ibm.com/cgi-bin/zoslib/lookat?required=&release=ZOS/V1R12&msgid=" & Trim(msg) 'Saving the WebControl document like this and setting the title text avoids having "untitled" 'appear on the tab text for the view...If you have windows7, and the Reflection documents 'are saved in the default location, this will work... wc.SaveAs Environ("USERPROFILE") & "\Documents\Attachmate\Reflection\theURL.urlx" wv.titleText = "LookAt for z/OS V1R12.0" End Sub I did this .ebm one for Extra!Xtreme .. Sub Main Dim Sys As Object, Sess As Object, MyScreen As Object, MyArea As Object, rcx As String Set Sys = CreateObject("EXTRA.System") ' Assumes an open session Set Sess = Sys.ActiveSession Set MyScreen = Sess.Screen ' This will return the coordinates of the area selected in the ' current session. Note, that if nothing is selected the area ' will be empty, i.e., its coordinates will all be -1. Set MyArea = MyScreen.Selection MyString$ = MyString$ + "Left = " + Str$(MyArea.Left) MyString$ = MyString$ + "; Right = " + Str$(MyArea.Right) MyString$ = MyString$ + "; Top = " + Str$(MyArea.Top) MyString$ = MyString$ + "; Bottom = " + Str$(MyArea.Bottom) ' MsgBox MyArea rcx$ = Mid$ ( MyArea, 1, 40 ) ' MsgBox rcx shell("\program files\Internet Explorer\iexplore.exe publibz.boulder.ibm.com/cgi-bin/zoslib/lookat?required=&release=ZOS/V1R12&msgid="+rcx) End Sub ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN