procedure doSomething ( lResponse out INTEGER ) is
begin

   -- ... do something that fails

   exception when others =>
        
      lResponse := 0;

end doSomething;