Hmmm ... if you are coming from an Ada background you could consider the sub doSomething as a procedure with an out parameter. You know ...

procedure doSomething ( lResponse out INTEGER ) is
begin

   -- ... do something that fails

   exception when others =>
        
      lResponse := 0;

end doSomething;
[download]