
 TYPE

   jmt$operator_request_list = record
     lock: ost$signature_lock,
     request_list: array[ jmt$request_list_index ] of jmt$request_list_entry,
         recend,

   jmt$request_list_entry = record
     in_use: boolean,
     operator_request:  jmt$operator_request,
     ijl_ordinal: jmt$ijl_ordinal,
     system_supplied_name: jmt$system_supplied_name,
     dispatching_priority: jmt$dispatching_priority,
   recend,

   jmt$request_list_index = 1..10,

   jmt$operator_request = (jmc$or_swapout, jmc$or_swapin,
     jmc$or_change_dispatching_prio);

*copyc jmt$dispatching_priority
*copyc jmt$ijl_ordinal
*copyc jmt$system_supplied_name
*copyc ost$signature_lock
