PROCEDURE PESQUISA_CREDENC_A_VENCER(p_DIAS_INICIAL IN NUMBER,
                                    p_DIAS_FINAL IN NUMBER,
                                    p_DATABASE IN DATE,
                                    p_Cursor OUT SYS_REFCURSOR) IS
  BEGIN

    OPEN p_Cursor FOR
      SELECT cert.tcg_rge_ruc, cert.tcg_fec_fim_cred
       FROM tab_certif_graf cert
      WHERE (TRUNC(cert.tcg_fec_fim_cred) - TRUNC(p_DATABASE)) > p_DIAS_INICIAL
      AND (TRUNC(cert.tcg_fec_fim_cred) - TRUNC(p_DATABASE)) < p_DIAS_FINAL;
END;