FUNCTION bag_to_set
(* SCHEMA integrated_cnc_schema; *)
FUNCTION bag_to_set (
the_bag : BAG OF GENERIC : intype
) : SET OF GENERIC : intype;
LOCAL
the_set : SET OF GENERIC : intype := [];
END_LOCAL;
IF SIZEOF(the_bag) > 0 THEN
REPEAT i := 1 TO HIINDEX(the_bag);
the_set := the_set + the_bag[i];
END_REPEAT;
END_IF;
RETURN (the_set);
END_FUNCTION; -- 10303-41: support_resource_schema
Referenced By
Defintion bag_to_set is references by the following definitions:
[Top Level Definitions] Generated by STEP ToolsTM EXPRESS to HTML Converter
on 2010-01-12T10:42:25-02:00