 TYPE

    cmt$element_definition = record
      element_name: cmt$element_name,
      product_id: cmt$product_identification,
      serial_number: cmt$serial_number,
      case element_type: cmt$element_type of
      = cmc$central_memory_element =
        central_memory: cmt$central_memory_definition,
      = cmc$central_processor_element =
        central_processor: cmt$cp_definition,
      = cmc$data_channel_element =
        data_channel: cmt$data_channel_definition,
      = cmc$channel_adapter_element =
        channel_adapter: cmt$channel_adapter_definition,
      = cmc$communications_element =
        communications_element: cmt$communications_definition,
      = cmc$controller_element =
        controller: cmt$controller_definition,
      = cmc$external_processor_element =
        external_processor: cmt$external_cpu_definition,
      = cmc$iou_element =
        iou: cmt$iou_definition,
      = cmc$mainframe_element =
        mainframe: cmt$mainframe_definition,
      = cmc$pem_element =
        pem: cmt$pem_definition,
      = cmc$pp_element =
        pp: cmt$pp_definition,
      = cmc$storage_device_element =
        storage_device: cmt$storage_device_definition,
      casend,
    recend;

*copyc cmt$central_memory_definition
*copyc cmt$channel_adapter_definition
*copyc cmt$communications_definition
*copyc cmt$controller_definition
*copyc cmt$cp_definition
*copyc cmt$data_channel_definition
*copyc cmt$element_name
*copyc cmt$element_type
*copyc cmt$external_cpu_definition
*copyc cmt$iou_definition
*copyc cmt$mainframe_definition
*copyc cmt$pem_definition
*copyc cmt$pp_definition
*copyc cmt$product_identification
*copyc cmt$serial_number
*copyc cmt$storage_device_definition
*copyc pmt$program_name
