Navigation

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;