1 /* Begin include file mseg_index_table.incl.pl1 BIM 1985-04-17 */
 2 /* format: style4,linecom */
 3 
 4 
 5 dcl  table_ptr pointer;
 6 dcl  1 mseg_table aligned based (table_ptr),                /* table of open message segments */
 7        2 table_length fixed bin,
 8        2 table (tlength refer (mseg_table.table_length)) aligned,
 9          3 mseg_ptr ptr unaligned,
10          3 ref_count fixed bin;
11 
12 declare tlength fixed bin;
13 
14 /* End include file mseg_index_table.incl.pl1 */