1 /* BEGIN INCLUDE FILE RNT.INCL.PL1 - WRITTEN SEPTEMBER 1974 BY R. BRATT */
 2 /* modified July 1976 by R. Bratt; updated March 1977 by M. Weaver */
 3 /* modified November 1977 by M. Weaver to use PL/I offsets instead of pointers */
 4 
 5 dcl (rntp, rntep) ptr;
 6 dcl lth fixed bin (17);
 7 dcl based_rnt_area area based;
 8 
 9 dcl 1 rnt aligned based (rntp),
10     2 areap ptr,                                            /* pointer to area for rnte allocations */
11     2 meters,
12       3 insert,
13         4 trys fixed bin (17) unaligned,
14         4 wins fixed bin (17) unaligned,
15       3 get_segno like insert,
16       3 get_refnames like insert,
17       3 delete_segno like insert,
18       3 delete_name like insert,
19     2 rnt_area_size fixed bin,
20     2 srulep ptr,
21     2 name_hash_table (0:127) offset (rnt.areap -> based_rnt_area),
22     2 segno_hash_table (0:127) offset (rnt.areap -> based_rnt_area);
23 
24 dcl 1 rnte aligned based (rntep),
25     2 name_fp offset (rnt.areap -> based_rnt_area),
26     2 segno_fp offset (rnt.areap -> based_rnt_area),
27     (2 segno fixed bin (17),
28     2 length fixed bin (17),
29     2 name char (lth refer (rnte.length)))unaligned;
30 
31 /* --------------------END RNT.INCL.PL1--------------------- */