Greetings allThis is my first attempt working with Web Services and Domino.
I have imported a WSDL generated by TIBCO into a script library. I have created an agent and have attempted to call the function from my agent. However I don’t understand how how to construct the variable to pass to the function that exists in the WSDL code.
Here is the WSDL with some unsued classes removed:
%INCLUDE “lsxsd.lss”
Class MemberInquiryRequestParamsType_n0 As XSD_ANYTYPE
Public request() As Request_n0
Sub NEW
End Sub
End Class
Class Request_n0 As XSD_ANYTYPE
Public requestId As String
Public searchFields As SearchFields_n0
Sub NEW
End Sub
End Class
Class FaultType_n1 As WS_FAULT
Public messageCode As XSD_STRING
Public message As XSD_STRING
Sub NEW
End Sub
End Class
Class StatusType_n9 As XSD_ANYTYPE
Public code As String
Public description As XSD_STRING
Public system As XSD_STRING
Public type As String 'attribute
Sub NEW
End Sub
End Class
Class MemberInquiryServiceRequestType_n0 As XSD_ANYTYPE
Public MessageHeader As MessageHeaderType_n2
Public memberRequestInfo As MemberInquiryRequestParamsType_n0
Sub NEW
End Sub
End Class
Class ReferenceType_n3 As XSD_ANYTYPE
Public ref_number As String
Public description As XSD_STRING
Public system As XSD_STRING
Public type As String 'attribute
Sub NEW
End Sub
End Class
Class MessageHeaderType_n2 As XSD_ANYTYPE
Public messageId As String
Public responseTo As MessageHeaderType_responseTo_n2
Public timestamp As XSD_LONG
Public Status() As StatusType_n9
Public Reference() As ReferenceType_n3
Sub NEW
End Sub
End Class
Class ResponseType_n0 As XSD_ANYTYPE
Public response() As ListType_n0
Sub NEW
End Sub
End Class
Class MemberInquiryServiceResponseType_n0 As XSD_ANYTYPE
Public MessageHeader As MessageHeaderType_n2
Public memberResponseInfo As ResponseType_n0
Sub NEW
End Sub
End Class
Class MemberInquiryResponseType_n0 As XSD_ANYTYPE
Public subscriberId As XSD_STRING
Public memberId As XSD_STRING
Sub NEW
End Sub
End Class
Class SearchFields_n0 As XSD_ANYTYPE
Public subscriberId As XSD_STRING
Public memberId As XSD_STRING
Sub NEW
End Sub
End Class
Class MessageHeaderType_responseTo_n2 As XSD_ANYTYPE
Public value As String
Public timeToLive As XSD_LONG 'attribute
Sub NEW
End Sub
End Class
Const n2 = “http://xxx.xxx./MessageHeader”
Const n5 = " http://xxx.xxx.//Base/Name"
Const n8 = " http://xxx.xxx.//Base/Phone"
Const n4 = " http://xxx.xxx.//MemberInquiryService"
Const n0 = " http://xxx.xxx.//MemberInquiryServiceRequestResponse"
Const n7 = " http://xxx.xxx.//Base/DateRange"
Const n1 = " http://xxx.xxx.//Base/Fault"
Const n9 = " http://xxx.xxx.//Base/Status"
Const n6 = " http://xxx.xxx.//Base/Address"
Const n3 = " http://xxx.xxx.//Base/Reference"
Class MemberInquiryPortType_n4 As PortTypeBase
Sub NEW
Call Service.Initialize ("http://xxx", "http://xxxxx", _
"MemberInquiryPortType_n4")
End Sub
Function getMemberInquiry(request As MemberInquiryServiceRequestType_n0, Fault1 As FaultType_n1) As MemberInquiryServiceResponseType_n0
Set getMemberInquiry = Service.Invoke("getMemberInquiry", request, Fault1)
End Function
End Class
I need to be able to call the function “getMemberInquiry”. I don’t know how to pass the variable (request), what format? Should this be an xml type?
I would appreciate any assistance.