?? NEWTITLE := 'nft$control_block' ??
?? PUSH (LISTEXT := ON) ??
*copyc amt$file_length
*copyc amt$local_file_name
*copyc jmt$destination_usage
*copyc jmt$implicit_routing_text
*copyc jmt$output_file_position
*copyc jmt$queue_file_password
*copyc jmt$system_supplied_name
*copyc jmt$system_routing_text
*copyc jmt$user_supplied_name
*copyc jmt$vertical_print_density
*copyc nat$network_address

*copyc nfc$command_definitions
*copyc nfc$parameter_definitions
*copyc nfc$parameter_01_definitions
*copyc nfc$parameter_06_definitions
*copyc nfc$parameter_12_definitions
*copyc nfc$parameter_16_definitions
*copyc nfc$parameter_24_definitions
*copyc nfc$parameter_25_definitions
*copyc nfc$parameter_27_definitions


*copyc nft$application_values
*copyc nft$buffer_control_block
*copyc nft$command_set
*copyc nft$directive_entry
*copyc nft$directive_entry_list_head
*copyc nft$last_command_received
*copyc nft$last_command_sent
*copyc nft$mode_of_access
*copyc nft$network_connection
*copyc nft$network_buffer_list
*copyc nft$network_ring_information
*copyc nft$network_type
*copyc nft$parameter_rules
*copyc nft$parameter_rules_array
*copyc nft$parameter_set
*copyc nft$parameter_00_values
*copyc nft$parameter_01_values
*copyc nft$parameter_03_value_set
*copyc nft$parameter_06_values
*copyc nft$parameter_11_value
*copyc nft$parameter_12_range
*copyc nft$parameter_13_definition
*copyc nft$parameter_16_definition
*copyc nft$parameter_17_definition
*copyc nft$parameter_18_definition
*copyc nft$parameter_19_definition
*copyc nft$parameter_20_range
*copyc nft$parameter_21_options
*copyc nft$parameter_22_values
*copyc nft$parameter_24_definition
*copyc nft$parameter_25_definition
*copyc nft$parameter_25_length
*copyc nft$parameter_26_definition
*copyc nft$parameter_27_definition
*copyc nft$parameter_27_length
*copyc nft$parameter_29_list_head
*copyc nft$parameter_31_type
*copyc nft$parameter_60_element
*copyc nft$protocol_parameters
*copyc nft$transfer_declarations
*copyc nft$user_message_list
*copyc osd$integer_limits
?? POP ??

{ nft$control_block }

  TYPE
    nft$control_block = record
      application: nft$application_values,
      application_server: nft$application_values,
      last_command_sent: nft$last_command_sent,
      last_command_received: nft$last_command_received,
      last_auto_modify_ignore: nft$parameter_set,
      data_xfer_complete: boolean,
      file_name: amt$local_file_name,
      protocol_in_use: nft$parameter_00_values, { P00 }
      maximum_file_size: nft$parameter_01_values, { P01 }

      required_facilities: nft$parameter_03_value_set, { P03 }
      allowed_facilities: nft$parameter_03_value_set,
      send_facilities: nft$parameter_03_value_set,
      received_facilities: nft$parameter_03_value_set,
      transfer_facilities: nft$parameter_03_value_set,

      send_directives: ^nft$directive_entry, { P05 }
      received_directives: nft$directive_entry_list_head,

      send_operator_messages: ^nft$directive_entry, { P07 }
      received_operator_messages: nft$directive_entry_list_head,

      send_user_messages: ^nft$directive_entry, { P08 }
      received_user_messages: nft$directive_entry_list_head,

      send_account_messages: ^nft$directive_entry, { P09 }
      received_account_messages: nft$directive_entry_list_head,

      send_errorlog_messages: ^nft$directive_entry, { P10 }
      received_errorlog_messages: nft$directive_entry_list_head,

      file_size: nft$parameter_06_values, { P06 }
      send_special_options: nft$parameter_11_value, { P11 }
      receive_special_options: nft$parameter_11_value, { P11 }
      remote_ring: nft$network_ring_information,       { P11 PTF }
      data_block_size: nft$parameter_12_range, { P12 }
      accounting_limit: nft$parameter_13_definition, { P13 }
      disposition_code: nft$parameter_17_definition, { P17 }
      acknowledgment_window: nft$parameter_18_definition, { P18}
      initial_restart_checkmark: nft$parameter_19_definition, { P19 }
      time_out: nft$parameter_20_range, { P20 }
      mode_of_access: nft$mode_of_access, { P21 }
      mode_of_access_option: nft$parameter_21_options, { P21 }
      local_host_type: nft$parameter_22_values,
      remote_host_type: nft$parameter_22_values, { P22 }
      requested_host_type: nft$parameter_22_values, { Remote expected }
      expected_host_type: nft$parameter_22_values, { Local expected

      source_lid: nft$parameter_24_definition,  { P24 }

      transfer_lid: nft$parameter_25_definition, { P25 }
      transfer_lid_length: nft$parameter_25_length,
      remote_lid: nft$parameter_25_definition,
      remote_lid_length: nft$parameter_25_length,

      transfer_pid: nft$parameter_27_definition, { P27 }
      transfer_pid_length: nft$parameter_27_length,
      remote_pid: nft$parameter_27_definition,
      remote_pid_length: nft$parameter_27_length,

      received_echo_text: nft$parameter_29_list_head,  { P29 }
      send_echo_text: nft$parameter_29_list_head,

      data_declaration: nft$parameter_31_type, { P31 }

      user_job_name: jmt$user_supplied_name,    { P26 }
      system_job_name: jmt$system_supplied_name,
      send_job_name: nft$parameter_26_definition,
      receive_job_name: nft$parameter_26_definition,
      send_file_name: nft$parameter_16_definition,     { P16 }
      receive_file_name: nft$parameter_16_definition,
      negotiate_protocol: boolean,
      queue_file_password: jmt$queue_file_password,
      destination_usage: jmt$destination_usage,
      parameter_rules: ^nft$parameter_rules_array,
      retry_count: integer,
      retry_limit: integer,
      retry_milliseconds: integer,
      protocol_trace: boolean,
      send_systems_routing_text: jmt$system_routing_text,
      receive_systems_routing_text: jmt$system_routing_text,
      send_implicit_routing_text: jmt$implicit_routing_text,
      receive_implicit_routing_text: jmt$implicit_routing_text,
      network_buffer_list: nft$network_buffer_list,
      path: nft$network_connection,
{}
{     Status areas  }
{}
      state_of_transfer: ost$status, { P04 Local and Remote }
      remote_status: ost$status, { P11 }
      local_status: ost$status, { My status }

      case application_type: nft$application_values of

      = nfc$application_ptf, nfc$application_ptfs =
        recovery_text: boolean,
        transfer_file_size: amt$file_length,
        transfer_directives_length: ost$non_negative_integers,
        ptf_scl_directive: ost$string,
      = nfc$application_qtf, nfc$application_qtfs =
        space_holder: ^CELL,
      = nfc$application_btf, nfc$application_btfs =
        user_file_name: ost$string, { P51 }
        banner_date_and_time: ost$string, { P52 }
        banner_routing_text: ost$string, { P53 }
        user_banner_message: ost$string, { P54 }
        installation_banner_message: ost$string, { P55 }
        reposition_output_file: ost$string, { P56 }
        current_file_position: ost$string, { P57 }
        default_output_file_destination: ost$string, { P58 }
        vertical_print_density: jmt$vertical_print_density, { P59 }
        vfu_load_procedure: nft$parameter_60_element, { P60 }
        file_position: jmt$output_file_position,
      casend,

    recend;

?? OLDTITLE ??
