/* procedure to do priveledged MCR command for PL/I symbolic debugger called by debfinish */ mcrprv: procedure(cmdline, status); dcl cmdline char(*), status fixed bin(15); dcl rad50 entry(char(*)) returns(fixed bin(31)); dcl mcr_event fixed bin(15) external, /*defined in debmain*/ mcr_esb(8) fixed bin(15), zero fixed bin(15) static initial(0); call spawn(rad50('MCR...'), /*no iop*/, mcr_event, mcr_esb, cmdline, zero, status, 'CO'); if status ^= 1 then return; call waitfr(mcr_event, status); if status ^= 1 then return; status = mcr_esb(1); /*exit status from MCR task*/ end;