RULE indentured_level_tag_identification_constraint

(* SCHEMA step_merged_ap_schema; *)

-- IN AP232
RULE indentured_level_tag_identification_constraint FOR (property_definition_representation );
   LOCAL
      pdr : SET OF property_definition_representation;
      result : BOOLEAN := TRUE;
   END_LOCAL;
      pdr := property_definition_representation;
      REPEAT i := 1 TO SIZEOF(pdr) BY 1;
         IF pdr[i].used_representation.name = 'indentured level tag' THEN
            IF NOT ((pdr[i].definition.name = 'exchange entry property') XOR (pdr[i].definition.name = 'indentured data list entry property')) THEN
               result := FALSE;
            END_IF;
         END_IF;
      END_REPEAT;
   WHERE
      wr1:
         result;
END_RULE;

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