
{  Define type definitions for monitor request block for job swapping
{  function and the various subfunctions.

  TYPE
    jst$job_swapping_subfunctions = (jsc$jss_swap_job_in, jsc$jss_swap_job_out,
      jsc$jss_advance_swap, jsc$jss_initiate_swapout_io, jsc$jss_special_swapout),

    jst$rb_job_swapping_functions = record
      reqcode: ALIGNED [0 MOD 8] syt$monitor_request_code,
      status: syt$monitor_status,
      ijl_ordinal: jmt$ijl_ordinal,
      case subfunction: jst$job_swapping_subfunctions of
      = jsc$jss_swap_job_out, jsc$jss_special_swapout =
        swapout_reason: jmt$swapout_reasons,
        memory_needed: mmt$page_frame_index,
      = jsc$jss_initiate_swapout_io =
        flush_all_pages: boolean,
        pages_flushed: mmt$page_frame_index,
      casend,
    recend;

*copyc jmt$delayed_swapin_work
*copyc jmt$ijl_ordinal
*copyc jmt$ijl_swap_status
*copyc jmt$swapout_reasons
*copyc mmt$page_frame_index
*copyc syt$monitor_request_code
*copyc syc$monitor_request_codes
