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