1 /* ***********************************************************
 2    *                                                         *
 3    * Copyright, (C) Honeywell Information Systems Inc., 1982 *
 4    *                                                         *
 5    * Copyright (c) 1972 by Massachusetts Institute of        *
 6    * Technology and Honeywell Information Systems, Inc.      *
 7    *                                                         *
 8    *********************************************************** */
 9 
10 
11 def:      proc;
12 
13 /* this procedure is used for testing default_error_handler_.
14    By varying its ACL, different faults may be obtained.
15 */
16 dcl ioa_  entry() options(variable);
17 
18 
19 call ioa_ ("This is def.");
20 return;
21 end;