title 'Test VECTOR utility'.

data list /c 1(a).
begin data.
5
3
4
1
2
end data.

string x1 to x5 y1 to y5(a1).
vector x=x1 to x5.
*formats all(f1).
compute x(number(c))=c.
leave x1 to x5.
list.

vector x=x1 to x5.
vector y=y1 to y5.
*formats all(f1).
compute y(number(c))=x(number(c)+1).
display vector.
list.