
  TYPE
    jmt$phases = (active, queued_thd, swapped),

    jmt$node =  RECORD
               dispatching_priority: jmt$dispatching_priority,
               priority: jmt$job_priority,
               ws: mmt$page_frame_index,
               CASE qtype: jmt$phases OF
                 = active, swapped =
                      ijl_ord: jmt$ijl_ordinal,
                      service_since_swap: jmt$service_accumulator,
                 = queued_thd =
                      job_class: jmt$job_class,
               CASEND
               RECEND;

*copyc jmt$dispatching_priority
*copyc jmt$job_class
*copyc jmt$ijl_ordinal
*copyc jmt$initiated_job_list_entry
*copyc jmt$job_priority
