1 /* Begin Include File   variable_tables.incl.pl1 */
 2 
 3 /* This include file defines the system tables and data areas
 4    whose size may be specified by the  TBLS config card. */
 5 
 6 dcl  tbcp pointer, tbl_card_name char (4) aligned static init ("tbls");
 7 
 8 dcl 1 tbls_card based (tbcp),
 9     2 name char (4),
10     2 tbl_spec (7),                                         /* array of pairs */
11       3 tbl_name char (4),                                  /* short name for table */
12       3 cur_length fixed bin;                               /* length in pages */
13 
14 dcl 1 table_corresp (5) static,                             /* correspondence between slt and card names */
15     2 slt_name char (32) init ("str_seg", "ioat", "kst_seg", "prds", "scavenger_data"),
16     2 card_name char (4) init ("str", "ioat", "kst", "prds", "scav");
17 
18 /* End include file  variable_tables.incl.pl1 */