RUNDEF programa
   SELECTION ALL
   
DEFINE POB90.GRUPEDAD
   AS RECODE POB90.EDAD
   (5 - 14=1)
   (15 - 29=2)
   (30 - 59=3)
   (60 - 98=4)
   ELSE 0
   TYPE INTEGER
   RANGE 0 - 99
   VARLABEL "GRUPOS DE EDAD"
   VALUELABELS
   1  "5-14"
   2  "15-29"
   3  "30-59"
   4  "60-98"

TABLE ED 
AS CROSSTABS OF  POB90.HABCIUD BY POB90.GRUPEDAD BY POB90.ANTCIUD
FOR POB90.DISTRESHAB >0 AND POB90.DIST5ANO<69 AND POB90.EDAD>4 AND POB90.GRUPEDAD >0

OUTPUTFILE "PA90C5ED" OVERWRITE