get_instance_id

EXPRESS specification:

FUNCTION get_instance_id
(* 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;
END_FUNCTION;