Message Flow for ESB 6
--Build Order Sync Response
CREATE COMPUTE MODULE CRM_Order_Sync_Response
CREATE FUNCTION Main() RETURNS BOOLEAN
BEGIN
CREATE FIELD OutputRoot.XMLNSC.siebel:SiebelMessage;
DECLARE OutputSeibel REFERENCE TO OutputRoot.XMLNSC.siebel:SiebelMessage;
DECLARE InputCBS REFERENCE TO InputRoot.XMLNSC.uvs:orderResponse;
--Set The SeibelMessage Attribute
CALL Siebel.Util.buildSeibelMessageProperties(OutputSeibel,Environment);
SET OutputRoot.HTTPInputHeader=Environment.Variables.HTTPInputHeader;
SET Environment.Variables.RequestHeader.RetCode = InputCBS.uvs:OrderResult.uvs:ResultMessage.uvs:MessageHeader.uvs:ResultCode;
SET Environment.Variables.RequestHeader.RetMsg = InputCBS.uvs:OrderResult.uvs:ResultMessage.uvs:MessageHeader.uvs:ResultDesc;
--判断业务调用是否成功
IF Environment.Variables.RequestHeader.RetCode = CBS_RET_SUC_CODE THEN
--call Common.buildBusinessEndLog('1',code,'PRO',message,Environment);
--THROW USER EXCEPTION CATALOG 'PRO' MESSAGE 2001 VALUES (message);
SET Environment.Variables.RequestHeader.RetCode = ESB_RET_SUC_CODE;
SET Environment.Variables.status = ESB_RET_SUC_CODE;
ELSE
SET Environment.Variables.status = ESB_RET_FAIL_CODE;
END IF;
SET OutputSeibel.siebel:ActionControl.siebel:DownStreamNumber = Common.getCBSModule();
SET OutputSeibel.siebel:OrderHeadResp.siebel:OrderNum VALUE=NULL;
SET OutputSeibel.siebel:OrderHeadResp.siebel:Version='1';
SET OutputSeibel.siebel:OrderHeadResp.siebel:OrderLineItemResp.siebel:RootLineItemId VALUE=NULL;
SET OutputSeibel.siebel:OrderHeadResp.siebel:OrderLineItemResp.siebel:Status=Environment.Variables.RequestHeader.RetCode;
SET OutputSeibel.siebel:OrderHeadResp.siebel:OrderLineItemResp.siebel:Desc=Environment.Variables.RequestHeader.RetMsg;
SET OutputSeibel.siebel:OrderHeadResp.siebel:OrderLineItemResp.siebel:ReturnTime=CAST(CURRENT_TIMESTAMP AS CHARACTER FORMAT 'MM/dd/yyyy HH:mm:ss');
Call Common.addBusinessMsgLog(Common.getNormalModule(),
Common.getCBSModule(),
Common.getResponseType(),
InputRoot.XMLNSC,
Environment);
RETURN TRUE;
END;
END MODULE;
