
  TYPE
    nat$switched_connections_list = RECORD
      access_control: nlt$access_control,
      wait_for_switch_offer: ^nat$wait_for_switch_offer,
      switched_connection: ^nat$switched_connection,
      recend,

    nat$wait_for_switch_offer = RECORD
      next_entry: ^nat$wait_for_switch_offer,
      destination_job_name: jmt$system_supplied_name,
      source_job_name: jmt$system_supplied_name,
      destination_task_id: ost$global_task_id,
      recend,

    nat$switched_connection = RECORD
      next_entry: ^nat$switched_connection,
      application: nat$application_name,
      switch_status: nat$switch_status,
      source_job_name: jmt$system_supplied_name,
      destination_job_name: jmt$system_supplied_name,
      connection_id: nat$connection_id,
      wait_for_switch_accept: ost$global_task_id,
      recend,

    nat$switch_status = (nac$switch_pending, nac$switch_complete);

*copyc jmt$system_supplied_name
*copyc ost$global_task_id
*copyc nat$application_name
*copyc nat$connection_id
*copyc nlt$access_control
