|
(* New for LPM/6 *)(obj : select_data_item) : globally_unique_id;
LOCAL
id_bag : BAG OF managed_data_item :=
(USEDIN (obj,
'STRUCTURAL_FRAME_SCHEMA.' +
'MANAGED_DATA_ITEM.' +
'DATA_ITEM'));
n : INTEGER;
END_LOCAL;
n := SIZEOF(id_bag);
CASE n OF
0 : RETURN ('UNMANAGED');
1 : RETURN (id_bag[1].instance_id);
OTHERWISE : RETURN (?);
END_CASE;
|
|