Problem : open a URL within lotus script
I am attempting to open a URL form within a lotus script pop up window from within a navigator page.
I have the lotus script structure set, just need the urlopen command format for use within lotus script.
Here is the current code:
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim rc As Integer
Dim Tranlink As Variant
Dim tempList(11) As String
tempList(0) = “DB2 SQL Error Codes v6”
tempList(1) = “DB2 v6 Messages and Codes”
templist(2) = “DB2 SQL Error Codes v6”
templist(3) = “DB2 SQL Wait Values v6”
templist(4) = “DB2 SQL Error Codes v7”
templist(5) = “DB2 v7 Messages and Codes”
templist(6) = “DB2 SQL Error Codes v7”
templist(7) = “DB2 Wait Values v7”
templist(8) = “MVS Abend Codes”
templist(9) = “File Status Keys plus VSAM Extended File Status Keys”
templist(10) = “IBM Bookmgr Bookshelf Manuals on VSAM”
templist(11) = “Just Enough SQL/QMF/SPUFI”
Tranlink = workspace.Prompt( PROMPT_OKCANCELLIST,”Lookups”, “Please Select a Reference Lookup from the list below or cancel “, “”, tempList )
If Tranlink = “DB2 SQL Error Codes v6” Then
@URLOPEN(“http://whatever“)
If Tranlink = “etc.” Then
@OpenURL …………….
End if
end if
end sub
Solution: open a URL within lotus script
here my version:
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim rc As Integer
Dim Tranlink As Variant
Dim urls List As String
Dim tempList() As String
Dim i As Integer
urls(“DB2 SQL Error Codes v6”) = “http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dsnmc0g2/2.1.6”
urls(“DB2 v6 Messages and Codes”) = “http://publib.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/dsnmc0g3/CCONTENTS”
urls(“DB2 SQL Wait Values v6”) = “http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dsnmc0g2/APPENDIX1.3.1”
urls(“DB2 SQL Error Codes v7”) = “http://publib.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/DSNMCH11/2.1.6?SHELF=dsnshha2&DT=20010718150520”
urls(“DB2 v7 Messages and Codes”) = “http://publib.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/DSNMCH11/CCONTENTS?SHELF=dsnshha2&DN=GC26-9940-01&DT=20010718150520”
urls(“DB2 Wait Values v7”) = “http://publib.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/DSNMCH11/APPENDIX1.3.1?SHELF=dsnshha2&DT=20010718150520”
urls(“MVS Abend Codes”) = “http://www.touniteamerica.com/programming/abend-codes.html”
urls(“File Status Keys plus VSAM Extended File Status Keys”) = “http://www.simotime.com/vsmfsk01.html”
urls(“IBM Bookmgr Bookshelf Manuals on VSAM”) = “http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/FINDBOOK?filter=vsam”
urls(“Just Enough SQL/QMF/SPUFI”) = “http://www.touniteamerica.com/doc/jeqmfsql.doc”
i = 0
Forall url In urls
i = i + 1
Redim Preserve tempList(i)
tempList(i – 1) = Listtag(url)
End Forall
Tranlink = workspace.Prompt( PROMPT_OKCANCELLIST,”Lookups”, “Please Select a Reference Lookup from the list below or cancel “, “”, tempList )
If (Tranlink <> “”) Then Call workspace.URLOpen(urls(Tranlink))
End Sub
