
  TYPE

    nat$intranet_statistics = ^array [1 .. * ] of nat$intranet_statistic,

    nat$intranet_statistic = record
      network_id: nat$network_identifier,
      logical_unit_number: iot$logical_unit,
      current_send_pdus_queued: ALIGNED [0 MOD 8] integer,
      multicasts_received: integer,
      multicasts_sent: integer,
      receive: receive_pdu,
      receive_pdus_discarded: integer,
      send: send_pdu,
      send_pdus_discarded: integer,
    recend,

    receive_pdu = record
      case boolean of
      = TRUE =
        pdu_average: 0 .. 0ffffffff(16),
        pdu_total: 0 .. 0ffffffff(16),
      = FALSE =
        value: integer,
      casend,
    recend,

    send_pdu = record
      case boolean of
      = TRUE =
        pdu_average_size: 0 .. 0ffff(16),
        pdu_fragment_average: 0 .. 0ffff(16),
        pdu_total: 0 .. 0ffffffff(16),
      = FALSE =
        value: integer,
      casend,
    recend;

*copyc iot$logical_unit
*copyc nat$network_address
