1 /* BEGIN INCLUDE FILE ... command_usage.incl.pl1 ... GMP 780812 */
 2 
 3 /* Modified in July, 1983 by G. Dixon - add usage_list_size variable */
 4 
 5 dcl 1 usage_list aligned based (usage_list_ptr),            /* control structure for usage counting */
 6     2 n_commands fixed binary,                              /* number of commands and aliases */
 7     2 locked bit (1) aligned,                               /* ON => list being edited */
 8     2 directory character (168) unaligned,                  /* containing dir for .usage segments */
 9     2 commands (usage_list_size refer (usage_list.n_commands)),
10       3 name character (32) varying,                        /* command/alias name */
11       3 slot fixed binary unaligned,                        /* if primary, index of totals;
12                                                                if alias, index of primary */
13       3 primary bit (1) unaligned,                          /* ON => first command of group */
14       3 count_users bit (1) unaligned;                      /* ON => count usage by user */
15 
16 dcl  usage_totals (1) fixed binary (35) based (usage_totals_ptr);
17                                                             /* usage count for each command group */
18 
19 dcl 1 user_list (user_list_size) aligned based (user_list_ptr),
20     2 name character (32),                                  /* Person.Project.* */
21     2 count fixed binary (35);                              /* count for this user */
22 
23 dcl  usage_list_size fixed binary;
24 dcl  user_list_size fixed binary static options (constant) initial (200);
25 
26 /* END INCLUDE FILE ... command_usage.incl.pl1 */
27