1 /* START OF:        mrds_opening_modes_.incl.pl1              *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */
 2 
 3           /*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * */
 4           /*                                                                                        */
 5           /* Name:  mrds_opening_modes_.incl.pl1                                                    */
 6           /*                                                                                        */
 7           /* Defines named constants which can be used in calls to dsl_$open when opening a MRDS    */
 8           /* data base.                                                                             */
 9           /*                                                                                        */
10           /* Status                                                                                 */
11           /* 0)  Created by:   Gary C. Dixon; January 22, 1979                                      */
12           /*                                                                                        */
13           /*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * */
14 
15      dcl (RETRIEVAL                     init(1),
16           UPDATE                        init(2),
17           EXCLUSIVE_RETRIEVAL           init(3),
18           EXCLUSIVE_UPDATE              init(4)) fixed bin(35) int static options(constant);
19 
20 /* END OF:          mrds_opening_modes_.incl.pl1              *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */
21