一个关于错误处理的过程

 create or replace procedure RaiseError(
  p_Raise in boolean:=true,p_ParameterA out number) as
  begin
  p_ParameterA:=7;
  if p_Raise then
  Raise dup_val_on_index;
  else
  return;
  end if;
  end RaiseError;
/