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