mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 08:24:18 +00:00
34 lines
768 B
Plaintext
34 lines
768 B
Plaintext
/******************************************************/
|
||
/* This program is nonfunctional. Its purpose is to */
|
||
/* illustrate how PL/I executes the ON and REVERT */
|
||
/* statements. */
|
||
/******************************************************/
|
||
auto_revert:
|
||
procedure options(main);
|
||
declare
|
||
i fixed,
|
||
sysin file;
|
||
|
||
do i = 1 to 10000;
|
||
call p(i,exit);
|
||
exit:
|
||
end;
|
||
|
||
P:
|
||
procedure (index,lab);
|
||
declare
|
||
(t, index) fixed,
|
||
lab label;
|
||
|
||
on endfile(sysin)
|
||
goto lab;
|
||
|
||
put skip list(index,':');
|
||
get list(t);
|
||
if t = index then
|
||
goto lab;
|
||
end P; /* implicit REVERT supplied here */
|
||
|
||
end auto_revert;
|
||
|
||
|