1 /*  START OF:       forum_info.incl.pl1             *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *   */
 2 
 3 
 4 
 5 /****^  HISTORY COMMENTS:
 6   1) change(86-07-30,Pattin), approve(86-07-30,MCR7354),
 7      audit(86-08-03,Margolin), install(86-08-16,MR12.0-1128):
 8      Changed to version 2, speed up call by not calculating remove count.
 9                                                    END HISTORY COMMENTS */
10 
11 
12 declare   forum_info_ptr      ptr;
13 
14 declare   1 forum_info                  aligned based (forum_info_ptr),
15             2 version                   fixed bin,          /* Must be 1 or 2                                           */
16             2 forum_uid                 bit (36),
17             2 chairman                  unaligned,
18               3 username                char (20),
19               3 project                 char (9),
20               3 pad                     char (3),
21             2 attendee_count            fixed bin,
22             2 removal_count             fixed bin,          /* always 0 in version 2 */
23             2 transaction_count         fixed bin,
24             2 deletion_count            fixed bin,
25             2 last_seen_trans_idx       fixed bin,
26             2 last_time_changed         fixed bin (71),
27             2 last_time_attended        fixed bin (71),
28             2 changes_count             fixed bin,
29             2 flags                     unaligned,
30               3 eligible                bit (1),
31               3 mbz1                    bit (1),
32               3 removed                 bit (1),
33               3 notify                  bit (1),
34               3 attending               bit (1),
35               3 mbz2                    bit (2),
36               3 read_only               bit (1),
37               3 adjourned               bit (1),
38               3 mbz3                    bit (27);
39 
40 declare   forum_info_version_1          fixed bin static options (constant) initial (1),
41           forum_info_version_2          fixed bin static options (constant) initial (2);
42 
43 /*  END OF:         forum_info.incl.pl1             *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *   */