1
2
3
4
5
6
7
8 bce_die: proc (P_ss_info_ptr);
9
10
11
12
13
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