1 /* BEGIN INCLUDE FILE mrds_exp_fun_data.incl.pl1 -- jaw 5/20/77 */
 2 
 3 /* HISTORY:
 4 
 5    81-06-01 Jim Gray : removed assn len and type entries,
 6    now that mu_convert is being used.
 7 
 8 */
 9 
10 
11 dcl 1 exp_fun_data based (efd_ptr),                         /* data for expression or function */
12     2 var_index fixed bin,                                  /* index of assoc. tuple variable */
13     2 loc_index fixed bin (18),                             /* bit offset within literal pool for result */
14     2 bit_length fixed bin (18),                            /* bit length of expr. result */
15     2 descriptor bit (36),                                  /* descriptor of expr. result */
16     2 assn_ptr ptr,                                         /* pointer to storage location */
17     2 ef_ptr ptr;                                           /* pointer to expression structure */
18 
19 dcl  efd_ptr ptr;
20 
21 /* END INCLUDE FILE mrds_exp_fun_data.incl.pl1 */
22