1 /*        BEGIN INCLUDE FILE comp_stack_box.incl.pl1        */
 2 
 3 /* format: style2,ind2,ll79,dclind4,idind15,comcol41,linecom */
 4 
 5      dcl arg_count_symb_index
 6                         fixed bin static options (constant) init (2);
 7 
 8      dcl stkbox_ptr     ptr;
 9      dcl 1 stack_box    aligned like init_stack_box based (stkbox_ptr);
10 
11      dcl 1 init_stack_box
12                         aligned static options (constant),
13            2 bthrd      ptr init (null ()),
14                                         /* backward thread */
15            2 fthrd      ptr init (null ()),
16                                         /* forward thread */
17            2 level      fixed bin init (0),
18                                         /* stack level */
19            2 numval     fixed bin (31) init (0),
20                                         /* numeric value */
21            2 incrval    fixed bin (31) init (0),
22                                         /* counter increment */
23            2 txtstr     char (1020) var init ("");
24                                         /* string value */
25 
26 /*        END INCLUDE FILE comp_stack_box.incl.pl1          */