LOCAL acr : SET  OF  assembly_component_usage := input \ assembly_component . occurrence_contexts ; agc : SET OF assembly_group_component_armx := [ ] ; END_LOCAL ; REPEAT i := 1 TO HIINDEX ( acr ) BY 1 ; IF ( 'component_grouping_arm.' + 'assembly_group_component_armx' IN TYPEOF ( acr [ i ] \ product_definition_relationship . relating_product_definition ) ) THEN agc := agc + acr [ i ] \ product_definition_relationship . relating_product_definition ; END_IF ; END_REPEAT ; RETURN ( agc ) ;