DECLARE
v_soap_request VARCHAR2(30000);
v_http_req utl_http.req;
v_http_resp utl_http.resp;
v_name VARCHAR2(32767);
v_value VARCHAR2(32767);
v_txt VARCHAR2(32767);
i NUMBER := 1;
buf CLOB;

BEGIN

-- Define the SOAP request according the the definition of the web service being called
v_soap_request := '<soapenv:Envelope xmlns:soapenv=" http://schemas.xmlsoap.org/soap/envelope/" xmlns:api2=" http://inr.zd.ua/zd/Api20" xmlns:int=" http://inr.zd.ua/zd/integration20">
<soapenv:Header/>
<soapenv:Body>
<api2:AddTTN>
<api2:AddRequest>
<int:Auth>
<int:ID>3E2D96AFD976BDEDE050007F01002B2F</int:ID>
<int:KEY>3E2D96AFD976BDEDE050007F01002B2F</int:KEY>
</int:Auth>
<int:TTN>
<int:Sender>
<int:WarehouseSenderCode>000000863</int:WarehouseSenderCode>
<int:SettlementCode></int:SettlementCode>
<int:SenderAddress>dfvgg fg</int:SenderAddress>
<int:PhoneSender>0665867676</int:PhoneSender>
</int:Sender>
<int:Receiver>
<int:ReceiverClient>Петро Петро Петро</int:ReceiverClient>
<int:WarehouseReceiverCode>0</int:WarehouseReceiverCode>
<!--Optional:-->
<int:SettlementCode></int:SettlementCode>
<int:ReceiverAddress>ааввввкуііі</int:ReceiverAddress>
<int:PhoneReceiver>+380676170556</int:PhoneReceiver>
</int:Receiver>
<int:Number></int:Number>
<int:PaymentType>OTP</int:PaymentType>
<int:DispatchDate>2016-08-14+03:00</int:DispatchDate>
<int:POD>
<int:PodPays>POL</int:PodPays>
<int:PodAmount>0</int:PodAmount>
<int:ReceiverPODThird>
<int:ReceiverPODThird></int:ReceiverPODThird>
<int:WarehouseReceiverPODThird></int:WarehouseReceiverPODThird>
<int:PhoneReceiverPODThird></int:PhoneReceiverPODThird>
</int:ReceiverPODThird>
</int:POD>
<int:ContractorPaysThird>
<int:ContractorPaysThird></int:ContractorPaysThird>
<int:WarehousePaysThird></int:WarehousePaysThird>
<int:PhonePaysThird></int:PhonePaysThird>
</int:ContractorPaysThird>
<int:InsuranceCost>10</int:InsuranceCost>
<int:TransportationType>02</int:TransportationType>
<int:PaymentMethod>cash</int:PaymentMethod>

<!--Zero or more repetitions:-->
<int:AdditionalServices>
<int:AdditionalServicesCode>2</int:AdditionalServicesCode>
<int:AdditionalServicesParametr>15.08.2016 0:00:00;000000007</int:AdditionalServicesParametr>
</int:AdditionalServices>
<int:Cargo>
<int:CargoType>0001</int:CargoType>
<int:CargoDescription>Мобильный телефон Samsung</int:CargoDescription>
</int:Cargo>
<int:CargoParams>
<int:Quantity>1</int:Quantity>
<int:Weight>1</int:Weight>
<int:Volume>0.1</int:Volume>
</int:CargoParams>

<!--Zero or more repetitions:-->
<int:ReservedField>
<int:ReservedFieldName></int:ReservedFieldName>
<int:ReservedFieldValue></int:ReservedFieldValue>
</int:ReservedField>
<int:PAS>333</int:PAS>
<int:ReceiverCompany></int:ReceiverCompany>
<int:SenderCompany></int:SenderCompany>
</int:TTN>
</api2:AddRequest>
</api2:AddTTN>
</soapenv:Body>
</soapenv:Envelope>';

-- Initialise the request
v_http_req := utl_http.begin_request('http://esb.zd.ua/services/zd_api20_sandbox'
, --UTL
'POST'
, -- method
'HTTP/1.1' -- http_version
);
-- set header details

utl_http.set_header(v_http_req
,'Accept-Encoding'
,'gzip,deflate');

utl_http.set_header(v_http_req
,'Content-Type'
,'text/xml;charset=UTF-8');

utl_http.set_header(v_http_req
,'Pragma'
,'no-cache');
utl_http.set_header(v_http_req
,'Cache-Control'
,'no-cache');

utl_http.set_header(v_http_req
,'SOAPAction'
,'http://inr.zd.ua/zd/Api20#API20:AddTTN');

utl_http.set_header(v_http_req
,'Content-Length'
,length(v_soap_request));

utl_http.set_header(v_http_req
,'Host'
,'esb.zd.ua');

utl_http.set_header(v_http_req
,'Connection'
,'Keep-Alive');

utl_http.set_header(v_http_req
,'User-Agent'
,'Apache-HttpClient');
LOOP
buf := substrb(v_soap_request
,i
,2000);
IF buf IS NOT NULL THEN
utl_http.write_text(v_http_req
,v_soap_request);
i := i + 2000;
ELSE
EXIT;
END IF;
END LOOP;

-- call the web service and get the response
v_http_resp := utl_http.get_response(v_http_req);
-- loop through the response headers and write them out
FOR i IN 1 .. utl_http.get_header_count(v_http_resp)
LOOP
utl_http.get_header(v_http_resp
,i
,v_name
,v_value);
dbms_output.put_line('Response header ' || i || '-' || v_name || ': ' ||
v_value);
END LOOP;
-- create a block to trap the end of body exception when no more lines exist.
BEGIN
-- loop through the response text which is the soap e details
LOOP
utl_http.read_line(v_http_resp
,v_txt);
dbms_output.put_line('response line ' || v_txt);
END LOOP;
utl_http.end_response(v_http_resp);
dbms_output.put_line('End of response loop');
EXCEPTION
-- need to trap end of body exception as there is no other graceful way to do it.
WHEN utl_http.end_of_body THEN
utl_http.end_response(v_http_resp);
dbms_output.put_line('End of response loop');
END;
END;