LOCAL category_assignments : BAG OF  product_related_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 ) ;