RUNDEF programa
   SELECTION ALL
   
DEFINE POBLAC.GRUPEDAD
AS RECODE POBLAC.EDAD
(0 - 14=1)
(15 - 29=2)
(30 - 59=3)
(60 - 99=4)
ELSE 0
TYPE INTEGER
RANGE 1 - 4
VALUELABELS
1  "0-14"
2  "15-29"
3  "30-59"
4  "60 Y MAS"

TABLE ED
AS CROSSTABS OF POBLAC.CIUHORD57 BY POBLAC.GRUPEDAD BY POBLAC.CIUAORD57
FOR POBLAC.EDAD>4 AND POBLAC.CIUHORD57>=0 AND POBLAC.CIUAORD57>=0

OUTPUTFILE "EC90C5ED" OVERWRITE