The following code is part of the ExceptionDemo. There is a description for the New method but this is not shown in Object Browser after selecting the method. Only the class Name 'TimedException' appears.
What Settings are necessary to Show the description?
********************************************************************************************************
*
* U s e r D e f i n e d E x c e p t i o n C l a s s
*
*> Definition of our very own exception class.
*> All exceptions must derive from System.Exception or a descendant thereof.
class-id TimedException inherits type Exception.
working-storage section.
*> We'll use this data member to store away the time the exception was constructed
01 obj-time type System.DateTime.
*> Create a constructor that accepts the Message for the exception
*>>
*>> Constructor of Class TimedException.
*>>
*>> System.String
method-id New.
data division.
working-storage section.
procedure division using by value str as string.
*> Pass the message on to the equivalent System.Exception constructor
invoke super::New(str)
*> and store away the time
set obj-time to type System.DateTime::Now
end method.
↧