КОДdeclare
error_log varchar2(2000);

v_active_contracts number(3);
v_active_sim number(3);
v_state_count number(3);
v_check_contracts number(3);
v_state_msisdn varchar2(20);
v_user varchar2(30);

http_req utl_http.req;
http_resp utl_http.resp;
request_env varchar2(32767);
response_env varchar2(32767);
error_details varchar2(32767);

http_req2 utl_http.req;
http_resp2 utl_http.resp;
request_env2 varchar2(32767);
response_env2 varchar2(32767);

name VARCHAR2(256);
value VARCHAR2(1024);
new_address varchar2(1000);
begin

request_env := '<soapenv:Envelope xmlns:soapenv=" http://schemas.xmlsoap.org/soap/envelope/">
<soapenv:Body>
<LGI>
<OPNAME>>US</OPNAME>
<PWD>PASS</PWD>
</LGI>
</soapenv:Body>
</soapenv:Envelope>';

http_req := utl_http.begin_request('http://10.1.34.21:8001/',
'POST',
utl_http.HTTP_VERSION_1_1);
utl_http.set_header(http_req, 'Content-Type', 'text/xml; charset=utf-8');
utl_http.set_header(http_req, 'Content-Length', length(request_env));
utl_http.set_header(http_req, 'Connection', 'keep-alive');
utl_http.write_text(http_req, request_env);
http_resp := utl_http.get_response(http_req);

FOR i IN 1 .. utl_http.get_header_count(http_resp) LOOP
utl_http.get_header(http_resp, i, name, value);

if name = 'Location' then
new_address := trim(value);
end if;
END LOOP;

utl_http.read_text(http_resp, response_env);
dbms_output.put_line(response_env);
utl_http.end_response(http_resp);
--utl_http.end_request(http_req);

dbms_output.put_line(new_address);
--dbms_lock.sleep(5);

request_env := '<soapenv:Envelope xmlns:soapenv=" http://schemas.xmlsoap.org/soap/envelope/">
<soapenv:Body>
<ADD_KI>
<HLRSN>1</HLRSN>
<IMSI>863456789102228</IMSI>
<OPERTYPE>ADD</OPERTYPE>
<KIVALUE>11111111111111111111111111111111</KIVALUE>
<CARDTYPE>SIM</CARDTYPE>
<ALG>COMP128_1</ALG>
</ADD_KI>
</soapenv:Body>
</soapenv:Envelope>';

http_req2 := utl_http.begin_request(new_address,
'POST',
utl_http.HTTP_VERSION_1_1);
utl_http.set_header(http_req2, 'Content-Type', 'text/xml; charset=utf-8');
utl_http.set_header(http_req2, 'Content-Length', length(request_env));
utl_http.write_text(http_req2, request_env);
http_resp := utl_http.get_response(http_req2);

utl_http.read_text(http_resp, response_env);
dbms_output.put_line(response_env);
-- utl_http.end_response(http_resp);
utl_http.end_response(http_resp);

end;