FETCH don't works.

Question

Hi,
I' ve a dynamic cursor that opens normally in a pl/sql code. However, when I'm debugin it the fetch command don't works. Nothing ocurrs. The next line never is executed.
I executed the cursor sql separatelty and it works fine.
I create a new script isolating this cursor and the fetch works fine.
Can someone give me an idea?
Thanks
Leonardo Luiz

Answer 1

My code:
function OpenEstornoDocumentacao(carga in out nocopy Processo,iMotivo in pls_integer) return refcursor is
begin
declare
sqlstm varchar(4000);
EstornoDocumentacao refcursor;
regChurning ChurningAtivacao;
begin
begin
dbglog(' Cursor EstornoDocumentacao');
sqlstm :=
'select a.num_sequencial, a.num_telefone, a.dat_movimento, ' ||
' a.cod_ponto_venda, a.cod_mat_funcionario, a.cod_pro_ser, null ' ||
'from ( ' ||
' select m.num_sequencial, m.num_telefone, m.dat_movimento, ' ||
' m.cod_ponto_venda, m.cod_mat_funcionario, m.cod_pro_ser, m.cod_sub_canal ' ||
' from comis_dir.movimento_venda m, tcdoc.vw_tcdoc_varejo_comissiona@dl_oltp d ' ||
' where m.dat_movimento >= :DataReferenciaMotivo ' ||
' and m.dat_movimento < :DataReferencia ' ||
-- Pós-pago e Controle
' and m.cod_pro_ser in (17,1013) ' ||
' and m.cod_sub_canal = :CodSubCanal ' ||
' and m.num_telefone = d.num_telefone ' ||
-- ********** incluir um filtro para o motivo ou descrição '
' and trunc(m.dat_movimento) = trunc(d.dat_ativacao) ' ||
-- Não corporativo
' and m.cod_sub_canal not in (7,6,15,16) ' ||
' union ' ||
' select m.num_sequencial, m.num_telefone, m.dat_movimento, ' ||
' m.cod_ponto_venda, m.cod_mat_funcionario, m.cod_pro_ser, m.cod_sub_canal ' ||
' from comis_dir.movimento_venda m, tcdoc_corp.vw_tcdoc_corp_comissiona@dl_oltp d ' ||
' where m.dat_movimento >= :DataReferenciaMotivo ' ||
' and m.dat_movimento < :DataReferencia ' ||
-- Pós-pago e Controle
' and m.cod_pro_ser in (17,1013) ' ||
' and m.cod_sub_canal = :CodSubCanal ' ||
' and m.num_telefone = d.num_telefone ' ||
-- *********** incluir um filtro para o motivo ou descrição
' and m.dat_movimento = d.dat_ativacao ' ||
-- Corporativo
' and m.cod_sub_canal in (7,6,15,16) ' ||
' ) a , comis_dir.sub_canal sc, comis_dir.produto_servico ps ' ||
' where a.cod_sub_canal = sc.cod_sub_canal ' ||
' and a.cod_pro_ser = ps.cod_pro_ser ' ||
' and sc.cod_empresa = ps.cod_empresa ' ||
' and ' ||
' (( (ps.cod_pro_ser in (17,1013) ' ||
' and sc.cod_empresa = 1) ' ||
' or (ps.cod_pro_ser in (1572,1540) ' ||
' and sc.cod_empresa = 2) ) ' ||
' or ' ||
' ( (ps.cod_pro_ser_pai in (17,1013) ' ||
' and sc.cod_empresa = 1) ' ||
' or (ps.cod_pro_ser_pai in (1572,1540) ' ||
' and sc.cod_empresa = 2) )) ';
open EstornoDocumentacao
for sqlstm
using
carga.motivos(iMotivo).dataReferencia,
add_months(carga.motivos(iMotivo).dataReferencia,1),
carga.CodSubCanal,
add_months(carga.motivos(iMotivo).dataReferencia,1),
carga.DataInicio,
carga.CodSubCanal;
-- HERE IS MY PROBLEM !!!!!!!
fetch EstornoDocumentacao into regChurning;
dbglog('Mês : ' || carga.motivos(iMotivo).dataReferencia ||
' - ' || add_months(carga.motivos(iMotivo).dataReferencia,1) ||
' - ' || carga.CodSubCanal
exception
when others then
raise_application_error(-20001,'Erro obtendo os registros de estorno de documenatação. ' || sqlerrm);
end;
return EstornoDocumentacao;
end;
end OpenEstornoDocumentacao;