
  TYPE
    ift$get_connection_attributes = array [1 .. * ] of
      ift$get_connection_attribute;

  TYPE
    ift$get_connection_attribute = record
      source {output} : ift$connection_attribute_source,
      case key {input} : ift$connection_attribute_keys of
      = ifc$attention_character_action =
        attention_character_action:
          ift$attention_character_action,
      = ifc$break_key_action =
        break_key_action: ift$break_key_action,
      = ifc$end_of_information =
        end_of_information: ift$end_of_information,
      = ifc$input_block_size =
        input_block_size: ift$input_block_size,
      = ifc$input_editing_mode =
        input_editing_mode: ift$input_editing_mode,
      = ifc$input_output_mode =
        input_output_mode: ift$input_output_mode,
      = ifc$input_timeout =
        input_timeout: boolean,
      = ifc$input_timeout_length =
        input_timeout_length: ift$input_timeout_length,
      = ifc$input_timeout_purge =
        input_timeout_purge: boolean,
      = ifc$null_connection_attribute =
        ,
      = ifc$partial_char_forwarding =
        partial_character_forwarding: boolean,
      = ifc$prompt_file =
        prompt_file: amt$local_file_name,
      = ifc$prompt_file_identifier =
        prompt_file_identifier: amt$file_identifier,
      = ifc$prompt_string =
        prompt_string: ift$prompt_string,
      = ifc$store_backspace_character =
        store_backspace_character: boolean,
      = ifc$store_nuls_dels =
        store_nuls_dels: boolean,
      = ifc$trans_character_mode =
        trans_character_mode: ift$trans_character_mode,
      = ifc$trans_forward_character =
        trans_forward_character: ift$trans_forward_character,
      = ifc$trans_length_mode =
        trans_length_mode: ift$trans_length_mode,
      = ifc$trans_message_length =
        trans_message_length: ift$trans_message_length,
      = ifc$trans_terminate_character =
        trans_terminate_character: ift$trans_terminate_character,
      = ifc$trans_timeout_mode =
        trans_timeout_mode: ift$trans_timeout_mode,
      = ifc$trans_protocol_mode =
        trans_protocol_mode: ift$trans_protocol_mode,
      casend,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc amt$file_identifier
*copyc amt$local_file_name
*copyc ift$connection_attribute_source
*copyc ift$connection_attribute_keys
*copyc ift$terminal_connection_types
?? POP ??
