Message Flow for ESB 11

---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;