/* 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*/
