Erro ao retornar registros em Proc

[lkey 0]

Ola pessoal,

 

Estou com um problema na hora de retornar registros numa proc, na verdade, acho que nao estou sabendo fazer direito...

 

Dei uma pesquisada pelo google antes, até achei uns topicos do Motta, mais mesmo assim.. a minha nao esta indo muito bem..hehe

 

Segue exemplo, agradeço ajuda desde ja

 

--CRIA PACKAGE

create or replace package T_CURSOR IS

type CT IS REF CURSOR;

end;

 

--CRIA PROC

CREATE OR REPLACE

PROCEDURE proc1 (pCursor IN OUT T_CURSOR.CT, pParam IN number)

IS

 

BEGIN

 

if pCursor %isopen then

Close pCursor;

end if;

 

OPEN pcursor FOR

 

SELECT * from tbmm where CODIGO =pParam;

 

END;

 

-- FAZ CHAMADA EM QUALQUER FERRAMENT GRAFICA

 

DECLARE

CS T_CURSOR.CT;

CODIGO NUMBER;

 

BEGIN

PROC1(CS,31);

END;

 

Nao traz o resultado na tela, o que to fazendo de errado??

 

Abs

[Motta 645]

+ou- isto ...

 

begin

proc1 (cs,31);

loop

fetch cs into a,b,c,d,e...; -- campos do select da sp

exit when q%notfound;

dbms_output.put_line(a);

dbms_output.put_line(B);

dbms_output.put_line©;

dbms_output.put_line(d);

dbms_output.put_line(e);

end loop;

end;

 

mas na realidade uso isto junto com Crystal Reports , o

[lkey 0]

+ou- isto ...

 

begin

proc1 (cs,31);

loop

fetch cs into a,b,c,d,e...; -- campos do select da sp

exit when q%notfound;

dbms_output.put_line(a);

dbms_output.put_line(B);

dbms_output.put_line©;

dbms_output.put_line(d);

dbms_output.put_line(e);

end loop;

end;

 

mas na realidade uso isto junto com Crystal Reports , o

 

Valeu Motta,

 

Fiz seu teste e deu certo. !!

 

MAis fiquei com a seguinte duvida, como faço para uma aplicação especifica (ex Java) capturar esses dados quando chamar a proc?

 

Obrigado!!!