1 /****^  ***********************************************************
 2         *                                                         *
 3         * Copyright, (C) Honeywell Bull Inc., 1987                *
 4         *                                                         *
 5         * Copyright, (C) Honeywell Information Systems Inc., 1984 *
 6         *                                                         *
 7         *********************************************************** */
 8 bce_state: proc (P_ss_info_ptr);
 9 
10 /* Return state (collection_1_phase) for bce.  Keith Loepere, May 1984. */
11 
12 /* format: style4,indattr,ifthenstmt,ifthen,idind33,^indcomtxt */
13 
14 dcl  P_ss_info_ptr                    ptr parameter;
15 dcl  active_fnc_err_                  entry options (variable);
16 dcl  active_function                  bit (1) aligned;      /* as opposed to command usage */
17 dcl  af_return                        char (af_return_len) based (af_return_ptr) var; /* return for active function */
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);/* program name */
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;