Pasted

 
CREATE exception EX_DATA 'O valor @1 não é uma data válida!';
 
CREATE exception EX_VAL_CAMPO 'O Campo @1 não pode receber o valor @2';
 
 
CREATE OR ALTER PROCEDURE SP_TESTE (
   inCodigo INTEGER,
   inData   DATE
)
AS BEGIN
 
   IF (:inData IS NULL) THEN
      exception EX_DATA USING (:inData);
 
   IF (:inData < CURRENT_TIMESTAMP) THEN
      exception EX_VAL_CAMPO USING ('DATA',:inData);
 
   IF (:inCodigo IS NULL) THEN
      exception EX_VAL_CAMPO USING ('CODIGO','NULO');
 
END