1 /* BEGIN INCLUDE FILE ... mseg_access_mode_values.incl.pl1 */
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(85-04-01,Palter), approve(), audit(), install():
 6      Initial coding.
 7   2) change(87-04-08,GDixon), approve(87-07-14,MCR7706),
 8      audit(87-07-14,Parisek), install(87-08-04,MR12.1-1056):
 9      Add mseg queue access values for queue users and administrators.
10                                                    END HISTORY COMMENTS */
11 
12 
13 /* format: style3,linecom */
14 
15 /* Definition of the extended access modes implemented by the message segment primitives (mseg_) */
16 
17 declare   (
18      /*** The individual modes */
19           MSEG_A_ACCESS       initial ("400000000000"b3),   /* add a message */
20           MSEG_D_ACCESS       initial ("200000000000"b3),   /* delete/update any message, accept wakeups, etc. */
21           MSEG_R_ACCESS       initial ("100000000000"b3),   /* read any message */
22           MSEG_O_ACCESS       initial ("040000000000"b3),   /* read/delete your own messages */
23           MSEG_S_ACCESS       initial ("020000000000"b3),   /* get the message count, salvaged flag, etc. */
24           MSEG_W_ACCESS       initial ("010000000000"b3),   /* send a normal wakeup when adding a message */
25           MSEG_U_ACCESS       initial ("004000000000"b3)    /* send an urgent wakeup when adding a message */
26           )                   bit (36) aligned static options (constant);
27 
28 declare   (
29      /*** Common combinations of the modes */
30           MSEG_NULL_ACCESS    initial ("000000000000"b3),   /* no access at all */
31           MSEG_FULL_ACCESS    initial ("774000000000"b3)    /* all possible access */
32           )                   bit (36) aligned static options (constant);
33 
34 /* format: idind40 */
35 
36 declare   (
37      /*** Initial extended access modes of a newly created mailbox -- The following constants yield the following ACL:
38                adrosw  Person_id.*.*  (or anonymous.Project_id.*)
39                aow     *.SysDaemon.*
40                aow     *.*.*            */
41           MSEG_MBX_INITIAL_ACL                    dimension (3) static options (constant)
42                                                   initial ("770000000000"b3, "450000000000"b3, "450000000000"b3),
43           MSEG_MBX_CREATOR_INITIAL_ACCESS         defined (MSEG_MBX_INITIAL_ACL (1)),
44           MSEG_MBX_SYSDAEMON_INITIAL_ACCESS       defined (MSEG_MBX_INITIAL_ACL (2)),
45           MSEG_MBX_OTHERS_INITIAL_ACCESS          defined (MSEG_MBX_INITIAL_ACL (3))
46           )                                       bit (36) aligned;
47 
48 declare   (
49      /*** Initial extended access modes of a newly created queue message segment -- The following constants yield the
50           following ACL:
51                adros   Person_id.*.*  (or anonymous.Project_id.*)
52                ao      *.SysDaemon.*
53                null    *.*.*            */
54           MSEG_QUEUE_INITIAL_ACL                  dimension (3) static options (constant)
55                                                   initial ("760000000000"b3, "440000000000"b3, "000000000000"b3),
56           MSEG_QUEUE_CREATOR_INITIAL_ACCESS       defined (MSEG_QUEUE_INITIAL_ACL (1)),
57           MSEG_QUEUE_SYSDAEMON_INITIAL_ACCESS     defined (MSEG_QUEUE_INITIAL_ACL (2)),
58           MSEG_QUEUE_OTHERS_INITIAL_ACCESS        defined (MSEG_QUEUE_INITIAL_ACL (3))
59           )                                       bit (36) aligned;
60 
61 declare   (
62      /*** Extended access modes of queue segment users and administrators:
63               ao    Queue_User.*.*
64               aros  Queue_Admin.*.*     */
65           MSEG_QUEUE_USER_ACCESS                  initial ("440000000000"b3),
66           MSEG_QUEUE_ADMIN_ACCESS                 initial ("560000000000"b3))
67                                                   bit (36) aligned int static options(constant);
68 
69 /* END INCLUDE FILE ... mseg_access_mode_values.incl.pl1 */