1 /* BEGIN INCLUDE FILE mrds_scope_info.incl.pl1 -- jaw 8/30/77 */
 2 
 3 dcl 1 scope_info aligned based (sci_ptr),                   /* structure in which to pass out scope info */
 4     2 nrels fixed bin,                                      /* number of relations defined */
 5     2 scope (nrels_init refer (scope_info.nrels)),
 6       3 name char (32) unal,                                /* relation name */
 7       3 flags,                                              /* scope flags for the relation */
 8         4 retrieve bit (1) unal,
 9         4 delete bit (1) unal,
10         4 modify bit (1) unal,
11         4 store bit (1) unal,
12         4 retrieve_prevent bit (1) unal,
13         4 delete_prevent bit (1) unal,
14         4 modify_prevent bit (1) unal,
15         4 store_prevent bit (1) unal;
16 
17 dcl  sci_ptr ptr;
18 dcl  nrels_init fixed bin;
19 
20 /* END INCLUDE FILE mrds_scope_info.incl.pl1 */
21