Navigation

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;