declare
req utl_http.req;
res utl_http.resp;
lv_url varchar2(4000) := 'http://<host>:<port>/<something>/';
buffer varchar2(32767);
lj_json_obj json_object_t;
BEGIN
dbms_output.put_line(lv_url);
req := utl_http.begin_request(lv_url,'POST','HTTP/1.1');
utl_http.set_header(req,'Content-type','application/json');
utl_http.set_header(req, 'Accept', 'application/json');
res := utl_http.get_response(req);
-- process the response from the HTTP call
begin
utl_http.read_text(res, buffer,1000000);
lj_json_obj := json_object_t(buffer);
utl_http.end_response(res);
exception
when utl_http.end_of_body then
utl_http.end_response(res);
end ;
end if;
end;
/
