[raphaac]

PROCEDURE SP_CODIGO_EXEM_STATUS(P_PROD_CD_SQUENCIAL IN NUMBER,
CRESULT OUT C_CURSOR) AS

BEGIN
OPEN CRESULT FOR

  SELECT C.CODI_CD_SQUENCIAL as ID,
         C.CODI_CD_INTERNO as "CODIGO INTERNO", 
         DECODE((SELECT COUNT(*) FROM TBT_EVENTO E WHERE E.CODI_CD_SQUENCIAL(+) = C.CODI_CD_SQUENCIAL AND
                              E.EVEN_DT_REALDEVOLUCAO IS NULL),'0','Acervo','Emprestado')
          AS STATUS
    FROM TBT_CODIGO C
   WHERE C.PROD_CD_SQUENCIAL = P_PROD_CD_SQUENCIAL;       

END;

Obrigado.

[quote=”Litz”:3op84aqu]Cara tem como vc postar a procedure inteira ai?[/quote]