12 lines
413 B
Plaintext
12 lines
413 B
Plaintext
/* Define a new exception, called "my_condition". */
|
|
on condition (my_condition) snap begin;
|
|
put skip list ('My condition raised.');
|
|
end;
|
|
|
|
/* Raise that exception */
|
|
signal condition (my_condition);
|
|
|
|
/* Raising that exception causes the message "My condition raised" */
|
|
/* to be printed, and execution then resumes at the statement */
|
|
/* following the SIGNAL statement. */
|