?? NEWTITLE := '  rmp$block_exit_handler', EJECT ??

  PROCEDURE rmp$block_exit_handler
    (    condition: pmt$condition;
         p_condition_info: ^pmt$condition_information;
         save_area: ^ost$stack_frame_save_area;
     VAR condition_status: ost$status);

    VAR
      lock_status: ost$signature_lock_status;

    CASE condition.selector OF
    = pmc$block_exit_processing =
      osp$test_signature_lock (rmv$job_tape_table_lock, lock_status);
      IF lock_status = osc$sls_locked_by_current_task THEN
        osp$end_subsystem_activity;
        osp$clear_job_signature_lock (rmv$job_tape_table_lock);
      IFEND;
    ELSE
      pmp$continue_to_cause (pmc$execute_standard_procedure, condition_status);
    CASEND;

  PROCEND rmp$block_exit_handler;

?? PUSH (LISTEXT := ON ??
*copyc osp$clear_job_signature_lock
*copyc osp$end_subsystem_activity
*copyc osp$test_signature_lock
*copyc pmp$continue_to_cause
?? POP ??
?? OLDTITLE ??
