LOCAL
  c_types   : SET OF STRING := [];
  c_hit     : INTEGER := 0;
 END_LOCAL;
 
 REPEAT  i:=1 TO  HIINDEX(c_items);
  c_types := c_types + ['AUTOMOTIVE_DESIGN.' + c_items[i]];
 END_REPEAT;

 REPEAT i:=1 TO HIINDEX(items);
  IF  (SIZEOF(c_types * TYPEOF(items[i])) = 1)
   THEN
    c_hit := c_hit + 1;
  END_IF;
 END_REPEAT;

 IF (SIZEOF(items) = c_hit)
  THEN
   RETURN(TRUE);
  ELSE
   RETURN(FALSE);
 END_IF;