1 /* BEGIN INCLUDE FILE   alm_info.incl.pl1 */
 2 
 3 /****^  HISTORY COMMENTS:
 4   1) change(86-10-01,JRGray), approve(86-10-01,MCR7507),
 5      audit(86-10-27,RWaters), install(86-11-12,MR12.0-1202):
 6      Created to describe the structures used to pass information to the alm_
 7      subroutine.
 8                                                    END HISTORY COMMENTS */
 9 
10 /* Written June 9, 1986 by JRGray */
11 
12 /* This include files describes the alm_info and alm_args
13    structures that are used to pass information to the alm_
14    subroutine.  */
15 
16 dcl       alm_info_ptr ptr;
17 dcl       1 alm_info based(alm_info_ptr),
18             2 version char(8),
19             2 flags,
20               3 (symbols, brief, list, table, brief_table) bit(1) unaligned,
21               3 pad bit(32) unaligned,
22             2 target char(32),
23             2 generator_info,
24               3 generator char(8),
25               3 gen_number fixed bin,
26               3 gen_version char(160),
27               3 gen_created fixed bin(71),
28             2 option_string char(200) varying,
29             2 source_path char(168),
30             2 source_entryname char(32),
31             2 source_ptr ptr,
32             2 source_bc fixed bin(24),
33             2 object_ptr ptr,
34             2 object_bc fixed bin(24),
35             2 list_fcb_ptr ptr,
36             2 list_component_ptr ptr,
37             2 list_bc fixed bin(24),
38             2 list_component fixed bin;
39 
40 dcl       alm_args_ptr ptr;
41 dcl       1 alm_args based(alm_args_ptr),
42             2 version char(8),
43             2 arg_count fixed bin,
44             2 arg(arg_count),
45               3 arg_ptr ptr,
46               3 len fixed bin(21);
47 
48 dcl ALM_INFO_V1 char(8) static options(constant) init("alm_i_1");
49 dcl ALM_ARGS_V1 char(8) static options(constant) init("alm_a_1");
50 
51 /* END INCLUDE FILE   alm_info.incl.pl1 */