PL/SQL Loop is too slow??

Question

Hi all,
I have a basic loop (LOOP..END LOOP) for reading a very large varchar2 variable. In this Loop i always read 1 caracter for header (size in bytes) and the amount of data. Why this loop processing is too slow??? Can i boost it with something?
Thanx.

Answer 1

Function to read data on a socket
Always read 1 byte for length, and with this length,
body of message.
FUNCTION PEGA_MESG (io_Conex_Env IN OUT Utl_Tcp.connection)
RETURN LONG RAW
IS
v_Buffer LONG RAW;
v_Mesg LONG RAW;
v_intResp INTEGER;
v_intBytes INTEGER;
v_qtde_bytes integer;
BEGIN
v_Mesg := NULL;
LOOP
v_intResp := utl_tcp.read_raw(io_Conex_Env, v_Buffer, 1);
v_qtde_bytes := ascii(utl_raw.cast_to_varchar2(v_Buffer));
v_intResp := utl_tcp.read_raw(io_Conex_Env, v_Mesg, v_qtde_bytes);
EXIT WHEN v_Mesg is not null;
END LOOP;
RETURN(v_Mesg);
END;
This is a little peace of my prog. If i send a lot of data, my prog get too slow.
loop
v_Mesg := Pega_Mesg(io_conexao);
if ( v_Mesg = utl_raw.cast_to_raw('sum')) then
v_Mesg := Pega_Mesg(io_conexao);
l_Dados.DELETE;
while v_Mesg <> utl_raw.cast_to_raw('fimsum') loop
for sumario in 1..4 loop -- Loop para quantidade de campos na tabela saida_sumario
l_Dados(sumario) :=Long postings are being truncated to ~1 kB at this time.