L_HTTP_REQUEST := UTL_HTTP.BEGIN_REQUEST(L_URL,'POST',UTL_HTTP.HTTP_VERSION_1_1);
UTL_HTTP.SET_PERSISTENT_CONN_SUPPORT(L_HTTP_REQUEST,true);
UTL_HTTP.SET_TRANSFER_TIMEOUT(L_HTTP_REQUEST,L_TIMEOUT);
UTL_HTTP.SET_BODY_CHARSET(L_CODEPAGE);
UTL_HTTP.SET_HEADER(L_HTTP_REQUEST,'Content-Type','application/xml; charset='||L_CODEPAGE);
UTL_HTTP.SET_HEADER(L_HTTP_REQUEST,'Accept','application/xml; charset='||L_CODEPAGE);
UTL_HTTP.SET_HEADER(L_HTTP_REQUEST,'Transfer-Encoding','chunked');
UTL_HTTP.SET_HEADER(L_HTTP_REQUEST,'Content-Length',LEN_BYTE);

OFFSET := 1;
while (OFFSET < LEN_SYM) loop
  DBMS_LOB.READ(L_BODY_REQ,plp$AMOUNT,OFFSET,BUFFER);
  UTL_HTTP.WRITE_TEXT(L_HTTP_REQUEST,BUFFER);
  OFFSET := OFFSET+plp$AMOUNT;
end loop;

L_HTTP_RESPONSE := UTL_HTTP.GET_RESPONSE(L_HTTP_REQUEST);

begin
  loop
    UTL_HTTP.READ_RAW(L_HTTP_RESPONSE,L_BUFFER,plp$AMOUNT);
    DBMS_LOB.WRITEAPPEND(L_BLOB,UTL_RAW.LENGTH(L_BUFFER),L_BUFFER);
  end loop;
exception
  when UTL_HTTP.END_OF_BODY then
    UTL_HTTP.END_RESPONSE(L_HTTP_RESPONSE);
   when others then
    if sqlcode in (-4061,-6508) then raise; end if;
    UTL_HTTP.END_RESPONSE(L_HTTP_RESPONSE);
     L_ERR := SUBSTR(UTL_HTTP.GET_DETAILED_SQLERRM,1,plp$AMOUNT);
end;

if L_HTTP_RESPONSE.STATUS_CODE <> UTL_HTTP.HTTP_OK then  					
  L_ERR := L_ERR||'Запрос завершился с ошибкой. Код ошибки: '||L_HTTP_RESPONSE.STATUS_CODE;
end if;

declare 
L_BODY_REQ	clob;
begin
  select BODY into L_BODY_REQ from TABLE where ID=1256152;
end;