unique_data_item

EXPRESS specification:

FUNCTION unique_data_item
(item : select_data_item): LOGICAL; LOCAL bag_of_managed_items : BAG OF managed_data_item; END_LOCAL; IF ('STRUCTURAL_FRAME_SCHEMA.MANAGED_DATA_DELETED' IN TYPEOF(item)) THEN RETURN (UNKNOWN); END_IF; (* find the managed_data_item in which the item is used and add to the bag_of_managed_items *) bag_of_managed_items := USEDIN(item, 'STRUCTURAL_FRAME_SCHEMA.MANAGED_DATA_ITEM.DATA_ITEM'); IF SIZEOF (bag_of_managed_items) = 1 THEN RETURN (TRUE); ELSE RETURN (FALSE); END_IF;
END_FUNCTION;