

  TYPE
    cmt$state_information = RECORD
      element_name : cmt$element_name,
      status : cmt$element_status,
      CASE element_type : cmt$element_type OF
      = cmc$data_channel_element =
        iou : cmt$element_name,
      = cmc$controller_element, cmc$channel_adapter_element, cmc$storage_device_element
            , cmc$external_processor_element, cmc$communications_element =
        product_id : cmt$product_identification,
        logical_unit : iot$logical_unit,
        application_info_size: integer,
        application_info_p: ^string ( * ),
        site_info_size: integer,
        site_info_p: ^string ( * ),
      CASEND,
    RECEND;

?? PUSH (LISTEXT := ON) ??
*copyc cmt$element_name
*copyc cmt$element_status
*copyc cmt$element_type
*copyc cmt$product_identification
*copyc iot$logical_unit
?? POP ??

