
  TYPE
    cmt$peripheral_element_entry = record
      element_name: cmt$element_name,
      product_id: cmt$product_identification,
      serial_number: cmt$serial_number,
      logical_unit_number: iot$logical_unit,
      element_status: cmt$element_status,
      gtid: ost$global_task_id,
      maintenance_activity: cmt$maintenance_activity_count,
      physical_descriptor: cmt$physical_descriptor,
      entry_interlock: boolean,
      state_change_request: cmt$state_change_request,
      case reservable_element: cmt$reservable_status of
      = cmc$reservable, cmc$reservable_only_by_system =
        case reserved_status: boolean of
        = TRUE =
          reserved_job: jmt$system_supplied_name,
          reserved_by_system: boolean,
        = FALSE =
          ,
        casend,
      = cmc$not_reservable =
        ,
      casend,
    recend;

*copyc cmt$element_name
*copyc cmt$element_status
*copyc cmt$maintenance_activity_count
*copyc cmt$physical_descriptor
*copyc cmt$product_identification
*copyc cmt$reservable_status
*copyc cmt$serial_number
*copyc cmt$state_change_request
*copyc iot$logical_unit
*copyc jmt$system_supplied_name
*copyc ost$global_task_id
