

  TYPE
     cmt$selector = (cmc$select_by_type, cmc$select_by_product,
         cmc$select_by_device_class, cmc$select_all),

     cmt$element_selector = RECORD
       CASE key : cmt$selector OF
       = cmc$select_by_type =
         element_type : cmt$element_type,
       = cmc$select_by_product =
         product_id : cmt$product_identification,
       = cmc$select_by_device_class =
         device_class : rmt$device_class,
       = cmc$select_all =
           ,
       CASEND,
     RECEND;

?? PUSH(LISTEXT := ON) ??
*copyc cmt$element_type
*copyc cmt$product_identification
*copyc rmt$device_class
?? POP ??

