RULE representation_items_optional_for_liquid_cargo

(* SCHEMA step_ship_schema; *)

-- ONLY IN AP215
RULE representation_items_optional_for_liquid_cargo FOR (representation );
   LOCAL
      reps : BAG OF representation := [];
      arg_list : LIST OF STRING := ['flash point', 'required carriage pressure', 'required carriage temperature', 'user def cargo'];
      found : LOGICAL := FALSE;
   END_LOCAL;
      reps := QUERY (temp_rep <* representation| SIZEOF(QUERY (temp_prop_def_rep <* bag_to_set(USEDIN(temp_rep, 'STEP_SHIP_SCHEMA.PROPERTY_DEFINITION_REPRESENTATION.' + 'USED_REPRESENTATION'))|
 (temp_prop_def_rep.NAME = 'liquid cargo parameters'))) > 0);
      REPEAT i := 1 TO HIINDEX(reps) WHILE NOT found;
         REPEAT j := 1 TO HIINDEX(arg_list) WHILE NOT found;
            found := SIZEOF(QUERY (rep_item <* reps[i].items | (rep_item.NAME = arg_list[j]))) > 1;
         END_REPEAT;
      END_REPEAT;
   WHERE
      WR1:
         NOT found;
END_RULE;

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