1 /* BEGIN xforum_info.incl.pl1        NSDavids     84-08-15 */
 2 
 3 
 4 
 5 /****^  HISTORY COMMENTS:
 6   1) change(87-07-21,LJAdams), approve(87-07-21,MCR7684),
 7      audit(87-07-24,Blair), install(87-08-06,MR12.1-1065):
 8      Declared constants for the different menu choices.
 9                                                    END HISTORY COMMENTS */
10 
11 
12 /*
13    This structure is used to pass information between the various
14    xforum routines
15 */
16 
17 
18 dcl 01 xforum_info based (xforum_info_ptr),
19      02 main_options,
20       03 xforum_mtg_list_ptr ptr,
21       03 usage_message char (80),
22       03 xforum_sys_area_ptr ptr,
23       03 function_key_data_ptr ptr,
24       03 spy_ptr ptr,
25       03 choice fixed bin,
26       03 more_choice fixed bin,
27       03 curr_meeting_index fixed bin,
28       03 menu_always_flag bit (1),
29       03 use_alternate_fkeys bit (1),
30       03 more_flag bit (1) aligned,
31       03 multics_mode bit (1),
32       03 handle_interactive_messages bit (1);
33 
34 dcl xforum_info_ptr ptr;
35 
36 /* CONSTANTS */
37 
38 dcl (
39     CHANGED_MTG                        fixed bin init (1),
40     ATTENDED_MTG                       fixed bin init (2),
41     ELIGIBLE_MTG                       fixed bin init (3),
42     NEXT_MTG                           fixed bin init (4),
43     MODIFY_MTG_LIST                    fixed bin init (5),
44     PERSONALIZE                        fixed bin init (6),
45     GET_STARTED                        fixed bin init (7),
46     MULTICS_MODE                       fixed bin init (8),
47     XFORUM_MENU                        fixed bin init (9)
48     )                                  internal static options (constant);
49 
50 /* END xforum_info.incl.pl1        NSDavids     84-08-15 */