XML Logging

With Service Oriented systems it can be very important to have a log of the XML that has been sent and received by the systems involved, for purposes of determining exactly what went on to cause any given situation (usually an error situation, otherwise there would be no need to look into it). This article looks at how such things can be done and how the logged XML can then be used to investigate the problem.

Web Service Client XML Logging

Logging the XML sent by a web service client is relatively easy. It simply involves, following the service invocation, getting the psXML property of the object pointed to by the phoSoapRequest property of your web service client object. Something like this:

tSomeInput Input tSomeOutput Output String sXML

Get wsSomeOp of oXyzService Input to Output

Move (psXML(phoSoapRequest(oXyzService(Self)))) to sXML

Or, more verbosely:

tSomeInput Input
tSomeOutput Output
String sXML
Handle hoSoapReq

Get wsSomeOp of oXyzService Input to Output

Get phoSoapRequest of oXyzService to hoSoapReq
Get psXML of hoSoapReq to sXML

Either way you now have the XML sent by your web service client and can log it in whatever way you require.

Web Service XML Logging

There is a very real difficulty regarding accessing the XML which is passed it a VDF Web Service (at least so far as revisions up to VDF 12.1 are concerned). The problem is that the original XML is nowhere available to the VDF program. One possible solution would be to employ some kind of HTTP proxy on the server involved, which would receive the XML (actually the HTTP within which the XML is wrapped) before it reached IIS, log that, then pass it on to IIS. However here we are going to concern ourselves only with the best that can be managed from within the VDF programming environment at the moment (November 2007).

The trick is to make use of a client of you service within the service itself. This in turn makes doing it a two-stage process, since one can only create a client once the service is published and acessible.

Step 1

Object oLogSample is a cWebService

  { Published = True  }
  { Description = "Interface for sending something to the system" }
  Procedure  SendSomething tSomeDocumentType Doc
     // Code that actually does stuff...
  End_Procedure  // SendSomething

End_Object  // oLogSample