1
2
3
4
5
6
7
8 bce_state: proc (P_ss_info_ptr);
9
10
11
12
13
14 dcl P_ss_info_ptr ptr parameter;
15 dcl active_fnc_err_ entry options (variable);
16 dcl active_function bit (1) aligned;
17 dcl af_return char (af_return_len) based (af_return_ptr) var;
18 dcl af_return_len fixed bin (21);
19 dcl af_return_ptr ptr;
20 dcl arg_count fixed bin;
21 dcl code fixed bin (35);
22 dcl com_err_ entry options (variable);
23 dcl cu_$af_return_arg_rel entry (fixed bin, ptr, fixed bin (21), fixed bin (35), ptr);
24 dcl error variable entry options (variable);
25 dcl error_table_$not_act_fnc fixed bin (35) ext;
26 dcl ioa_ entry options (variable);
27 dcl me char (9) init ("bce_state") static options (constant);
28
29 ss_info_ptr = P_ss_info_ptr;
30 arg_list_ptr = ss_info.arg_list_ptr;
31 call cu_$af_return_arg_rel (arg_count, af_return_ptr, af_return_len, code, arg_list_ptr);
32 active_function = (code = 0);
33 if active_function then error = active_fnc_err_;
34 else error = com_err_;
35 if arg_count ^= 0 then do;
36 call error (0, me, "Usage is: bce_state");
37 return;
38 end;
39
40 if active_function then af_return = rtrim (COLLECTION_1_PHASE_NAMES (
41 sys_info$collection_1_phase));
42 else call ioa_ ("^a", COLLECTION_1_PHASE_NAMES (sys_info$collection_1_phase));
43 return;
44 %page; %include bce_subsystem_info_;
45 %page; %include collection_1_phases;
46 end;