1 /* BEGIN INCLUDE FILE  kst_attributes.incl.pl1 WRITTEN 03/26/76  by  R. Bratt */
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(2017-01-06,Swenson), approve(2017-01-06,MCR10021),
 6      audit(2017-01-06,GDixon), install(2017-01-09,MR12.6f-0009):
 7      Fix pad field in set field to be bit (30) rather than bit (39).
 8   2) change(2017-01-07,Swenson), approve(2017-01-07,MCR10021),
 9      audit(2017-01-07,GDixon), install(2017-01-09,MR12.6f-0009):
10      Fix indentation in level 3 fields to line up.
11                                                    END HISTORY COMMENTS */
12 
13 dcl  kstap ptr;
14 
15 dcl 1 kst_attributes aligned based (kstap),
16     2 set unaligned,                                        /* SPECIFIES WHICH ATTRIBUTES TO SET */
17       3 (allow_write,
18          tms,
19          tus,
20          tpd,
21          audit,
22          explicit_deactivate_ok) bit (1),
23       3 pad bit (30),
24     2 value unaligned,                                      /* SPECIFIES THE VALUE OF THE ATTRIBUTES TO BE SET */
25       3 (allow_write,                                       /* allow write permission in sdw */
26          tms,                                               /* don't update dtm */
27          tus,                                               /* don't update dtu */
28          tpd,                                               /* don't put on PD */
29          audit,                                             /* audit */
30          explicit_deactivate_ok) bit (1),                   /* allow demand deactivation */
31       3 pad bit (30);
32 
33 /* END INCLUDE FILE kst_attributes.incl.pl1                      */