(* SCHEMA step_merged_ap_schema; *)
-- IN AP232 RULE change_identification_restricts_executed_action FOR (executed_action ); LOCAL acta : BAG OF action_assignment; found : BOOLEAN := FALSE; exeact : SET OF executed_action; result : BOOLEAN := TRUE; END_LOCAL; exeact := executed_action; REPEAT i := 1 TO SIZEOF(exeact) BY 1; IF exeact[i].description = 'change identification' THEN acta := USEDIN(exeact[i], 'STEP_MERGED_AP_SCHEMA.ACTION_ASSIGNMENT.ASSIGNED_ACTION'); found := FALSE; REPEAT j := 1 TO SIZEOF(acta) BY 1; IF EXISTS(acta[j].role) THEN IF (acta[j].role.name = 'change identification') XOR (acta[j].role.name = 'revision history') THEN found := TRUE; END_IF; END_IF; END_REPEAT; IF NOT found THEN result := FALSE; ESCAPE; END_IF; END_IF; END_REPEAT; WHERE wr1: result; END_RULE;
Generated by STEP Tools® EXPRESS to HTML Converter
2020-07-28T17:02:19-04:00