
  TYPE
    cmt$physical_descriptor = record
      case configured: boolean of
      = TRUE =
        case element_type: cmt$element_type of
        = cmc$data_channel_element =
          mainframe_ownership: cmt$element_name,
          channel_path: cmt$physical_address,
          channel_connection: ^array [ * ] of cmt$downline_connection,
        = cmc$controller_element, cmc$channel_adapter_element,
              cmc$communications_element, cmc$external_processor_element =
          microcode_identification: cmt$equipment_identification,
          peripheral_driver_name: pmt$program_name,
          equipment_path: ^array [ * ] of cmt$physical_address,
          equipment_connection: ^array [ * ] of cmt$downline_connection,
        = cmc$storage_device_element =
          unit_path: ^array [ * ] of cmt$physical_address,
        casend,
      = FALSE =
        hardware_address: cmt$physical_address,
      casend,
    recend;

*copyc cmt$downline_connection
*copyc cmt$element_name
*copyc cmt$element_type
*copyc cmt$equipment_identification
*copyc cmt$hardware_address
*copyc cmt$physical_address
*copyc pmt$program_name
