1 /****^  ***********************************************************
 2         *                                                         *
 3         * Copyright, (C) Honeywell Bull Inc., 1987                *
 4         *                                                         *
 5         * Copyright, (C) Honeywell Information Systems Inc., 1982 *
 6         *                                                         *
 7         * Copyright (c) 1972 by Massachusetts Institute of        *
 8         * Technology and Honeywell Information Systems, Inc.      *
 9         *                                                         *
10         *********************************************************** */
11 
12 
13 stop_process: proc (a_process_id);
14 
15 /* Procedure used by a process to put itself into "stopped" state.
16    Called by process-overseer on new_proc and logout.
17 
18    Changed to crash system if caller is initializer - E Stone Aug 1974
19    Converted to PL/I, C Garman, 3 Feb 1971.
20 
21    */
22 
23 dcl a_process_id bit (36) aligned;
24 dcl  process_id bit (36) aligned,
25      istate fixed bin;
26 
27 dcl  pds$process_id bit (36) aligned ext,
28      tc_data$initializer_id bit (36) aligned ext;
29 
30 dcl syserr entry options (variable);
31 
32 dcl  pxss$stop entry (bit (36) aligned, fixed bin);
33 
34           process_id = a_process_id;                        /* Copy input */
35 
36           if process_id = pds$process_id then do;           /* See if proper process */
37 
38                if process_id = tc_data$initializer_id then  /* Might as well end it all */
39                     call syserr (1, "stop_process: attempt to stop initializer process");
40 
41                call pxss$stop (process_id, istate);
42 
43           end;                                              /* That's all folks! */
44 
45 /* BEGIN MESSAGE DOCUMENTATION
46 
47 Message:
48 stop_process: attempt to stop initializer process
49 
50 S:        $crash
51 
52 T:        $run
53 
54 M:        $err
55 
56 A:        $recover
57 
58 
59 END MESSAGE DOCUMENTATION */
60 
61      end stop_process;