
{ Define the types for job scheduler monitor requests and sub-request codes.

  TYPE

    jmt$rb_sched_sub_reqcodes = (jmc$null_request, jmc$src_operator_swap_in,
          jmc$src_idling_advance_swaps, jmc$src_class_switch,
          jmc$src_change_dispatching_ctrl, jmc$src_cleanup_unrecovered_job,
          jmc$src_sched_profile_loading, jmc$src_dispatching_allocation,
          jmc$src_swapin_recovered_jobs, jmc$src_process_damaged_jobs),

{ The following requests are issued by job scheduler with the exception of
{ jmc$src_sched_profile_loading which is issued by a job activating a new
{ scheduling profile.  The jmc$src_class_switch request is also issued by
{ a job to change its own service class.

    jmt$rb_scheduler_requests = record
      reqcode: ALIGNED [0 MOD 8] syt$monitor_request_code,
      status: syt$monitor_status,
      case sub_reqcode: jmt$rb_sched_sub_reqcodes of
      = jmc$src_operator_swap_in, jmc$src_cleanup_unrecovered_job  =
          ijl_ordinal: jmt$ijl_ordinal,
      = jmc$src_idling_advance_swaps =
          ,
      = jmc$src_class_switch =
          system_supplied_name: jmt$system_supplied_name,
          new_service_class: jmt$service_class_index,
          new_service_accumulator: jmt$service_accumulator,
          old_service_class: jmt$service_class_index,
          old_service_accumulator: jmt$service_accumulator,
      = jmc$src_change_dispatching_ctrl =
          ,
      = jmc$src_sched_profile_loading =
          ,
      = jmc$src_dispatching_allocation =
          ,
      = jmc$src_swapin_recovered_jobs =
          ,
      = jmc$src_process_damaged_jobs =
          ,
      casend,
    recend;

*copyc jmt$ijl_ordinal
*copyc jmt$system_supplied_name
*copyc jmt$service_class_index
*copyc syt$monitor_status
*copyc syc$monitor_request_codes
