1 %RegisteredObject 0 %String WSDL.xml %Integer 1972 %String %String OwnPath:%String,OtherPath:%String Path:%String,OtherPath:%String 1 %String Path ",WebMethod,! w $C(9),"met input : ",SoapRequestFile,! Set StreamA = ..HttpRequest("jbl_xp","dev",..#WebServicePort, WebService, WebMethod,SoapRequestFile) Set StreamB = ..HttpRequest("cache02","dev-admin1",..#WebServicePort, WebService, WebMethod,SoapRequestFile) Set FeedBack = ..VergelijkSoapResponses(StreamA,StreamB).Read(3000) If FeedBack = "" { Write $C(9)_"OK",! }Else{ Write $C(9)_FeedBack,! } } } } } } } Quit Feedback ]]> SoapResponseA:%Stream,SoapResponseB:%Stream %Stream device: |") && (LineB["device: |")){ Set IsVerschil = 0 }ElseIf ((LineA["DATE: ") && (LineB["DATE: ")){ Set IsVerschil = 0 } If (IsVerschil){ Do FeedBack.Write(LineA_$C(13,10)) Do FeedBack.Write(LineB_$C(13,10)) Do FeedBack.Write($C(13,10)) } } } Quit FeedBack ]]> Server:%String,Namespace:%String,Port:%Integer,ClassName:%String,Method:%String,SoapRequestFile:%String %Stream Path:%String 1 %Status ClassName:%String 1 TECH.Iterator 1 1 set Hash=$system.Encryption.MD5Encode(Hash) #else Set Hash=$system.Encryption.SHA1HashStream(Stream) #endif quit Hash ]]>