---CreateExceptionMessage
CREATE COMPUTE MODULE Exception_receiver_ComputeELog
CREATE FUNCTION Main() RETURNS BOOLEAN
BEGIN
--CALL CopyMessageHeaders();
--CALL CopyEntireMessage();
IF Environment.Variables.RequestHeader.ExceptionName <> 'UserException' AND Environment.Variables.RequestHeader.errClass <> 'PRO' THEN
SET Environment.Variables.RequestHeader.errClass = Common.getSysExcDef();
END IF;
SET OutputRoot.XMLNSC.ESBException.class = Environment.Variables.RequestHeader.errClass;
SET OutputRoot.XMLNSC.ESBException.code = Environment.Variables.RequestHeader.RetCode;
SET OutputRoot.XMLNSC.ESBException.message = Environment.Variables.RequestHeader.RetMsg;
SET OutputRoot.XMLNSC.ESBException.stack = Environment.Variables.RequestHeader.Desc;
SET OutputRoot.XMLNSC.ESBException.input_xml = InputRoot.*[<]; --InputRoot.SOAP.Body
SET OutputRoot.Properties = InputRoot.Properties;
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;
CREATE COMPUTE MODULE Exception_receiver_ComputeELog
CREATE FUNCTION Main() RETURNS BOOLEAN
BEGIN
--CALL CopyMessageHeaders();
--CALL CopyEntireMessage();
IF Environment.Variables.RequestHeader.ExceptionName <> 'UserException' AND Environment.Variables.RequestHeader.errClass <> 'PRO' THEN
SET Environment.Variables.RequestHeader.errClass = Common.getSysExcDef();
END IF;
SET OutputRoot.XMLNSC.ESBException.class = Environment.Variables.RequestHeader.errClass;
SET OutputRoot.XMLNSC.ESBException.code = Environment.Variables.RequestHeader.RetCode;
SET OutputRoot.XMLNSC.ESBException.message = Environment.Variables.RequestHeader.RetMsg;
SET OutputRoot.XMLNSC.ESBException.stack = Environment.Variables.RequestHeader.Desc;
SET OutputRoot.XMLNSC.ESBException.input_xml = InputRoot.*[<]; --InputRoot.SOAP.Body
SET OutputRoot.Properties = InputRoot.Properties;
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;