Retrieving Ada exception names under VAX/VMS

["PSI%SNMSN1::PSI%DSAVX1::WILLY@slb-test.CSNET".UUCP]

The following message was sent to me by Herve BITTEUR who asked 
me to forward it to INFO-ADA. Please send any direct replies to 
me and I'll pass them to Herve.


Regards,

C. Scott Willy
Dowell Schlumberger
B.P. 90
42103 St-Etienne France
77.32.64.23
WILLY%M_DSAVX1%SLB-DOLL.CSNET@RELAY.CS.NET
-------------------------------cut here-------------------------------------
	I guess somebody has already developed the tool I need to implement
a general 'error_handler' in an Ada application.
	This application is a real-time one, it uses about 40 Ada tasks.
	I would like to know, when a task dies for a non-handled exception,
at least the NAME of this exception.
	Compared with a sequential program which, before dying, tells you 
the name of the exception, a program made of several tasks does not die, 
only the task dies. So I would like to be able to program this kind of code 
in the body of each task :

	    ...
	exception
	    when others =>
		TEXT_IO.PUT_LINE(CURRENT_EXCEPTION.NAME);


	This uses a package CURRENT_EXCEPTION which exports, via NAME routine,
the name of the current exception. This is derived from a Data General environ-
ment, but I am sure that someone has developed something analogous for a
VAX/VMS or VAX/ELN environment, with the DEC Ada compiler.

	I hope this person will read this message, and thank him in advance.

Herve BITTEUR