Subject: Webservice consumer clarification.
Hello
Greetings!!
I am using lotus notes 8.5 client and writing the lotus script agent that refers to below Webservice consumer program. The output function is of type “UploadProjectResponse_n9” as in below code snippet. Please clarify how to get the values of ‘EnumMessageItemType_n10’ and ‘SuccessStatus_n10’ in my agent code.
Thanks in advance,
Sundar.
Class UploadResponse_n9 As XSD_ANYTYPE
Public MessageList As ArrayOfResponseMessageItem_n9
Public Successful As SuccessStatus_n10
Sub NEW
End Sub
End Class
Const SuccessStatus_n10_Failure$ = “Failure”
Const SuccessStatus_n10_Success$ = “Success”
Dim Failure_SuccessStatus_n10 As SuccessStatus_n10
Dim Success_SuccessStatus_n10 As SuccessStatus_n10
Dim Enum_SuccessStatus_n10 List As SuccessStatus_n10
Class SuccessStatus_n10 As XSD_ANYTYPE
Public Value As String
Sub NEW
End Sub
Sub Initialize (elem As String)
Let Value = elem
Set Enum_SuccessStatus_n10(Cstr(Value)) = Me
End Sub
Function Equals (you As SuccessStatus_n10) As Boolean
If (Strcompare(Cstr(Me.Value), you.ToString, 5) = 0) Then
Let Equals = True
Else
Let Equals = False
End If
End Function
Function ToString As String
Let ToString = Cstr(Value)
End Function
End Class
Const EnumMessageItemType_n10_Information$ = “Information”
Const EnumMessageItemType_n10_Error$ = “Error”
Const EnumMessageItemType_n10_Warning$ = “Warning”
Dim Information_EnumMessageItemType_n10 As EnumMessageItemType_n10
Dim Error_EnumMessageItemType_n10 As EnumMessageItemType_n10
Dim Warning_EnumMessageItemType_n10 As EnumMessageItemType_n10
Dim Enum_EnumMessageItemType_n10 List As EnumMessageItemType_n10
Class EnumMessageItemType_n10 As XSD_ANYTYPE
Public Value As String
Sub NEW
End Sub
Sub Initialize (elem As String)
Let Value = elem
Set Enum_EnumMessageItemType_n10(Cstr(Value)) = Me
End Sub
Function Equals (you As EnumMessageItemType_n10) As Boolean
If (Strcompare(Cstr(Me.Value), you.ToString, 5) = 0) Then
Let Equals = True
Else
Let Equals = False
End If
End Function
Function ToString As String
Let ToString = Cstr(Value)
End Function
End Class
Class ResponseMessageItem_n9 As XSD_ANYTYPE
Public Message As XSD_STRING
Public MessageType As EnumMessageItemType_n10
Sub NEW
End Sub
End Class
Class UploadProjectResponse_n9 As XSD_ANYTYPE
Public UploadProjectResult As UploadResponse_n9
Sub NEW
End Sub
End Class
Class ArrayOfResponseMessageItem_n9 As XSD_ANYTYPE
Public ResponseMessageItem() As ResponseMessageItem_n9
Sub NEW
End Sub
End Class
Thanks,
Sundar