|
(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;
|
|