Re: Help with Exceptions!

["George F.Rice" <rice@mmc1001.lfwc.lockheed.com>]

Dave Jones wrote:

: procedure test is
:         x:integer ;
: begin
:         begin
:                 x := 10000000 ;
:         exception
:                 when CONSTRAINT_ERROR =>
:                         goto Next_Block ;
:         end ;
: <<Next_Block>>
:         begin
:                 x := 3 ;
:         exception
:                 when CONSTRAINT_ERROR =>
:                         RETURN ;
:         end ;
:         RETURN ;
: end test;

The goto is unnecessary; when the exception handler completes,
control will pass to the next statement anyway.

In general, the lack of a RESUME or RESUME NEXT could be considered
a feature rather than an omission.  Basic (my first language) doesn't
support structured exception handling like Ada or C++, an unfortunate 
omission on its part.

-- 
George

Quality means never having to use a sorry tool (tm)