RULE shape_aspect_with_definable_object_matches_pattern

(* SCHEMA step_ship_schema; *)

-- ONLY IN AP218
RULE shape_aspect_with_definable_object_matches_pattern FOR (group,
             applied_classification_assignment);

    LOCAL
      clfied_inst : SET OF classification_item := [];
    END_LOCAL;
    REPEAT i := 1 TO HIINDEX(applied_classification_assignment) BY 1;
      IF applied_classification_assignment[i].assigned_class.name =
          'definable object' THEN
        clfied_inst := clfied_inst + applied_classification_assignment[i].
            items;
      END_IF;
    END_REPEAT;

  WHERE
    wr1: (SIZEOF(QUERY ( i <* clfied_inst | (NOT (i.id LIKE '*.*')) )) = 0);

END_RULE;

Generated by STEP Tools^TM EXPRESS to HTML Converter
on 2007-09-24T12:42:22-04:00