Erro ao retornar registros em Proc

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