SET PRINTBACK=ON
DATA LIST LIST /recID (F5.0) country (A20) pop (F9.0) rank (F1.0) segment (F1.0).
BEGIN DATA
1 Germany 81 1 1
2 Netherlands 17 4 2
3 Italy 61 3 2
4 France 66 2 1
END DATA.

COMPUTE everybody = 1.
AUTORECODE VARIABLES = country INTO nation.

DATASET COPY AGGSUB_WORK.

DATASET DECLARE AGG_1.
DATASET ACTIVATE AGGSUB_WORK.
AGGREGATE OUTFILE=AGG_1 /BREAK = everybody segment
   /pop rank= MEAN(pop rank)
  /N_pop = N(pop)
/N_rank = N(rank)
  /NU_pop = NU(pop)
/NU_rank = NU(rank)
.
DATASET DECLARE AGG_2.
DATASET ACTIVATE AGGSUB_WORK.
AGGREGATE OUTFILE=AGG_2 /BREAK = everybody nation
   /pop rank= MEAN(pop rank)
  /N_pop = N(pop)
/N_rank = N(rank)
  /NU_pop = NU(pop)
/NU_rank = NU(rank)
.
DATASET ACTIVATE AGG_1.

ADD FILES FILE=* /FILE=AGG_2.
DATASET CLOSE AGG_2.
.
MATCH FILES FILE=* /KEEP=everybody segment nation pop rank ALL.
SELECT IF NOT MISSING(segment)
OR NOT MISSING(nation)
.
SORT CASES BY everybody segment nation.
APPLY DICTIONARY FROM=AGGSUB_WORK.
DATASET CLOSE AGGSUB_WORK.
DATASET CLOSE *.
SAVE OUTFILE = "prova2.sav".