************
   -- v_xmlRequest тут json с русскими буквами. Тип Varchar2

    Utl_http.Set_transfer_timeout(60);

    l_req := Utl_http.Begin_request(url => v_url, METHOD => 'POST', http_version => 'HTTP/1.1');

    Utl_http.Set_header(r => l_req, NAME  => 'user-agent',   VALUE => 'mozilla/4.0');
    Utl_http.Set_header(r => l_req, NAME  => 'Content-Type', VALUE => 'application/json');
    -- 17-08-2020
    Utl_http.Set_header(r => l_req, NAME  => 'charset',      VALUE => 'utf-8');
    Utl_http.Set_body_charset('utf-8');
   
    l_i := LENGTH(v_xmlRequest);
    Utl_http.Set_header(l_req,
                        'Content-Length',
                        -- VALUE => LENGTHB(v_xmlRequest)
                        -- VALUE => l_i + 15
                        LENGTH(CONVERT(v_xmlRequest, 'UTF8')) -- 18-11-2021
                       );


    ps    := 1;
    l_amt := 48;
    LOOP
        Utl_http.Write_text(l_req, SUBSTR(v_xmlRequest, ps, l_amt));
        ps := ps + l_amt;
        IF ps > l_i THEN
            EXIT;
        END IF;

    END LOOP;

    l_resp := Utl_http.Get_response(l_req);

************