FUNCTION acyclic_product_definition_relationship

(* SCHEMA plant_spatial_configuration; *)

   FUNCTION acyclic_product_definition_relationship
      (relation : product_definition_relationship;
       relatives : SET [1:?] OF product_definition;
       specific_relation : STRING ) : BOOLEAN;
   LOCAL
      x : SET OF product_definition_relationship;
   END_LOCAL;
      IF relation.relating_product_definition IN relatives THEN
         RETURN (FALSE);
      END_IF;
      x := QUERY (pd <* 
bag_to_set(USEDIN(relation.relating_product_definition, 
'PLANT_SPATIAL_CONFIGURATION.' + 'PRODUCT_DEFINITION_RELATIONSHIP.' + 
'RELATED_PRODUCT_DEFINITION'))| specific_relation IN TYPEOF(pd));
      REPEAT i := 1 TO HIINDEX(x);
         IF NOT acyclic_product_definition_relationship(x[i], 
(relatives + relation.relating_product_definition), specific_relation) 
THEN
            RETURN (FALSE);
         END_IF;
      END_REPEAT;
      RETURN (TRUE);
   END_FUNCTION;

Referenced By

Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:18:24-04:00