RULE notation_type_identification_constraint

(* SCHEMA technical_data_packaging; *)

  RULE notation_type_identification_constraint FOR (representation);

    LOCAL
      note   : SET OF representation;
      result : BOOLEAN;
    END_LOCAL;
    note := QUERY ( rep <* representation | (rep.name = 'notation') );
    result := FALSE;
    IF SIZEOF(note) < 1 THEN
      result := TRUE;
    END_IF;
    REPEAT i := 1 TO SIZEOF(note) BY 1;
      REPEAT j := 1 TO SIZEOF(note[i].items) BY 1;
        IF 'TECHNICAL_DATA_PACKAGING.DESCRIPTIVE_REPRESENTATION_ITEM' IN 
            TYPEOF(note[i].items[j]) THEN
          result := TRUE;
          ESCAPE;
        END_IF;
      END_REPEAT;
    END_REPEAT;

  WHERE
    wr1: result;

  END_RULE; -- notation_type_identification_constraint

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