/* provide proper entry declaration for PL/I symbolic debugger: */ dcl external_address entry(char(*) varying/*name*/, fixed bin(7)/*class*/, fixed bin(23)/*overlay segment fileaddr*/) returns(fixed bin(15)/*address in user task*/); dcl 1 extdef external, 2 not_found fixed bin(15) initial(0), /*return value for external_address & global_address*/ 2 segment_found fixed bin(15) initial(1); /*code used between global_address, segment, & external_address*/