LOCAL pd_set : SET  OF  product_definition_shape := [ ] ; pdr_set : SET OF shape_aspect := [ ] ; END_LOCAL ; pd_set := bag_to_set ( QUERY ( pd <* USEDIN  ( c_def_instance , 'product_property_definition_schema.property_definition.definition' ) | 'product_property_definition_schema.product_definition_shape' IN TYPEOF ( pd ) ) ) ; IF ( SIZEOF ( pd_set ) < 1 ) THEN RETURN  ( pdr_set ) ; END_IF ; REPEAT i := 1 TO HIINDEX ( pd_set ) ; pdr_set := pdr_set + bag_to_set ( USEDIN ( pd_set [ i ] , 'product_property_definition_schema.shape_aspect.of_shape' ) ) ; END_REPEAT ; RETURN ( pdr_set ) ;