
  TYPE
    rft$file_attributes = array [1 .. * ] of rft$file_attribute,
    rft$file_attribute = record
      case key {input} : rft$file_attribute_keys of {input}

{}
{ The following attributes are only used to describe files which}
{ are used as connection files by RHFAM/VE. The}
{ documentation for these attributes is found in the RHFAM/VE ERS.}
{}

      = rfc$client_name =
        client_name: rft$application_name,
      = rfc$server_name =
        server_name: rft$application_name,
      = rfc$client_host =
        client_host: rft$physical_identifier,
      = rfc$server_host =
        server_host: rft$physical_identifier,
      = rfc$destination_host =
        destination_host: rft$host_identifier,
      = rfc$connection_timeout =
        connection_timeout: rft$connection_timeout,
      = rfc$data_transfer_timeout =
        data_transfer_timeout: rft$transfer_timeout,
      = rfc$record_block_size =
        record_block_size: rft$block_size,
      = rfc$message_block_size =
        message_block_size: rft$block_size,
      = rfc$incoming_record_abn =
        incoming_record_abn: rft$application_block_number,
      = rfc$outgoing_record_abn =
        outgoing_record_abn: rft$application_block_number,
      = rfc$receive_record_terminator =
        receive_record_terminator: rft$record_marks,
      = rfc$file_mark_received =
        file_mark_received: rft$record_marks,
      = rfc$send_record_terminator =
        send_record_terminator: rft$record_marks,
      = rfc$connection_status =
        connection_status: rft$connection_status,
      casend
    recend;

  TYPE
    rft$file_attribute_keys = (rfc$client_name,rfc$server_name,rfc$client_host,
      rfc$server_host,rfc$destination_host,rfc$connection_timeout,
      rfc$data_transfer_timeout,rfc$message_block_size,rfc$record_block_size,
      rfc$incoming_record_abn,rfc$outgoing_record_abn,
      rfc$receive_record_terminator,rfc$file_mark_received,
      rfc$send_record_terminator,rfc$connection_status);

  TYPE
    rft$get_attributes = array [1 .. * ] of rft$get_attribute,
    rft$get_attribute = record
      case key {input} : rft$file_attribute_keys of {input}

{}
{ The following attributes are only used to describe files which}
{ are used as connection files by RHFAM/VE. The}
{ documentation for these attributes is found in the RHFAM/VE ERS.}
{ These attributes comprise the set of attributes that may be read
{ by an application.
{}

      = rfc$client_name =
        client_name: rft$application_name,
      = rfc$server_name =
        server_name: rft$application_name,
      = rfc$client_host =
        client_host: rft$physical_identifier,
      = rfc$server_host =
        server_host: rft$physical_identifier,
      = rfc$destination_host =
        destination_host: rft$host_identifier,
      = rfc$connection_timeout =
        connection_timeout: rft$connection_timeout,
      = rfc$data_transfer_timeout =
        data_transfer_timeout: rft$transfer_timeout,
      = rfc$record_block_size =
        record_block_size: rft$block_size,
      = rfc$message_block_size =
        message_block_size: rft$block_size,
      = rfc$incoming_record_abn =
        incoming_record_abn: rft$application_block_number,
      = rfc$outgoing_record_abn =
        outgoing_record_abn: rft$application_block_number,
      = rfc$receive_record_terminator =
        receive_record_terminator: rft$record_marks,
      = rfc$file_mark_received =
        file_mark_received: rft$record_marks,
      = rfc$send_record_terminator =
        send_record_terminator: rft$record_marks,
      = rfc$connection_status =
        connection_status: rft$connection_status,
      casend
    recend;

  TYPE
    rft$change_attributes = array [1 .. * ] of rft$change_attribute,
    rft$change_attribute = record
      case key {input} : rft$file_attribute_keys of {input}

{}
{ The following attributes are only used to describe files which}
{ are used as connection files by RHFAM/VE. The}
{ documentation for these attributes is found in the RHFAM/VE ERS.}
{ These attributes comprise the set of attributes that may be
{ changed by an application.
{}

      = rfc$connection_timeout =
        connection_timeout: rft$connection_timeout,
      = rfc$data_transfer_timeout =
        data_transfer_timeout: rft$transfer_timeout,
      = rfc$record_block_size =
        record_block_size: rft$block_size,
      = rfc$message_block_size =
        message_block_size: rft$block_size,
      = rfc$incoming_record_abn =
        incoming_record_abn: rft$application_block_number,
      = rfc$outgoing_record_abn =
        outgoing_record_abn: rft$application_block_number,
      = rfc$receive_record_terminator =
        receive_record_terminator: rft$record_marks,
      = rfc$send_record_terminator =
        send_record_terminator: rft$record_marks,
      casend
    recend;

  TYPE
    rft$create_attributes = array [1 .. * ] of rft$create_attribute,
    rft$create_attribute = record
      case key {input} : rft$file_attribute_keys of {input}

{}
{ The following attributes are only used to describe files which}
{ are used as connection files by RHFAM/VE. The}
{ documentation for these attributes is found in the RHFAM/VE ERS.}
{ These attributes comprise the set of attributes that may be
{ changed by an application at connection file creation time.
{}

      = rfc$connection_timeout =
        connection_timeout: rft$connection_timeout,
      = rfc$data_transfer_timeout =
        data_transfer_timeout: rft$transfer_timeout,
      = rfc$record_block_size =
        record_block_size: rft$block_size,
      = rfc$message_block_size =
        message_block_size: rft$block_size,
      = rfc$incoming_record_abn =
        incoming_record_abn: rft$application_block_number,
      = rfc$outgoing_record_abn =
        outgoing_record_abn: rft$application_block_number,
      = rfc$receive_record_terminator =
        receive_record_terminator: rft$record_marks,
      = rfc$send_record_terminator =
        send_record_terminator: rft$record_marks,
      casend
    recend;

?? PUSH (LISTEXT := on) ??
*copyc rft$external_interface
?? POP ??

