Messge Flow For ESB

siebel 》》》CBS


>>>>SetCodedCharSetId --SetUTF8
--请求格式转换为UTF8个格式
SET OutputRoot.Properties.CodedCharSetId = Common.getCodedCharSetId();
SET OutputRoot.Properties.ContentType = 'text/xml;charset=UTF-8';
SET OutputRoot.HTTPInputHeader."Content-Type" = 'text/xml;charset=UTF-8';


>>>>PropertiesAndOperation--RequestMsgDeal
--提取请求报文的基本信息
CALL CopyRequestHeads();
CREATE PROCEDURE CopyRequestHeads() BEGIN
--Save the Seibel RequestData
SET Environment.Variables.XML_DATA=ASBITSTREAM(InputRoot.XMLNSC CCSID InputProperties.CodedCharSetId);
--get The Seibel Request Properties;
SET Environment.Variables.Properties=InputRoot.Properties;
SET Environment.Variables.HTTPInputHeader=InputRoot.HTTPInputHeader;
--Save the SiebelMessage Propertiess
SET Environment.Variables.operation=FIELDVALUE(InputRoot.XMLNSC.*[<].(XMLNSC.Attribute)FuncName);
SET Environment.Variables.OPERATOR=COALESCE(FIELDVALUE(InputRoot.XMLNSC.*[<].(XMLNSC.Attribute)OPERATOR),'1003');
SET Environment.Variables.MessageId=FIELDVALUE(InputRoot.XMLNSC.*[<].(XMLNSC.Attribute)MessageId);
SET Environment.Variables.MessageType=FIELDVALUE(InputRoot.XMLNSC.*[<].(XMLNSC.Attribute)MessageType);
SET Environment.Variables.TRANSACTIONID=FIELDVALUE(InputRoot.XMLNSC.*[<].(XMLNSC.Attribute)TRANSACTIONID);
SET Environment.Variables.IntObjectName=FIELDVALUE(InputRoot.XMLNSC.*[<].(XMLNSC.Attribute)IntObjectName);
SET Environment.Variables.IntObjectFormat=FIELDVALUE(InputRoot.XMLNSC.*[<].(XMLNSC.Attribute)IntObjectFormat);
SET Environment.Variables.xmlns=FIELDVALUE(InputRoot.XMLNSC.*[<].(XMLNSC.Attribute)xmlns);
END;



--预登记日志
CALL CopyBusinessLog();
CREATE PROCEDURE CopyBusinessLog() BEGIN
DECLARE serviceNumber CHARACTER; --InputBody.*[<].*[<].*[<].msg:MSISDN;

Call Common.buildBusinessPreLog(Environment.Variables.operation,
Environment.Variables.IntObjectFormat,
serviceNumber,
COALESCE(Environment.Variables.OPERATOR,'Siebel_Test'),
COALESCE(Environment.Variables.TenantId,'999'),
COALESCE(Environment.Variables.TRANSACTIONID,'1'),
COALESCE(Environment.Variables.DEPTID,'Siebel_Deptid'),
Environment);

Call Common.addBusinessMsgLog(Environment.Variables.IntObjectFormat,
  Common.getNormalModule(),
  Common.getRequestType(),
  InputRoot.XMLNSC,
  Environment);
END;

--安全性校验，待定

--请求包传递到下一个节点
CALL CopyEntireMessage();
CREATE PROCEDURE CopyEntireMessage() BEGIN
SET OutputRoot = InputRoot;
END;