LOCAL
  acr : SET  OF  Next_assembly_usage_occurrence_relationship_armx := [];
  pvd : SET OF Product_view_definition := [];
END_LOCAL;

REPEAT i := 1 TO  HIINDEX(input) BY  1;
  acr := input[i]\Assembly_component_armx.occurrence_contexts;
END_REPEAT;

REPEAT i := 1 TO HIINDEX(acr) BY 1;
  IF NOT('COMPONENT_GROUPING_XIM.' + 'ASSEMBLY_GROUP_COMPONENT_ARMX' IN TYPEOF(acr[i]\Next_assembly_usage_occurrence_relationship_armx.relating_view))
  THEN
  pvd := pvd + acr[i]\Next_assembly_usage_occurrence_relationship_armx.relating_view; 
  ELSE
  pvd := pvd + get_assemblies(acr[i]\Next_assembly_usage_occurrence_relationship_armx.relating_view);
  END_IF;
END_REPEAT;
RETURN (pvd);