ESQL语句中常用到的代码 3

得到配置文件中的URL
DECLARE URL_KEY CHARACTER Common.GetEndPointByKey(Environment.Variables.operation);

DECLARE tmp CHARACTER;
  DECLARE I INTEGER POSITION(',' IN URL_KEY);
 
  WHILE I > 0  DO
   SET tmp = SUBSTRING(URL_KEY BEFORE ',');
   SET URL_KEY = SUBSTRING(URL_KEY AFTER ',');
  
   CALL addInitURL(tmp);
  
   SET I = POSITION(',' IN URL_KEY);
  END WHILE;
 
  IF URL_KEY IS NOT NULL THEN
   CALL addInitURL(URL_KEY);
  END IF;

DECLARE I INTEGER CARDINALITY(localEnv.Destination.HTTP.RequestURL[]);

IF I = 0 THEN
    SET localEnv.Destination.HTTP.RequestURL[1] = variables;
ELSE
  SET localEnv.Destination.HTTP.RequestURL[I + 1] = variables;
END IF;"
给返回报文重构命名空间 "SOAP方法返回:
SET OutputRoot.Properties = InputRoot.Properties;
  SET OutputRoot.SOAP.Body = InputRoot.XMLNSC; 
  SET OutputRoot.SOAP.Context.Namespace.(SOAP.NamespaceDecl)xmlns:soapenv = env;
  SET OutputRoot.SOAP.Context.Namespace.(SOAP.NamespaceDecl)xmlns:msg = msg;

HTTP方式返回:
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;
"
转换编码集
SET OutputRoot.Properties.CodedCharSetId =1208;
  SET OutputRoot.Properties.ContentType = 'text/xml;charset=UTF-8';
  SET OutputRoot.HTTPInputHeader.""Content-Type"" = 'text/xml;charset=UTF-8';"
将BLOB转换成XMLNSC格式
SET OutputRoot=InputRoot;(保存原有的数据属性Properties和HttpInputHader等)
  DECLARE bodyBlob BLOB;
  SET bodyBlob=OutputRoot.BLOB.BLOB;
  DECLARE creationPtr REFERENCE TO OutputRoot;
  CREATE LASTCHILD OF creationPtr DOMAIN('XMLNSC') PARSE(bodyBlob,
  InputProperties.Encoding,
  InputProperties.CodedCharSetId);(将 BLOB格式的报文转换成XMLNSC格式的报文)

DELETE FIELD OutputRoot.BLOB;(将OutputRoot中BLOB节点删除．)"
重构命名空间
SET OutputRoot.XMLNSC.Envelope.soapenv=ns;
  SET OutputRoot.XMLNSC.Envelope.web=web;
  SET OutputRoot.XMLNSC.soapenv:Envelope.(XMLNSC.NamespaceDecl)xmlns:soapenv = soapenv;
  SET OutputRoot.XMLNSC.soapenv:Envelope.(XMLNSC.NamespaceDecl)xmlns:esb = esb;
  SET OutputRoot.XMLNSC.soapenv:Envelope.soapenv:Body=InputRoot.XMLNSC;"