 TYPE
    cmt$peripheral_descriptor = record
      case use_logical_identification: boolean of
      = TRUE =
        element_name: cmt$element_name,
      = FALSE =
        hardware_address: cmt$hardware_address,
      casend,
    recend;

*copyc cmt$element_name
*copyc cmt$hardware_address

