DECLARE
   v_URL         VARCHAR2(100) := 'https://www.zst.local/';
   req           UTL_HTTP.req;
   resp          UTL_HTTP.resp;
   is_response   BOOLEAN;
   v_txt_resp    VARCHAR2(400);
   v_bad_auth    EXCEPTION;
   v_empty_xml   EXCEPTION;

   walletdir  VARCHAR2 ( 100 ) := 'file:/***';
   walletpass VARCHAR2 ( 100 ) := '***';
   value VARCHAR2 ( 32000 );

    xmlRequest VARCHAR2(4000);
    xmlResponse varchar2(4000);

   PROCEDURE end_resp
   IS
   BEGIN
      /* is_response, resp - глобальные переменные на уровне процедуры */
      IF is_response THEN
         UTL_HTTP.end_response(resp);
         is_response := FALSE;
      END IF;
   END;

BEGIN

    UTL_HTTP.SET_WALLET( walletdir, walletpass );

    v_URL := 'https://www.***.local/***Service/***Service.asmx';

    xmlRequest := '<?xml version="1.0" encoding="utf8"?>
<soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
  <soap12:Body>
    <UserInfo xmlns="***Service">
      <svt_name>7264</svt_name>
      <sam_name></sam_name>
      <fam></fam>
      <cex></cex>
      <otd></otd>
      <tel></tel>
      <regn>0</regn>
      <tab>0</tab>
    </UserInfo>
  </soap12:Body>
</soap12:Envelope>';

    req := utl_http.begin_request('https://www.***.local/***Service/***Service.asmx', 'POST','HTTP/1.1');

    utl_http.set_header(req, 'Content-Type', 'text/xml');
    utl_http.set_header(req, 'Content-Length', length(xmlRequest));
    utl_http.set_header(req, 'SOAPAction', '***Service/UserInfo');
    utl_http.write_text(req, xmlRequest);
    resp := utl_http.get_response(req);

    is_response := TRUE;

     BEGIN

        LOOP
           UTL_HTTP.read_text(resp, value, 4000);
           dbms_output.put(value);

        END LOOP;
         EXCEPTION
            WHEN UTL_HTTP.end_of_body THEN null;
         END;

      end_resp;

END;