1 2 /* the following is include file extref.incl.pl1 */ 3 4 5 /****^ HISTORY COMMENTS: 6 1) change(85-09-24,Elhard), approve(85-09-24,MCR7198), 7 audit(86-06-30,Weaver), install(86-07-16,MR12.0-1094): 8 changed to be a complete structure rather than a starting with a level 2 9 variable. 10 END HISTORY COMMENTS */ 11 12 declare 1 external_ref aligned based, 13 2 compent_ptr pointer, /* pointer to referencing component's entry */ 14 2 ref_ptr pointer, /* pointer to referencing textword */ 15 2 offset fixed bin(18), /* offset of referencing instruction in text */ 16 2 side char(3) aligned, /* 'rhe' or 'lhe' for referencing halfword */ 17 2 relinfo char(8) aligned, /* symbolic relocation information */ 18 2 section char(4) aligned, /* referencing section of object */ 19 2 loffset fixed bin, /* link's offset in linkage section */ 20 2 segname char(33) aligned, /* segname part of external name */ 21 2 slng fixed bin, /* length of preceeding ACC string (incl count) */ 22 2 entryname char(257) aligned, /* entry part of external name */ 23 2 elng fixed bin, /* length of preceeding ACC string (incl count) */ 24 2 type bit(18) unaligned, /* type of link */ 25 2 trap bit(18) unaligned, /* trap before link if non-zero */ 26 2 expr bit(18) unaligned, /* the expression value */ 27 2 code15 bit(18) unaligned, /* if type of link is 1 or 5, this is the segbase code */ 28 2 dont_prelink bit(1) unaligned, /* if = "1" then dont snap internal link */ 29 2 link_tm bit(2) unaligned, /* the original link's TM modifier */ 30 2 link_td bit(4) unaligned, /* the original link's TD modifier */ 31 2 dont_relocate bit (1) unaligned, /* "1"b -> no referencing instruction */ 32 2 padding(2) fixed bin; /* to isolate from other variables */