Cascade Consistency

[dr_gori]

There is another example of something that should not be done.
Well, this example is not a faithful reproduction of the program in question. I am making a summary of the program that has a complicated and difficult consistency to understand. See what I say:

Select all

IF testa algo 
THEN Mensagem de erro. para programa. 
ELSE 
  IF testa outra coisa 
  THEN Mensagem de erro. para programa. 
  ELSE 
    IF testa outra coisa qualquer 
    THEN  Mensagem de erro. para programa. 
    ELSE 
      --se passou todas consistências, roda a rotina. 
      aqui vai o código do programa. 
      . 
      . 
      . 
    END IF; 
  END IF;  
END IF;

The programmer could simply have done as follows much easier to understand.

Select all

IF testa algo 
THEN Mensagem de erro. para programa. 
END IF; 
 
IF testa outra coisa 
THEN Mensagem de erro. para programa. 
END IF; 
 
IF testa outra coisa qualquer 
THEN  Mensagem de erro. para programa.  
END IF; 
 
--se passou todas consistências, roda a rotina. 
aqui vai o código do programa. 
. 
. 
. 

[TBou]

Exactly dr. GORI
and to improve AIDA could declare an Exception see:

Select all

 
declare 
  V_MENSAGEM  VARCHAR2(2000); 
  E_GERAL     EXCEPTION; 
BEGIN 
  IF testa algo THEN  
    V_MENSAGEM := Mensagem de erro. para programa; 
    RAISE E_GERAL; 
  END IF; 
   
  IF testa outra coisa THEN  
    V_MENSAGEM := Mensagem de erro. para programa; 
    RAISE E_GERAL; 
  END IF; 
   
  IF testa outra coisa qualquer THEN   
    V_MENSAGEM := Mensagem de erro. para programa; 
    RAISE E_GERAL; 
  END IF;  
 
  ai se passou pelas validações sem cair no Exception  
  continua executando o procedimento 
 
EXCEPTION 
  WHEN E_GERAL THEN 
    manda a mensagem para o usuario; 
END;