Power Builder - dado un vector cuales son los valores que se repiten?

long vector[]

vector[1]=4

vector[2]=7

vector[3]=2

vector[4]=6

vector[5]=5

vector[6]=2

vector[7]=7

integer i, i1, i2, u

u=UpperBound (vector)

FOR i=1 TO u STEP 1

	for i1= i+1 to u step 1

	if vector[i1] =vector[i] then	messagebox('Atención!', 'Valor repetido....'+string(vector[i]))

	next

NEXT