1 /* BEGIN INCLUDE FILE . . . sl_info.incl.pl1 */
 2 
 3 
 4 
 5 /****^  HISTORY COMMENTS:
 6   1) change(87-11-16,Lippard), approve(87-12-21,MCR7822),
 7      audit(88-02-09,Blair), install(88-02-16,MR12.2-1023):
 8      Modified to add INITIATED_SEGS type.
 9   2) change(87-11-19,Lippard), approve(87-12-21,MCR7822),
10      audit(88-02-09,Blair), install(88-02-16,MR12.2-1023):
11      Added uid to sl_info structure.
12                                                    END HISTORY COMMENTS */
13 
14 
15 declare 1 sl_info         aligned based (sl_info_p),
16                2 version            fixed binary,           /* Must be 1 */
17                2 num_paths          fixed binary,           /* Number of search paths */
18                2 change_index_p     pointer,                /* Pointer to search list's update count */
19                2 change_index       fixed binary (71),      /* This search list's update count */
20                2 pad1               (6) bit (36),           /* Must be zero */
21                2 paths              (sl_info_num_paths refer (sl_info.num_paths)),
22                  3 type             fixed binary,           /* Type of search path */
23                  3 code             fixed binary (35),      /* Standard status code of search path */
24                  3 uid              bit (36),               /* Unique ID */
25                  3 pathname         char (168) unaligned;   /* Search pathname */
26 
27      declare sl_info_num_paths      fixed binary;
28      declare sl_info_p              pointer;
29      declare sl_info_version_1      fixed binary internal static options (constant) initial (1);
30 
31 /* Keyword Types */
32 
33      declare ABSOLUTE_PATH          fixed binary internal static options (constant) initial (0);
34      declare UNEXPANDED_PATH        fixed binary internal static options (constant) initial (1);
35      declare REFERENCING_DIR        fixed binary internal static options (constant) initial (3);
36      declare WORKING_DIR            fixed binary internal static options (constant) initial (4);
37      declare PROCESS_DIR            fixed binary internal static options (constant) initial (5);
38      declare HOME_DIR               fixed binary internal static options (constant) initial (6);
39      declare INITIATED_SEGS         fixed binary internal static options (constant) initial (7);
40 
41 /* END INCLUDE FILE . . . sl_info.incl.pl1 */