1 /* BEGIN INCLUDE FILE forum_meeting_list.incl.pl1 */ 2 3 4 /****^ HISTORY COMMENTS: 5 1) change(86-07-30,Pattin), approve(86-07-30,MCR7354), 6 audit(86-08-03,Margolin), install(86-08-16,MR12.0-1128): 7 Created to make check_meetings saved list accessible outside forum. 8 END HISTORY COMMENTS */ 9 10 /* This include file declares the structure used to hold the results of the 11 forum_check_meetings command. It is pointed to by the external variable 12 forum_data_$meeting_list. 13 14 The array contains information about 'no_selected' meetings. The 'order' 15 array contains sorting information (alphabetical order by short name) that 16 can be used in the following way: 17 18 do idx = 1 to forums_array.no_selected; 19 process (forums_array.forums (forums_array.forums(idx).order)); 20 end; 21 22 The 'processed' flag should be set to indicate that this entry has 23 been used. The forum 'next_meeting' request obeys this protocol. */ 24 25 declare forums_array_ptr ptr, 26 forum_data_$meeting_list ptr external; 27 28 declare 1 forums_array aligned based (forums_array_ptr), 29 2 version char (8), 30 2 no_selected fixed bin, 31 2 no_changed fixed bin, 32 2 forums (0 refer (forums_array.no_selected)), 33 3 long_name char (26) unaligned, 34 3 short_name char (26) unaligned, 35 3 path_name char (168) unaligned, 36 3 chairman char (32) unaligned, 37 3 uid bit (36) aligned, 38 3 count fixed bin, /* changed transactions */ 39 3 last_seen fixed bin, 40 3 last_trans fixed bin, /* last in meeting */ 41 3 flags unaligned, 42 4 eligible bit (1), 43 4 removed bit (1), 44 4 notify bit (1), 45 4 attending bit (1), 46 4 two_names bit (1), /* short_name is valid iff this is on */ 47 4 read_only bit (1), 48 4 attended bit (1), 49 4 adjourned bit (1), 50 4 processed bit (1), /* next_meeting has used this one */ 51 4 mbz bit (27), 52 3 order fixed bin; /* see above */ 53 54 declare forum_meeting_list_version_1 char (8) static options (constant) init ("FML_1"); 55 56 /* END INCLUDE FILE forum_meeting_list.incl.pl1 */