RUNDEF programa
   SELECTION ALL

TABLE GRPEDAD
AS CROSSTABS OF POB90.TAMANOHAB
BY POB90.TAMANOANT
FOR  POB90.DISTRESHAB > 0 AND POB90.DIST5ANO < 69 AND POB90.EDAD > 29 AND POB90.EDAD<45

TABLE TODO
AS CROSSTABS OF POB90.TAMANOHAB
BY POB90.TAMANOANT
FOR POB90.DISTRESHAB > 0 AND POB90.DIST5ANO < 69 AND POB90.EDAD > 4

TABLE ED3
AS TABOP
OF (GRPEDAD/TODO) * 100
DECIMALS 2 

OUTPUTFILE "PA90CTED3" OVERWRITE