1 /* BEGIN INCLUDE FILE     xforum_spy     84-06-19 NSDavids */
 2 
 3 
 4 
 5 /****^  HISTORY COMMENTS:
 6   1) change(85-01-01,Davids), approve(85-01-01,MCR7350),
 7      audit(86-04-24,Gilcrease), install(86-04-24,MR12.0-1048):
 8      Modified to include personalization and subject selection.
 9                                                    END HISTORY COMMENTS */
10 
11 
12 dcl 01 spy based (spy_ptr),
13      02 version char (8),
14      02 user_name char (32),
15      02 date_time char (32),
16      02 args char (80),
17      02 eligible fixed bin,
18      02 attending fixed bin,
19      02 changed fixed bin,
20      02 count fixed bin,
21      02 choices (0 refer (count)),
22       03 at fixed bin,
23       03 choice char (10);
24 
25 
26 dcl spy_ptr ptr;
27 dcl SPY_VERSION_1 char (8) init ("spy_0001");
28 
29 dcl SPY_AT_1 fixed bin init (1) internal static options (constant);
30           /* At Executive Forum Main menu */
31 dcl SPY_AT_2 fixed bin init (2) internal static options (constant);
32           /* Requesting Help */
33 dcl SPY_AT_3 fixed bin init (3) internal static options (constant);
34           /* At General Help menu */
35 dcl SPY_AT_4 fixed bin init (4) internal static options (constant);
36           /* At query for a meeting name to goto */
37 dcl SPY_AT_5 fixed bin init (5) internal static options (constant);
38           /* At menu of meeting names */
39 dcl SPY_AT_6 fixed bin init (6) internal static options (constant);
40           /* At query for a meeting name to resign from */
41 dcl SPY_AT_7 fixed bin init (7) internal static options (constant);
42           /* At Attending Meeting menu */
43 dcl SPY_AT_8 fixed bin init (8) internal static options (constant);
44           /* At replying to a transaction */
45 dcl SPY_AT_9 fixed bin init (9) internal static options (constant);
46           /* At entering a new transaction */
47 dcl SPY_AT_10 fixed bin init (10) internal static options (constant);
48           /* At query for a transaction specifier */
49 dcl SPY_AT_11 fixed bin init (11) internal static options (constant);
50           /* At query to check for changed meetings */
51 dcl SPY_AT_12 fixed bin init (12) internal static options (constant);
52           /* At Getting Started menu */
53 dcl SPY_AT_13 fixed bin init (13) internal static options (constant);
54           /* Meeting list update query, change in number of search paths */
55 dcl SPY_AT_14 fixed bin init (14) internal static options (constant);
56           /* Meeting list update query, change in search paths listed */
57 dcl SPY_AT_15 fixed bin init (15) internal static options (constant);
58           /* Copy Comments file name query */
59 dcl SPY_AT_16 fixed bin init (16) internal static options (constant);
60           /* At Personalization menu */
61 dcl SPY_AT_17 fixed bin init (17) internal static options (constant);
62           /* Personalizing an item prompt */
63 dcl SPY_AT_18 fixed bin init (18) internal static options (constant);
64           /* string search prompt for comment selection */
65 dcl SPY_AT_19 fixed bin init (19) internal static options (constant);
66           /* subject selection */
67 
68 dcl SPY_LOCATION (19) char (20) varying init (
69           "XForum Main menu",
70           "Requesting Help",
71           "General Help menu",
72           "Meeting to goto?",
73           "Meeting names menu",
74           "Meeting to resign?",
75           "Meeting menu",
76           "Repling",
77           "Talking",
78           "Trans. spec?",
79           "Check changed mtgs",
80           "Getting Started",
81           "List update, num",
82           "List update, list",
83           "Copy to file name",
84           "Personalizing menu",
85           "Personalizing prompt",
86           "String search prompt",
87           "Subject selection") internal static options (constant);
88 
89 /* END INCLUDE FILE     xforum_spy */