Message Flow for ESB 7

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