FUNCTION categories_of_product
(obj : product) : SET [0:?] OF STRING;
LOCAL category_assignments: BAG OF product_category; categories: SET OF STRING:=[]; i: INTEGER; END_LOCAL; category_assignments := USEDIN(obj, 'PRODUCT_DEFINITION_SCHEMA.' + 'PRODUCT_RELATED_PRODUCT_CATEGORY.PRODUCTS'); REPEAT i := LOINDEX(category_assignments) TO HIINDEX(category_assignments) BY 1; categories := categories + category_assignments[i].name; END_REPEAT; RETURN(categories); END_FUNCTION; -- categories_of_product
|