Antes de chamar esse procedimento, o
fluxo de mensagens precisa
conseguir obter o valor do limite. Esse valor pode estar disponível somente em um cabeçalho de tipo de conteúdo.
O procedimento a seguir permite extrair
o valor Limite:
create procedure getBoundary(IN ct reference,OUT boundary char)
/*****************************************************************
* retornar valor do parâmetro de limite de um valor Content-Type
******************************************************************/
begin
declare boundaryStart integer;
declare boundaryEnd integer;
set boundaryStart = position('boundary=' in ct) + 9;
set boundaryEnd = position(';' in ct from boundaryStart);
if (boundaryStart <> 0) then
if (boundaryEnd <> 0) then
set boundary = substring(ct from boundaryStart for boundaryEnd-boundaryStart);
else
set boundary = substring(ct from boundaryStart);
end if;
end if;
end;
Um nó Compute pode chamar esses procedimentos para envio de uma
mensagem MIME utilizando o seguinte ESQL:
SET OutputRoot = InputRoot;
declare boundary char;
CALL getBoundary(OutputRoot.Properties.ContentType, boundary);
CALL writeWAS_JMS(OutputRoot,boundary);