1 /* START OF:        mrds_set_scope_ops_.incl.pl1              *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */
 2 
 3           /*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * */
 4           /*                                                                                        */
 5           /* Name:  mrds_set_scope_ops_.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 April 6, 1979  by Gary C. Dixon                                        */
13           /*                                                                                        */
14           /*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * */
15 
16      dcl (NO_OP                         init(0),
17           RETRIEVE_OP                   init(1),
18           STORE_OP                      init(2),
19           DELETE_OP                     init(4),
20           MODIFY_OP                     init(8),
21           ALL_OPS                       init(15)) fixed bin int static options(constant);
22 
23 /* END OF:          mrds_set_scope_ops_.incl.pl1              *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */