declare
envio varchar2(32767);
peticion UTL_HTTP.req;
respuesta UTL_HTTP.resp;
cadena varchar2(32767);
begin

envio := 'xxx'; -- soap request

Utl_Http.Set_Response_Error_Check ( enable => true );
Utl_Http.Set_Detailed_Excp_Support ( enable => true );

utl_http.set_wallet('file:/oracle/wallets','xxx');
peticion := UTL_HTTP.begin_request ('https://xxx','POST','HTTP/1.1');

UTL_HTTP.set_header(peticion, 'Content-Type', 'text/xml');
UTL_HTTP.set_header(peticion, 'Content-Length', LENGTH(envio));
UTL_HTTP.set_header(peticion, 'SOAPAction','');
UTL_HTTP.write_text(peticion,envio);
respuesta := UTL_HTTP.get_response(peticion);
UTL_HTTP.read_text(respuesta, envio);
UTL_HTTP.end_response(respuesta);
dbms_output.put_line(envio);

exception
when Utl_Http.Request_Failed then
Dbms_Output.Put_Line ( 'Request_Failed: ' || Utl_Http.Get_Detailed_Sqlerrm );

when Utl_Http.Http_Server_Error then
Dbms_Output.Put_Line ( 'Http_Server_Error: ' || Utl_Http.Get_Detailed_Sqlerrm );

when Utl_Http.Http_Client_Error then
Dbms_Output.Put_Line ( 'Http_Client_Error: ' || Utl_Http.Get_Detailed_Sqlerrm );

when others then
Dbms_Output.Put_Line ('Otros: ' || SQLERRM);
end; 

ORA-12547: TNS:lost contact
 *Cause: Partner has unexpectedly gone away, usually during process
 startup.
 *Action: Investigate partner application for abnormal termination. On an
 Interchange, this can happen if the machine is overloaded.