Blog do Marcio Portes

ops$marcio@ORA10G> create or replace trigger prevent_when
  2     after create or alter on schema
  3  declare
  4     sql_text ora_name_list_t;
  5     stmt     varchar2(2000);
  6     n        number;
  7  begin
  8     if ( ora_dict_obj_type = 'TRIGGER' ) then
  9        n := ora_sql_txt(sql_text);
 10        for i in 1 .. n
 11        loop
 12            stmt := stmt || sql_text(i);
 13        end loop;
 14        if ( instr(upper(stmt), 'WHEN OTHERS') > 0 ) then
 15           raise_application_error( -20001, 'Uso indesejavel do WHEN OTHERS');
 16        end if;
 17     end if;
 18  end;
 19  /

Trigger created.

ops$marcio@ORA10G>
ops$marcio@ORA10G> create table t ( x int );

Table created.

ops$marcio@ORA10G> create or replace trigger t_bi_fer
  2  before insert on t for each row
  3  declare
  4     n number;
  5  begin
  6     n := 10/0;
  7  exception
  8    when others then
  9       null;
 10  end;
 11  /
create or replace trigger t_bi_fer
                          *
ERROR at line 1:
ORA-00604: error occurred at recursive SQL level 1
ORA-20001: Uso indesejavel do WHEN OTHERS
ORA-06512: at line 13

Obviamente, o exemplo acima deve ser aperfeiçoado, já que é possível separar WHEN OTHERS em duas linhas ou colocar mais espaços entre eles. A demonstração serve apenas para uma idéia de como implementar o bloqueio.

No texto todo, nota-se claramente o uso excessivo da cláusula WHEN OTHERS. Isso foi proposital, para frisar. Assim, quando a virem em algum código lembrem-se do que foi discutido aqui.

# posted by Marcio : 9:39 PM