Реализация. Создание корпоративной сервисной шины

CREATE COMPUTE MODULE Flow7_Set_SOAP_address
 CREATE FUNCTION Main() RETURNS BOOLEAN
  BEGIN
   CALL CopyEntireMessage();
 -- Нам нужно задать URL AllocateAssessmentRequest. Определен
 --только URL AssessorAvailabilityRequest
 -- Быстрое исправление состоит в наличии соглашения об именах...
   SET OutputLocalEnvironment.Destination.HTTP.RequestURL =
    REPLACE(InputRoot.MRM.soap11:Body.fl6:actionAssessor.fl6:assessor.
            fl6:assessorURL,'Availability','DeliverAssessment');
   RETURN TRUE;
 END;

BROKER SCHEMA proxyAssessorSystem
DECLARE soap11  NAMESPACE 'http://schemas.xmlsoap.org/soap/envelope/';
DECLARE fl3     NAMESPACE 'http://broker.lgi.itso.assessavail';
DECLARE fl3a    NAMESPACE 'http://AssessorAvailabilityList.itso';
DECLARE fl7     NAMESPACE 'http://assessor.itso';
DECLARE fl8     NAMESPACE 'http://assbroker.lgi.itso';
DECLARE fl6     NAMESPACE 'http://broker.lgi.itso.allocreq';
DECLARE fl6a    NAMESPACE 'http://AllocateAssessorResponse.lgi.itso';
-- DECLARE fl4a NAMESPACE 'http://assbroker.lgi.itso';
-- DECLARE fl7a NAMESPACE 'http://assbroker.lgi.itso';
-- DECLARE f4   NAMESPACE 'http://assbroker.itso';
-DECLARE fl9    NAMESPACE 'http://broker.lgi.itso.assessrept';

CREATE COMPUTE MODULE Flow3_Validate
  CREATE FUNCTION Main() RETURNS BOOLEAN
  BEGIN
    DECLARE xInputRoot REFERENCE TO InputRoot;
    SET Environment.Message = 'requestAssessorAvailability';
-- В следующей инструкции регистрируется факт, что Web-служба генерирует
-- свое сообщение об исключении, а не использует ошибку SOAP по умолчанию
    SET Environment.SOAP.Fault.FaultOption = 'CustomizedFault';
    DECLARE xEnvironment REFERENCE TO Environment;
-- Проверка сообщения
    CALL ValidateMessage(xInputRoot, xEnvironment);
    IF Environment.SOAP.Fault.FaultCode = ' ' THEN
      SET OutputRoot = InputRoot;
    ELSE
-- Web-служба генерирует свое сообщение об ошибке... Это оно, и за
-- ним идет путь исключения
      SET Environment.soap11:Body.Fault.faultstring =
      'Flow3 input message validation failed... claimID ' ||
      CAST(InputBody.soap11:Body.fl3:requestAssessorAvailability.fl3:
claimID AS
      CHARACTER);
      THROW USER EXCEPTION VALUES ('Flow3 Input validation failed');
    END IF;
    RETURN TRUE;
END;

CREATE FUNCTION Main() RETURNS BOOLEAN
BEGIN
  IF Environment.SOAP.Fault.FaultCode = 'FaultReceived' THEN
-- Получена ошибка от другой Web-службы.... копируем данные на выход
    SET OutputRoot = InputRoot;
    ELSE
      CALL FaultProc();
    END IF;
    RETURN TRUE;
END;

CREATE PROCEDURE FaultProc()
BEGIN
-- 1. Для Web-службы требуется типичное сообщение об ошибке SOAP
  CALL CopyMessageHeaders();
  SET OutputRoot.HTTPInputHeader = null;
  SET OutputRoot.HTTPResponseHeader = null;
-- 2. Укажем подходящие значения для неопознанной ошибки в конфигура-
-- ционных данных службы
  IF Environment.SOAP.Fault.FaultCode IS NULL OR
     Environment.SOAP.Fault.FaultCode = ' '
  THEN
    SET Environment.SOAP.Fault.FaultActor ='proxyAssessorSystem';
    SET Environment.SOAP.Fault.FaultCode = 'Server';
    SET Environment.SOAP.Fault.FaultString = 'Server error in SOAP Web
        service';
  END IF;
-- 3. Создадим выходное сообщение об ошибке SOAP (MRM)
  SET OutputRoot.Properties.MessageSet = 'Assessor';
  SET OutputRoot.Properties.MessageType = 'Envelope';
  SET OutputRoot.Properties.MessageFormat = 'XML1';
-- 4. Выводится MRM-сообщение. Добавим стандартный SOAP-конверт
-- Явно добавим пространство имен к значению кода ошибки
-- Поместим в данные об ошибке тело исходного сообщения (если возмож-
-- но... )
-- 5. Web-служба требует пользовательского сообщения об ошибке
  IF Environment.SOAP.Fault.FaultOption = 'CustomizedFault' THEN
    SET OutputRoot.MRM.soap11:Body.soap11:Fault.faultcode =
        'soap11'||':'||
        Environment.SOAP.Fault.FaultCode;
    SET OutputRoot.MRM.soap11:Body.soap11:Fault.faultstring =
        Environment.SOAP.Fault.FaultString;
    SET OutputRoot.MRM.soap11:Body.soap11:Fault.faultactor =
        Environment.SOAP.Fault.FaultActor;
    SET OutputRoot.MRM.soap11:Body.soap11:Fault.detail =
        Environment.soap11:Body;
  ELSE
-- 6. Web-служба требует заданное по умолчанию сообщение об ошибке SOAP
    SET OutputRoot.MRM.soap11:Body.soap11:Fault.faultcode = 'soap11'||':'||
        Environment.SOAP.Fault.FaultCode;
    SET OutputRoot.MRM.soap11:Body.soap11:Fault.faultstring =
        Environment.SOAP.Fault.FaultString;
    SET OutputRoot.MRM.soap11:Body.soap11:Fault.faultactor =
        Environment.SOAP.Fault.FaultActor;
  IF InputExceptionList.ParserException.ParserException.ParserException.
     Number=5117
  THEN
    SET OutputRoot.MRM.soap11:Body.soap11:Fault.detail.OriginalBody =
          'Input message is not valid XML';
  ELSE
    SET OutputRoot.MRM.soap11:Body.soap11:Fault.detail.OriginalBody =
        InputRoot.*[<];
  END IF;
-- 7. Проверяем, является ли список исключений результатом выполнения 
-- ESQL THROW...
  IF InputExceptionList.RecoverableException.RecoverableException.User-
     Exception.Number = 2951 THEN
-- 8. Если нет, выводим список исключений в сообщение об ошибке SOAP
  ELSE
    SET OutputRoot.MRM.soap11:Body.soap11:Fault.detail.ExceptionList =
        InputExceptionList;
  END IF;
  END IF;
END;