1 /* BEGIN INCLUDE FILE linus_mrds_block.incl.pl1 -- jaw 7/21/77 */
 2 
 3 dcl 1 mrds_block aligned based (mblk_ptr),                  /* partial mrds selection expr */
 4     2 fwd_ptr ptr,                                          /* pointer to previous item in stack */
 5     2 sel_offset fixed bin (35),                            /* offset of first select item in mrds_string */
 6     2 sel_length fixed bin (35),                            /* length of first select list in mrds string */
 7     2 nval_args fixed bin,                                  /* number of value args */
 8     2 val_args (nval_args_init refer (mrds_block.nval_args)),
 9       3 arg_ptr ptr,
10       3 desc_ptr ptr,
11     2 ms_len fixed bin (35),                                /* length of the mrds string */
12     2 mrds_string char (ms_len_init refer (mrds_block.ms_len)) var;
13 
14 dcl  nval_args_init fixed bin;
15 dcl  ms_len_init fixed bin (35);
16 dcl  mblk_ptr ptr;
17 
18 /* END INCLUDE FILE linus_mrds_block.incl.pl1 */