Directives
<<Successor:>>
<<Predecessor:>>
Successor Directive
Assignment
SetEnumeration
Dog_Show.Event_day := <<Successor:Dog_Show.Event_day>>
The Successor directive takes an enumeration type data item and returns the next defined literal in the sequence. If the specified data item is last in the sequence then an error is signalled at run-time.
Predecessor Directive
Assignment
SetEnumeration
Holiday.Feast_day := <<Predecessor:Holiday.Last_day>>
The Predecessor directive takes an enumeration type data item and returns the previously defined literal in the sequence. If the specified data item is first in the sequence then an error is signalled at run-time.
|