
  TYPE

    iit$xt_xterm_control_block = record
      downline_file_reference: iit$xt_message_file_reference,
      downline_lock: ost$signature_lock,
      downline_state: iit$xt_message_state,
      network_file_opened: boolean,
      network_file_identifier: amt$file_identifier,
      status: pmt$task_status,
      task: iit$xt_xterm_task,
      trace_set: iit$xt_trace_set,
      upline_file_reference: iit$xt_message_file_reference,
      upline_global_task_id: ost$global_task_id,
      upline_lock: ost$signature_lock,
      upline_state: iit$xt_message_state,
      xterm_global_task_id: ost$global_task_id,
      xterm_state: iit$xt_xterm_state,
    recend;

*copyc amt$file_identifier
*copyc iit$xt_message_file_reference
*copyc iit$xt_message_state
*copyc iit$xt_trace_set
*copyc iit$xt_xterm_state
*copyc iit$xt_xterm_task
*copyc ost$global_task_id
*copyc ost$signature_lock
*copyc pmt$task_status
