Use this subprocedure to quickly write out the barebones http headers for a web service. It is basically outputting Content-type: text/xml followed by two carriage return line feeds. Note that this subprocedure could be used to write out the http headers instead of putting them in a template for the Template Engine to send them. Use this when writing RPG Web Services residing on your iSeries that other programs call and NOT when consuming web services on a remote system.

Subprocedure Prototype

D RXS_writeXMLHdr...
D                 pr

Writes HTTP headers to standard out.