 TYPE
    nat$network_descriptor = record
      next_descriptor: ^nat$network_descriptor,
      CASE kind: nat$network_descriptor_type OF
      = nac$network_device =
        access: nat$network_access,
        device_type: nat$device_type,
        driver_name: pmt$program_name,
        system_identifier: nat$system_identifier,
      = nac$host_subnet =
        network: nat$subnet_identifier,
      = nac$define_tcpip_host =
        tcpip: nat$define_tcpip_host,
      CASEND,
    recend,

    nat$network_descriptor_type = (nac$host_subnet, nac$network_device, nac$define_tcpip_host),

    nat$define_tcpip_host = record
      host_name: ^string (*),
      forward_search_range: nlt$tm_search_range,
    recend,

    nat$network_access = record
      channel: cmt$channel_ordinal,
      channel_address: cmt$physical_equipment_number,
      element: cmt$element_name,
    recend;

*copyc cmt$channel_ordinal
*copyc cmt$element_name
*copyc cmt$physical_equipment_number
*copyc nat$device_type
*copyc nat$subnet_identifier
*copyc nat$system_identifier
*copyc nlt$tm_search_range
*copyc pmt$program_name
