>>>>>>Siebel_Response_Header
--Build Siebel Response Header
DECLARE CBS_RET_SUC_CODE EXTERNAL CHARACTER '0';
DECLARE ESB_RET_SUC_CODE EXTERNAL CHARACTER '0';
DECLARE ESB_RET_FAIL_CODE EXTERNAL CHARACTER '1';
DECLARE SIEBEL_MINMEASUREID EXTERNAL CHARACTER '100';--最小度量单位
DECLARE SIEBEL_Other_Accounts EXTERNAL CHARACTER 'Other Accounts';--没有枚举映射的账户类型
CREATE COMPUTE MODULE Siebel_Response_NameSpace_Compute
CREATE FUNCTION Main() RETURNS BOOLEAN
BEGIN
--Call Common.WriteReffenceLog(OutputRoot.XMLNSC);
SET OutputRoot.Properties = InputRoot.Properties;
SET OutputRoot.XMLNSC.env:Envelope.env:Body=InputRoot.XMLNSC;
SET OutputRoot.XMLNSC.env:Envelope.(XMLNSC.NamespaceDecl)xmlns:soapenv = env;
SET OutputRoot.XMLNSC.env:Envelope.(XMLNSC.NamespaceDecl)xmlns:siebel = siebel;
RETURN TRUE;
END;
END MODULE;
--Build Siebel Response Header
DECLARE CBS_RET_SUC_CODE EXTERNAL CHARACTER '0';
DECLARE ESB_RET_SUC_CODE EXTERNAL CHARACTER '0';
DECLARE ESB_RET_FAIL_CODE EXTERNAL CHARACTER '1';
DECLARE SIEBEL_MINMEASUREID EXTERNAL CHARACTER '100';--最小度量单位
DECLARE SIEBEL_Other_Accounts EXTERNAL CHARACTER 'Other Accounts';--没有枚举映射的账户类型
CREATE COMPUTE MODULE Siebel_Response_NameSpace_Compute
CREATE FUNCTION Main() RETURNS BOOLEAN
BEGIN
--Call Common.WriteReffenceLog(OutputRoot.XMLNSC);
SET OutputRoot.Properties = InputRoot.Properties;
SET OutputRoot.XMLNSC.env:Envelope.env:Body=InputRoot.XMLNSC;
SET OutputRoot.XMLNSC.env:Envelope.(XMLNSC.NamespaceDecl)xmlns:soapenv = env;
SET OutputRoot.XMLNSC.env:Envelope.(XMLNSC.NamespaceDecl)xmlns:siebel = siebel;
RETURN TRUE;
END;
END MODULE;