1 /* BEGIN INCLUDE FILE linus_scope_data.incl.pl1 -- jccj 9/29/78 */
 2 /* 80-12-22 Jim Gray : changed scope modes from r-u to r-s-m-d
 3    for files, using security compatible mode names.
 4    Made change with like attribute to mdbm_scope_info.incl
 5    so that future changes would be reflected automatically.
 6 
 7    80-12-31 Jim Gray : added touched bit to allow displaying
 8    of scope that was set with null permit/prevent ops
 9 
10    81-1-12 Jim Gray : moved touched bit to common scope flags of
11    the like reference to structure in mdbm_scope_info.
12 
13 */
14 
15 dcl 1 scope_data aligned based (sd_ptr),
16     2 active bit (1) unal,
17     2 pad bit (35) unal,
18     2 nrels fixed bin,
19     2 rel (sd_nrels_init refer (scope_data.nrels)),
20       3 name char (32) unal,
21       3 file char (30) unal,
22       3 mbz0 bit (36) unal,                                 /* for future use */
23       3 flags like scope_flags ;
24 
25 dcl  sd_ptr ptr;
26 dcl  sd_nrels_init fixed bin;
27 
28 /* END INCLUDE FILE linus_scope_data.incl.pl1 */
29