
{    DECK:  RFT$HOST_IDENTIFIER
{
{    This deck contains the definitions for the LCN host
{    names (PIDs and LIDs).


  TYPE

    rft$physical_identifier = string (rfc$physical_id_length),

    rft$logical_identifier = string (rfc$logical_id_length),

    rft$host_identifier = record
      case host_identifier_kind: rft$host_identifier_kind of
      = rfc$physical_identifier =
        physical_identifier: rft$physical_identifier,
      = rfc$logical_identifier =
        logical_identifier: rft$logical_identifier,
      casend
    recend,

    rft$host_identifier_kind = (rfc$physical_identifier,
            rfc$logical_identifier),

    rft$destination_hosts = array [1 .. rfc$max_available_hosts] of
      rft$host_identifier,

    rft$number_of_hosts = 0 .. rfc$max_lcn_hosts;

?? PUSH (LISTEXT := ON) ??
*copyc rfc$external_interface
?? POP ??
