1 /* BEGIN INCLUDE FILE dm_om_table.incl.pl1 */
 2 
 3 
 4 /*
 5 Modified:
 6 08/11/82 by Matthew Pierret:  Changed hash_entry_ptr array to be 0-originned.
 7 04/12/83 by Matthew Pierret:  Changed to version 2, which should have been done
 8             on 08/11/82.
 9 10/29/84 by Stanford S. Cox:  Changed to not init version.
10 12/04/84 by Stanford S. Cox:  Added HASH_UPPER_BOUND.
11 */
12 /* format: style2,ind3 */
13 
14      dcl     1 opening_table        aligned based (opening_table_ptr),
15                2 version            char (8),
16                2 upper_bound        fixed bin (35),
17                2 hash_entry_ptr     (0:ot_upper_bound refer (opening_table.upper_bound)) ptr;
18 
19      dcl     opening_table_ptr      ptr;
20      dcl     OPENING_TABLE_VERSION_2
21                                     init ("opentbl2") char (8) aligned int static options (constant);
22      dcl     ot_upper_bound         fixed bin (35);
23      dcl HASH_UPPER_BOUND fixed bin (17) int static options (constant) init (10000);
24 
25 /* END INCLUDE FILE dm_om_table.incl.pl1 */