1 /* begin include file -- form_link_info_args.incl.pl1 */
 2 /* coded July 8, 1981 and March 2, 1982 by Melanie Weaver */
 3 
 4      dcl     1 form_link_info_args  aligned based (arg_ptr),
 5                2 version            fixed bin,
 6                2 list_bc            fixed bin,              /* bit count of the output segment */
 7                2 list_ptr           ptr,                    /* pointer to the output segment */
 8                2 obj_ptr            ptr,                    /* pointer to the object segment */
 9                2 flags              aligned,
10                  3 hd_sw            bit (1) unaligned,      /* header option */
11                  3 ln_sw            bit (1) unaligned,      /* length option */
12                  3 et_sw            bit (1) unaligned,      /* entry option */
13                  3 lk_sw            bit (1) unaligned,      /* link option */
14                  3 lg_sw            bit (1) unaligned,      /* long option */
15                  3 bc_sw            bit (1) unaligned,      /* bit_count field is valid */
16                  3 cn_sw            bit (1) unaligned,      /* component name is given */
17                  3 pad              bit (29) unaligned,
18                2 bit_count          fixed bin (24),         /* bit count of object segment */
19                2 component_name     char (32) aligned;      /* name of component in archive */
20 
21      dcl     form_link_info_args_version_1 fixed bin static options (constant) init (1);
22 
23 /* end include file -- form_link_info_args.incl.pl1 */