Common exception handling

[shaunpatterson@gmail.com]

I'm wondering if there is a clean way to do something common for all
throw exceptions and then handle each exception.  For exception...

procedure Test (Rec : Record) is
begin

    ... throw 3 possible exceptions...


exception
    when A =>
       Print_Test (Rec);
       ...
    when B =>
       Print_Test (Rec);
       ...
    when C =>
       Print_Test (Rec);
       ...
    when others =>
       Print_Test (Rec);
end Test;

I'd like to not duplicate the Print_Test in each situation.  Is there
an easy way

Thanks,

Shaun