1 /*        BEGIN INCLUDE FILE ... reload_set_info.incl.pl1 ... last modified March 1976 by R. Bratt */
 2 
 3 
 4 
 5 
 6 /****^  HISTORY COMMENTS:
 7   1) change(88-05-11,Lippard), approve(88-05-02,MCR7881),
 8      audit(88-06-16,Fawcett), install(88-08-02,MR12.2-1074):
 9      Add audit_flag and the should_set audit_flag. This changes the version
10       number to 2.
11                                                    END HISTORY COMMENTS */
12 
13 
14 /* This structure is input to set$set_for_reloader. */
15 
16 dcl  reload_set_version_2 fixed bin int static init (2);
17 
18 dcl 1 reload_set_info aligned,
19     2 version fixed bin,                                    /* set by caller, checked by callee */
20     2 should_set,                                           /* if should_set.item then set item */
21       3 safety_sw bit (1) unal,
22       3 audit_flag bit (1) unal,
23       3 actind bit (1) unal,
24       3 actime bit (1) unal,
25       3 author bit (1) unal,
26       3 bc_author bit (1) unal,
27       3 max_length bit (1) unal,
28       3 entry_bound bit (1) unal,
29       3 dtem bit (1) unal,
30       3 dtd bit (1) unal,
31       3 dtu bit (1) unal,
32       3 dtm bit (1) unal,
33       3 tpd bit (1) unal,
34       3 pad bit (24) unaligned,
35     2 safety_sw bit (1) aligned,                            /* safety switch */
36     2 audit_flag bit (1) aligned,                           /* segment must be audited */
37     2 actind bit (18) aligned,                              /* activity indicator */
38     2 actime bit (36) aligned,                              /* activity time */
39     2 author char (32) aligned,
40     2 author_code fixed bin (35),                           /* ^0 => erred setting author */
41     2 bc_author char (32) aligned,
42     2 bc_author_code fixed bin (35),                        /* ^0 => erred setting bc_author */
43     2 max_length fixed bin (19),
44     2 max_length_code fixed bin (35),                       /* ^0 => erred setting max length */
45     2 entry_bound fixed bin (14),
46     2 entry_bound_code fixed bin (35),                      /* ^0 => erred setting epb */
47     2 dtem bit (36) aligned,                                /* date time dumped */
48     2 dtd bit (36) aligned,                                 /* date time dumped */
49     2 dtu bit (36) aligned,                                 /* date time used */
50     2 dtm bit (36) aligned,                                 /* date time contents modified */
51     2 tpd bit (1) aligned;                                  /* transparent paging device switch */
52 
53 /* END INCLUDE FILE ... reload_set_info.incl.pl1 */