Fórum Duvida em desenvolvimento de Relatorio #470612

    -- Declaração de tipos públicos
                TYPE t_refcur IS REF CURSOR; 

 PROCEDURE <nome_procedure> (in_agente  IN  <nome_esquema>.<nome_tabela>.<nome_campo>%TYPE,
                                                                  out_result      OUT t_refcur) IS
  BEGIN
        IF (in_agente = 'C' ) THEN
            OPEN out_result FOR
                   SELECT <campos>  
                   FROM   <tabelas>
                   WHERE  <campo> = in_agente;    --- faz o select necessário
        ELSEIF (in_agente = 'F') THEN
            OPEN out_result FOR
                  SELECT <campos>  
                  FROM   <tabelas> ;   
                  WHERE  <campo> = in_agente;    --- faz o select necessário
        ELSE
                   SELECT <campos>  
                  FROM   <tabelas> ;    -- faz select que vai buscar todos
        END IF;
  END <nome_procedure>;