Navigation

get_id_value

EXPRESS specification:

FUNCTION get_id_value
(* New for LPM/6 *)(obj : id_attribute_select) : identifier;
  LOCAL
    id_bag : BAG OF id_attribute :=
             (USEDIN (obj,
             'STRUCTURAL_FRAME_SCHEMA.' +
             'ID_ATTRIBUTE.' +
             'IDENTIFIED_ITEM'));
  END_LOCAL;
  IF SIZEOF (id_bag) = 1
    THEN RETURN (id_bag[1].attribute_value);
    ELSE RETURN (?);
  END_IF;
END_FUNCTION;