RULE assembly_relationship_has_product_definition

(* SCHEMA ship_structures_schema; *)

  RULE assembly_relationship_has_product_definition FOR (group, 
             applied_classification_assignment);

    LOCAL
      cl_ass      : SET OF applied_classification_assignment := [];
      clfied_inst : SET OF product_definition_relationship := [];
    END_LOCAL;
    cl_ass := QUERY ( i <* applied_classification_assignment | (i.
        assigned_class.name = 'assembly relationship') );
    REPEAT i := 1 TO HIINDEX(cl_ass) BY 1;
      clfied_inst := clfied_inst + cl_ass[i].items;
    END_REPEAT;

  WHERE
    wr1: ((SIZEOF(QUERY ( pdr <* clfied_inst | (NOT (SIZEOF(which_class(
             pdr.relating_product_definition)) > 0)) )) - SIZEOF(
             QUERY ( pdr <* clfied_inst | (NOT (SIZEOF(which_class(pdr.
             related_product_definition)) > 0)) ))) = 0);

  END_RULE; -- assembly_relationship_has_product_definition

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