

CREATE COMPUTE MODULE WS_GEN_ABCS_MODIFY_MSG
	CREATE FUNCTION Main() RETURNS BOOLEAN
	BEGIN
		-- CALL CopyMessageHeaders();
		CALL CopyEntireMessage();
		DELETE FIELD OutputRoot.SOAP.Context."_XmlDeclaration";
		DELETE FIELD OutputRoot.HTTPInputHeader."User-Agent";
		DELETE FIELD OutputRoot.HTTPInputHeader.Vsdebuggercausalitydata;				
		DELETE FIELD OutputRoot.SOAP.Body.*[1].xmlns;
		RETURN TRUE;
	END;

	CREATE PROCEDURE CopyMessageHeaders() BEGIN
		DECLARE I INTEGER 1;
		DECLARE J INTEGER;
		SET J = CARDINALITY(InputRoot.*[]);
		WHILE I < J DO
			SET OutputRoot.*[I] = InputRoot.*[I];
			SET I = I + 1;
		END WHILE;
	END;

	CREATE PROCEDURE CopyEntireMessage() BEGIN
		SET OutputRoot = InputRoot;
	END;
END MODULE;
