
{    DECK:  RFT$RHFAM_SERVER_TABLE
{
{    This deck contains the definitions for maintaining the
{    status of all defined RHFAM servers.

  TYPE
    rft$rhfam_server_table = record
      lock: ost$signature_lock,
      first_entry: ^rft$rhfam_server_table_entry,
    recend;


  TYPE
    rft$rhfam_server_table_entry = record
      next_entry: ^rft$rhfam_server_table_entry,
      server_active: boolean,
      server_name: rft$application_name,
      maximum_connections: rft$application_connections,
      server_capability: ost$name,
      server_ring: ost$ring,
      server_system_privilege: boolean,
      current_connections: rft$application_connections,
      connections_reserved: rft$application_connections,
      partner_job_connections: rft$application_connections,
      access_method_accept: boolean,
      validate_connection_lid: boolean,
      active_incoming_connects: rft$application_connections,
      abort_connections: boolean,
      incoming_connect: ^rft$incoming_connect,
      server_identifier: ^rft$server_identifier,
      CASE rhfam_initiated_server: boolean OF
      = TRUE =
        server_job_max_connections: rft$application_connections,
      = FALSE =
      CASEND,
    recend;

  TYPE
    rft$incoming_connect = record
      next_entry: ^rft$incoming_connect,
      connection_descriptor: rft$connection_descriptor,
      connect_message: rft$nbp_incoming_connect,
      connection_status: rft$connection_status,
      time_received: integer,
  recend;

  TYPE
    rft$server_identifier = record
      next_entry: ^rft$server_identifier,
      job_name: jmt$system_supplied_name,
      server_started_time: integer,
      server_signed_on: boolean,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc jmt$system_supplied_name
*copyc osd$virtual_address
*copyc ost$name
*copyc ost$signature_lock
*copyc rft$external_interface
*copyc rft$network_block_protocol
*copyc rft$rhfam_job_table
?? POP ??
