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);