  FUNCTION cmp$support_redundant_access
    (    element_type: cmt$element_type;
         product_id: cmt$product_identification): boolean;

?? PUSH (LISTEXT := ON) ??

    CASE element_type OF
    = cmc$controller_element =
      cmp$support_redundant_access :=
            (product_id.product_number = ' $5831') OR (product_id.product_number = ' $NTDC') OR
            (product_id.product_number = ' $5680') OR (product_id.product_number = ' $5698') OR
            (product_id.product_number = ' $7154') OR (product_id.product_number = ' $7155') OR
            (product_id.product_number = '$FA7B4') OR (product_id.product_number = '$FA7B5');

    = cmc$storage_device_element =
      cmp$support_redundant_access :=
            (product_id.product_number = ' $NTDD') OR (product_id.product_number = ' $5833') OR
            (product_id.product_number = ' $5837') OR (product_id.product_number = ' $5838') OR
            (product_id.product_number = '$47444') OR (product_id.product_number = ' $5832') OR
            (product_id.product_number = ' $9853') OR (product_id.product_number = ' $9836');
    ELSE
      cmp$support_redundant_access := FALSE;
    CASEND;

  FUNCEND cmp$support_redundant_access;

*copyc cmt$element_type
*copyc cmt$product_identification
?? POP ??

