Anonymous user
Exceptions: Difference between revisions
→{{header|PL/I}}
Line 790:
=={{header|PL/I}}==
<lang>
/* 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. */
</lang>
| |||