
  TYPE
    nat$accounting_data_fields = array [1 .. * ] of
          nat$accounting_data_field;

  TYPE
    nat$accounting_data_field = record
      case kind: nat$accounting_data_kind of
      = nac$ca_device_name =
        device_name: ost$name,
      = nac$ca_di_system_name =
        di_system_name: ost$name,
      = nac$ca_i_o_station_name =
        i_o_station_name: ost$name,
      = nac$ca_line_speed =
        line_speed: 0 .. 0ffff(16),
      = nac$ca_line_name =
        line_name: ost$name,
      = nac$ca_line_subtype =
        line_subtype: ost$name,
      = nac$ca_null_information =
        ,
      = nac$ca_pdn_name =
        pdn_name: ost$name,
      = nac$ca_trunk_name =
        trunk_name: ost$name,
      = nac$ca_trunk_subtype =
        trunk_subtype: ost$name,
      = nac$ca_unavailable_information =
        ,
      casend,
    recend;

*copyc nat$accounting_data_kind
*copyc ost$name
