Lotus web service consumer

I found in internet an example of a web service consumer in lotus environment (Planet Lotus or Wohill) and I wanted to write an other example.
I chose USA Weather web service from WebserviceX.NET.

1. Create a web service consumer, name it “USA Weather”, set the WSDL file to http://www.webservicex.net/WeatherForecast.asmx?WSDL
   The code in the web service consumer should be: 
   
   Visual Basic

   Option Public %INCLUDE "lsxsd.lss" Class WeatherData_n1 As XSD_ANYTYPE Public Day As XSD_STRING Public WeatherImage As XSD_STRING Public MaxTemperatureF As XSD_STRING Public MinTemperatureF As XSD_STRING Public MaxTemperatureC As XSD_STRING Public MinTemperatureC As XSD_STRING Sub NEW End Sub End Class Class ArrayOfWeatherData_n1 As XSD_ANYTYPE Public WeatherData() As WeatherData_n1 Sub NEW End Sub End Class Class WeatherForecasts_n1 As XSD_ANYTYPE Public Latitude As Single Public Longitude As Single Public AllocationFactor As Single Public FipsCode As XSD_STRING Public PlaceName As XSD_STRING Public StateCode As XSD_STRING Public Status As XSD_STRING Public Details As ArrayOfWeatherData_n1 Sub NEW End Sub End Class Const n1 = "http://www.webservicex.net" Class WeatherForecastSoap_n1 As PortTypeBase Sub NEW Call Service.Initialize ("HttpWwwWebservicexNetWeatherForecast", _ "WeatherForecast.WeatherForecastSoap", "http://www.webservicex.net/WeatherForecast.asmx", "WeatherForecastSoap_n1") End Sub Function GetWeatherByZipCode(ZipCode As XSD_STRING) As WeatherForecasts_n1 Set GetWeatherByZipCode = Service.Invoke("GetWeatherByZipCode", ZipCode) End Function Function GetWeatherByPlaceName(PlaceName As XSD_STRING) As WeatherForecasts_n1 Set GetWeatherByPlaceName = Service.Invoke("GetWeatherByPlaceName", PlaceName) End Function End Class

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

   Option Public %INCLUDE "lsxsd.lss" Class WeatherData_n1 As XSD_ANYTYPE Public Day As XSD_STRING Public WeatherImage As XSD_STRING Public MaxTemperatureF As XSD_STRING Public MinTemperatureF As XSD_STRING Public MaxTemperatureC As XSD_STRING Public MinTemperatureC As XSD_STRING Sub NEW End Sub End Class Class ArrayOfWeatherData_n1 As XSD_ANYTYPE Public WeatherData() As WeatherData_n1 Sub NEW End Sub End Class Class WeatherForecasts_n1 As XSD_ANYTYPE Public Latitude As Single Public Longitude As Single Public AllocationFactor As Single Public FipsCode As XSD_STRING Public PlaceName As XSD_STRING Public StateCode As XSD_STRING Public Status As XSD_STRING Public Details As ArrayOfWeatherData_n1 Sub NEW End Sub End Class Const n1 = "http://www.webservicex.net" Class WeatherForecastSoap_n1 As PortTypeBase Sub NEW Call Service.Initialize ("HttpWwwWebservicexNetWeatherForecast", _ "WeatherForecast.WeatherForecastSoap", "http://www.webservicex.net/WeatherForecast.asmx", "WeatherForecastSoap_n1") End Sub Function GetWeatherByZipCode(ZipCode As XSD_STRING) As WeatherForecasts_n1 Set GetWeatherByZipCode = Service.Invoke("GetWeatherByZipCode", ZipCode) End Function Function GetWeatherByPlaceName(PlaceName As XSD_STRING) As WeatherForecasts_n1 Set GetWeatherByPlaceName = Service.Invoke("GetWeatherByPlaceName", PlaceName) End Function End Class

2. Create a lotusscript agent and insert this code: 
   
   Visual Basic

   Option Public Option Declare Use "USA Weather" Sub Initialize() Dim serviceClass As New WeatherForecastSoap_n1 Dim strRequest As New XSD_STRING Dim session As New NotesSession Dim response As WeatherForecasts_n1 Dim details As ArrayOfWeatherData_n1 Dim latitude As Single Dim longitude As Single Dim placeName As String Dim stateCode As String Dim calendarDay(5) As String Dim i As Integer Dim minTemperatureC(5) As Integer Dim maxTemperatureC(5) As Integer strRequest.Setvaluefromstring("New York") Set response = serviceClass.GetWeatherByPlaceName(strRequest) latitude = response.Latitude longitude = response.Longitude placeName = response.Placename.Getvalueasstring() stateCode = response.Statecode.Getvalueasstring() Print placeName & " " & stateCode & " lon.:" & longitude & " lat.:" & latitude Set details = response.Details For i = 0 To 5 calendarDay(i) = details.Weatherdata(i).Day.Getvalueasstring() minTemperatureC(i) = CInt(details.Weatherdata(i).minTemperatureC.Getvalueasstring()) maxTemperatureC(i) = CInt(details.Weatherdata(i).maxTemperatureC.Getvalueasstring()) Print calendarDay(i) & " T min:" & minTemperatureC(i) & " T max:" & maxTemperatureC(i) Next End Sub

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

   Option Public Option Declare Use "USA Weather" Sub Initialize() Dim serviceClass As New WeatherForecastSoap_n1 Dim strRequest As New XSD_STRING Dim session As New NotesSession Dim response As WeatherForecasts_n1 Dim details As ArrayOfWeatherData_n1 Dim latitude As Single Dim longitude As Single Dim placeName As String Dim stateCode As String Dim calendarDay(5) As String Dim i As Integer Dim minTemperatureC(5) As Integer Dim maxTemperatureC(5) As Integer   strRequest.Setvaluefromstring("New York")   Set response = serviceClass.GetWeatherByPlaceName(strRequest)   latitude = response.Latitude longitude = response.Longitude   placeName = response.Placename.Getvalueasstring() stateCode = response.Statecode.Getvalueasstring()   Print placeName & " " & stateCode & " lon.:" & longitude & " lat.:" & latitude   Set details = response.Details   For i = 0 To 5 calendarDay(i) = details.Weatherdata(i).Day.Getvalueasstring() minTemperatureC(i) = CInt(details.Weatherdata(i).minTemperatureC.Getvalueasstring()) maxTemperatureC(i) = CInt(details.Weatherdata(i).maxTemperatureC.Getvalueasstring())   Print calendarDay(i) & " T min:" & minTemperatureC(i) & " T max:" & maxTemperatureC(i) Next   End Sub

3. Run the agent and look the status bar