Cursor with exceptions

[dr_gori]

For everyone's joy, let down another case with useless exceptions found these days in a package.
See below:

Select all

BEGIN 
  OPEN  cr_vl_limite_resp_aux(ldt_pesquisa); 
  FETCH cr_vl_limite_resp_aux INTO lvl_lim_pesquisa; 
  CLOSE cr_vl_limite_resp_aux; 
EXCEPTION 
  WHEN NO_DATA_FOUND THEN 
    select vl_limite_resp 
    into lvl_lim_pesquisa 
    from tb_item_transp_nac 
    where cd_pessoa = PCd_Pessoa; 
  WHEN TOO_MANY_ROWS THEN 
    lvl_lim_pesquisa := 0; 
END;

The guy made a cursor and placed those exceptions that will never be fired. That's because to test if a cursor did not return any row, it is tested with nomedocursorr% Found !!!
Another ridiculous thing here is to put TOO_MANY_ROWS in this cursor! Imagine: If the guy chose to do a cursor it's kind of obvious that he expects to return more than one line (in order to treat line per line). Hheheheh

[NaPraia]

Where do you get these pearls ????
There is something that even God doubts

[dr_gori]

Yeah ... I worked with maintenance projects a while ... hence I had to read several programs and move on them. From time to time some pearls appeared like these .. haohaoah

but I have not think so long ago ...

[rodfbar]

Look guys .. very careful about this ... what we do today tomorrow may seem bullshit .... but it happens .... huahauhauhauahua
: oops:

but it is Legal to see these things ....


A hug