Server:
Class webservice.SOAPResponse Extends (
//--------------------
///
Class webservice.webServiceServer Extends %SOAP.WebService [ ProcedureBlock ]
{
Parameter SERVICENAME = "webServiceServer";
Parameter NAMESPACE = "http://tempuri.org";
Parameter USECLASSNAMESPACES = 1;
Method info(queryInfo As %String) As webservice.SOAPResponse [ WebMethod ]
{
set soapresponse=##class(webservice.SOAPResponse).%New()
set soapresponse.CustomerID="aaavca1"
set soapresponse.Name="server:"_queryInfo
set soapresponse.Street="aaaa3"
set soapresponse.City="aaaccxaa4"
set soapresponse.State="aaaszxaaa5"
set soapresponse.Zip="aaaaazzaa6"
quit soapresponse
}
/// return json
Method infoJson() As %String [ WebMethod ]
{
set soapresponse=##class(webservice.SOAPResponse).%New()
set soapresponse.CustomerID="1"
set soapresponse.Name="2"
set soapresponse.Street="3"
set soapresponse.City="4"
set soapresponse.State="5"
set soapresponse.Zip="6"
s result=""
d ##class(%ZEN.Auxiliary.jsonProvider).%ObjectToJSON(soapresponse,.result,,"s")
s resultinfo=result
/// return null
q resultinfo
}
}