/* 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.                                 */