/************************************************************** * overlay-segment-related stuff for PL/I symbolic debugger * **************************************************************/ dcl 1 segdef external static, 2 end_of_overlay_descriptors fixed bin(15), /*address in user task of $$SGD2 psect*/ 2 root_segment_descriptor fixed bin(15), /*address in user task of root segment descriptor*/ 2 root_segment_name char(6) varying initial(''), 2 root_segment_fileaddr fixed bin(23) initial(-1/*null_fileaddr*/), /*file address in workfile of root segment overlay hash record*/ ( 2 user_is_overlaid static initial(0/*false*/), /*set to true if external_address encounters an overlay segment*/ 2 is_overlaid initial(1), /*treated as true*/ /***will not be needed?**/ 2 not_overlaid initial(0), /*treated as false*/ /***will not be needed?**/ 2 maybe_overlaid initial(-1) /*treated as true*/ /***will not be needed?**/ ) fixed bin(1);