Navigation

get_name_value

EXPRESS specification:

FUNCTION get_name_value
(* New for LPM/6 *)(obj : name_attribute_select) : label;
  LOCAL
    name_bag : BAG OF name_attribute :=
               (USEDIN (obj,
               'STRUCTURAL_FRAME_SCHEMA.' +
               'NAME_ATTRIBUTE.' +
               'NAMED_ITEM'));
  END_LOCAL;
  IF SIZEOF (name_bag) = 1
    THEN RETURN (name_bag[1].attribute_value);
    ELSE RETURN (?);
  END_IF;
END_FUNCTION;