1 /* BEGIN INCLUDE FILE find_pathname_info.incl.pl1 BIM April 1981 */
 2 /* format: style2 */
 3 
 4      declare find_pathname_info_ptr pointer;
 5 
 6      declare 1 find_pathname_info   aligned based (find_pathname_info_ptr),
 7                2 strings            unaligned,
 8                  3 component_ename  character (32),
 9                  3 adjusted_offset  character (7),
10                  3 dirname          character (168),
11                  3 gt_char          character (1),
12                  3 real_ename       character (32),
13                  3 real_offset      character (7),
14                  3 pdir_string      character (17),
15                  3 offset_msg       character (40),
16                2 bin_adjusted_off   fixed bin (18),
17                2 bin_real_off       fixed bin (18);
18 
19 /* END INCLUDE FILE find_pathname_info */