1 /* BEGIN INCLUDE FILE linus_ls_set.incl.pl1 -- jaw 7/27/78 */
 2 
 3 dcl 1 ls_set aligned based (lss_ptr),                       /* lila stack frame for lila set */
 4 %include linus_ls_common;
 5     2 nselects fixed bin,                                   /* number of items selected */
 6     2 nblocks fixed bin,                                    /* number of lila blocks in stack */
 7     2 nops fixed bin,                                       /* number of set operators in stack */
 8     2 op_stack (linus_data_$max_set_stack_size),            /* the set op stack */
 9       3 br_cnt fixed bin (17) unal,                         /* bracket count of oper. */
10       3 key fixed bin (17) unal,                            /* token key of operator */
11     2 br_cnt fixed bin,                                     /* current bracket count */
12     2 dup_flag bit (1) unal,                                /* on if DUP encountered */
13     2 unique_flag bit (1) unal,                             /* on if UNIQUE encountered */
14     2 rb_flag bit (1) unal,                                 /* on if right bracket allowed */
15     2 lb_flag bit (1) unal,                                 /* on if left bracket allowed */
16     2 setop_flag bit (1) unal,                              /* on if set op allowed */
17     2 select_flag bit (1) unal,                             /* on if lila block allowed */
18     2 end_flag bit (1) unal,                                /* on if end of set allowed */
19     2 first_block bit (1) unal,                             /* on if no lila block yet processed */
20     2 inv_setop bit (1) unal,                               /* on if a lila block cannot be included in a set oper. */
21     2 reserved bit (9) unal,
22     2 var_ind fixed bin (17) unal,                          /* number for next generated variable */
23     2 domain_info (mrds_data_$max_select_items),            /* domain info for each selected attr. */
24       3 name char (32),                                     /* domain name */
25       3 bit_length fixed bin (35),                          /* bit length of domain */
26       3 desc bit (36),                                      /* descriptor for domain */
27       3 assn_ptr ptr,                                       /* ptr to receiving field for this attr. */
28       3 assn_type fixed bin,                                /* assign_ type code for this domain */
29       3 assn_len fixed bin (35),                            /* assign_ length for this domain */
30     2 si_ptr ptr,                                           /* pointer to select info structure */
31     2 blk_hd_ptr ptr;                                       /* pointer to top item of block stack */
32 
33 dcl  lss_ptr ptr;
34 
35 /* END INCLUDE FILE linus_ls_set.incl.pl1 */