RULE unique_datum_system

(* SCHEMA step_merged_ap_schema; *)

-- DIFF IN AP238 STEP-NC
-- IN AP238 STEP-NC/AP242
RULE unique_datum_system FOR (datum_system );
   LOCAL
      pass : BOOLEAN := FALSE;
   END_LOCAL;
      REPEAT i := 1 TO SIZEOF(datum_system);
         REPEAT j := 1 TO SIZEOF(datum_system);
            IF i <> j THEN
               IF datum_system[i]\datum_system.constituents = datum_system[j]\datum_system.constituents THEN
                  pass := FALSE;
               END_IF;
            END_IF;
         END_REPEAT;
      END_REPEAT;
   WHERE
      WR1:
         pass;
END_RULE;

[Top Level Definitions] [Exit]

Generated by STEP Tools® EXPRESS to HTML Converter
2020-07-28T17:02:20-04:00