Message Flow for ESB 9
>>>>>>>>>>Exception_receiver
--CreateErrInfo
/** 异常样例
RecoverableException
File:CHARACTER:F:\build\S700_P\src\DataFlowEngine\ImbComputeNode.cpp
Line:INTEGER:489
Function:CHARACTER:ImbComputeNode::evaluate
Type:CHARACTER:ComIbmComputeNode
Name:CHARACTER:Siebel/Main/Siebel_Main_Flow#FCMComposite_1_3.Siebel/Properties/PropertiesAndOperation#FCMComposite_1_2
Label:CHARACTER:Siebel.Main.Siebel_Main_Flow.PropertiesAndOperation.RquestMsgDeal
Catalog:CHARACTER:BIPmsgs
Severity:INTEGER:3
Number:INTEGER:2230
Text:CHARACTER:Caught exception and rethrowing
Insert
Type:INTEGER:5
Text:CHARACTER:Siebel.Main.PropertiesAndOperation.Main
Insert
Type:INTEGER:5
Text:CHARACTER:CopyRequestHeads();
ParserException
File:CHARACTER:F:\build\S700_P\src\MTI\MTIforBroker\GenXmlParser4\ImbXMLNSCParser.cpp
Line:INTEGER:786
Function:CHARACTER:ImbXMLNSCParser::refreshBitStreamFromElementsCommon
Type:CHARACTER:ComIbmWSInputNode
Name:CHARACTER:Siebel/Main/Siebel_Main_Flow#FCMComposite_1_1
Label:CHARACTER:Siebel.Main.Siebel_Main_Flow.HTTP Input
Catalog:CHARACTER:BIPmsgs
Severity:INTEGER:3
Number:INTEGER:5010
Text:CHARACTER:XML Writing Errors have occurred
RecoverableException
File:CHARACTER:F:\build\S700_P\src\CommonServices\ImbConverter.cpp
Line:INTEGER:275
Function:CHARACTER:ImbConverterCPP::internalFromUnicode
Type:CHARACTER:
Name:CHARACTER:
Label:CHARACTER:
Catalog:CHARACTER:BIPmsgs
Severity:INTEGER:3
Number:INTEGER:2133
Text:CHARACTER:String too long to convert
Insert
Type:INTEGER:5
**/
CREATE COMPUTE MODULE Exception_receiver_ComputeBLog
CREATE FUNCTION Main() RETURNS BOOLEAN
BEGIN
-- CALL CopyMessageHeaders();
CALL CopyEntireMessage();
SET OutputRoot.Properties = Environment.Variables.Properties;

--这里主要是处理错误的返回码信息
DECLARE s_falg CHARACTER FIELDVALUE(Environment.EsbBusinessLog.businessLog.businessId);

IF s_falg IS NULL THEN

CALL Common.writeWarnLog('---------------------');
CALL Common.writeWarnLog('| No Business Log Data, Please check the Flow. |');
CALL Common.writeWarnLog('---------------------');

END IF;