1 /****^  ***********************************************************
 2         *                                                         *
 3         * Copyright, (C) Honeywell Bull Inc., 1987                *
 4         *                                                         *
 5         * Copyright, (C) Honeywell Information Systems Inc., 1984 *
 6         *                                                         *
 7         *********************************************************** */
 8 bce_die: proc (P_ss_info_ptr);
 9 
10 /* kill ourselves off.
11 Keith Loepere, January 1984. */
12 
13 /* format: style4,indattr,ifthenstmt,ifthen,idind33,^indcomtxt */
14 
15 dcl  P_ss_info_ptr                    ptr parameter;
16 dcl  arg                              char (arg_len) based (arg_ptr);
17 dcl  arg_count                        fixed bin;
18 dcl  arg_len                          fixed bin (21);
19 dcl  arg_ptr                          ptr;
20 dcl  bce_alm_die                      entry;
21 dcl  bce_query$yes_no                 entry options (variable);
22 dcl  code                             fixed bin (35);
23 dcl  com_err_                         entry () options (variable);
24 dcl  cu_$arg_count_rel                entry (fixed bin, ptr, fixed bin (35));
25 dcl  cu_$arg_ptr_rel                  entry (fixed bin, ptr, fixed bin (21), fixed bin (35), ptr);
26 dcl  me                               char (3) static options (constant) init ("die");
27 dcl  request_abort_                   condition;
28 dcl  yes_no                           bit (1);
29 
30           ss_info_ptr = P_ss_info_ptr;
31           call cu_$arg_count_rel (arg_count, ss_info.arg_list_ptr, code);
32           if code ^= 0 then go to arg_error;
33           if arg_count > 0 then do;
34                call cu_$arg_ptr_rel (1, arg_ptr, arg_len, code, ss_info.arg_list_ptr);
35                if arg = "-force" | arg = "-fc" then call bce_alm_die;
36                else go to arg_error;
37                if arg_count > 1 then do;
38 arg_error:          call com_err_ (code, me, "Usage is: die {-force | -fc}");
39                     return;
40                end;
41           end;
42           call bce_query$yes_no (yes_no, "Do you really wish bce to die? ");
43           if yes_no then call bce_alm_die;
44           else signal request_abort_;
45 %page; %include bce_subsystem_info_;
46      end;
47