FUNCTION get_multi_language
(x : multi_language_attribute_assignment) : label;
LOCAL
alas : BAG OF attribute_language_assignment :=
USEDIN(x, 'AUTOMOTIVE_DESIGN.'+
'ATTRIBUTE_LANGUAGE_ASSIGNMENT.ITEMS');
-- note: sizeof(alas) has TO be 1 due to
-- multi_language_attribute_assignment.wr2
END_LOCAL;
IF SIZEOF(alas) > 0 THEN RETURN(alas[1].language);
END_IF;
RETURN (?); END_FUNCTION; -- get_multi_language
|