Re: no book manager files for db2 v10 so here is a lookat macro
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/V1R12msgid=;
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/V1R12msgid=+rcx)
End Sub
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: no book manager files for db2 v10 so here is a lookat macro
That is a pretty nifty idea--I like it, simple and to the point. Too bad that the result of the query is rather variable and unstructured. It would be nice if IBM would maintain a central database of messages and descriptions that would be easily queried instead of this we'll hopefully find you manual page someplace. Of course that's QuickRef's added value: I put my cursor on a message, hit a PF key and get the message description. Without leaving ISPF. Of course whether that extra speed and convenience can be cost-justified is another question... Scott On Wed, 8 Aug 2012 15:42:35 -0500, don isenstadt don.isenst...@gmail.com wrote: Hello, We have used the bookmanager function with sdsf for years... but alas with version 10 of db2 no more book manager. Here is my attempt at a macro for the vista3270 emulator which calls lookat if you highlight the text and press the macro button .. I imagine it could be recoded for reflection, or any other emulator with macro functions. I would be interested if there are web functions for other 3rd party software .. ie ca? that could be added .. just a thought. I've had vista for at least 10 years and have never used the macro function until now! I was amazed at how powerful it is .. and all for $30! so here is my contribution .. * * This Macro calls IBM's LookAt * * this is a vista 3270 macro * *debug(startrow) *debug(startcol) *debug(endrow) *debug(endcol) *debug(selectboxactive) if selectboxactive = 0 msgx = EditBox(Enter the message id,error message,10); else lng = endcol - startcol + 1 msgx = screen(startrow,startcol,lng) *debug(msgx) endif WinExec(C:\Program Files\mozilla firefox\firefox.exe http://publibz.boulder.ibm.com/cgi-bin/zoslib/lookat?required=release=ZOS/V1R12msgid=+msgx); -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
no book manager files for db2 v10 so here is a lookat macro
Hello, We have used the bookmanager function with sdsf for years... but alas with version 10 of db2 no more book manager. Here is my attempt at a macro for the vista3270 emulator which calls lookat if you highlight the text and press the macro button .. I imagine it could be recoded for reflection, or any other emulator with macro functions. I would be interested if there are web functions for other 3rd party software .. ie ca? that could be added .. just a thought. I've had vista for at least 10 years and have never used the macro function until now! I was amazed at how powerful it is .. and all for $30! so here is my contribution .. * * This Macro calls IBM's LookAt * * this is a vista 3270 macro * *debug(startrow) *debug(startcol) *debug(endrow) *debug(endcol) *debug(selectboxactive) if selectboxactive = 0 msgx = EditBox(Enter the message id,error message,10); else lng = endcol - startcol + 1 msgx = screen(startrow,startcol,lng) *debug(msgx) endif WinExec(C:\Program Files\mozilla firefox\firefox.exe http://publibz.boulder.ibm.com/cgi-bin/zoslib/lookat?required=release=ZOS/V1R12msgid=+msgx); -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
