From many to one example2

* Posted to SPSSX-L by Ray on 2001/02/23.

DATA LIST LIST /id seqn info.
BEGIN DATA
1,1,9876
1,2,3652
1,3,2514
1,4,2536
1,5,1245
1,6,1258
2,1,1254
2,2,1234
3,1,9512
4,1,6541
4,2,9856
4,3,6542
END DATA.
LIST.


MATCH FILES FILE=* /BY id /LAST=last.
* Note: The number 12 in the next line needs to be at least equal to the 
	maximum value of seqn in the data file.
VECTOR separ(12F8.0).
COMPUTE separ(seqn)=info.
* Note: Replace the 2 number 12 in next commands by the dimension of vector separ.
AGGREGATE
  /OUTFILE=*
  /BREAK=id
  /separ1 TO separ12 = MAX(separ1 TO separ12).