1 /* START OF:        mrds_new_scope_modes.incl.pl1             *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */
 2 
 3 /*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * */
 4 /*                                                                                        */
 5 /* Name:  mrds_new_scope_modes.incl.pl1                                                   */
 6 /*                                                                                        */
 7 /*      This include file defines named constants which can be used to specify the MRDS   */
 8 /* operations to be permitted and prevented in a call to dsl_$set_scope.                  */
 9 /*                                                                                        */
10 /* Status                                                                                 */
11 /*                                                                                        */
12 /* 0)   Created on January 25, 1980 by Jim Gray                                           */
13 /* 1)   80-12-10 Jim Gray : r-u scope modes changed to r-s-m-d type scope modes,          */
14 /*    also, names were changed to agree with security acl modes in MRDS.                  */
15 /*                                                                                        */
16 /*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * */
17 
18 dcl (NO_OP init (0),
19      READ_ATTR init (1),
20      APPEND_TUPLE init (2),
21      DELETE_TUPLE init (4),
22      MODIFY_ATTR init (8),
23      UPDATE_OPS init (14),
24      ALL_OPS init (15)) fixed bin int static options (constant);
25 
26 /* END OF:          mrds_new_scope_modes.incl.pl1             *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */