RUNDEF programa
   SELECTION ALL

TABLE HOMBRES
AS CROSSTABS OF POB90.TAMANOHAB
BY POB90.TAMANOANT
FOR POB90.DISTRESHAB > 0 AND POB90.DIST5ANO < 69 AND POB90.EDAD > 4 AND POB90.EDAD<99 AND POB90.SEXO=1

TABLE MUJERES
AS CROSSTABS OF POB90.TAMANOHAB
BY POB90.TAMANOANT
FOR POB90.DISTRESHAB > 0 AND POB90.DIST5ANO < 69 AND POB90.EDAD > 4 AND POB90.EDAD<99 AND POB90.SEXO=2

TABLE IM 
AS TABOP
OF (HOMBRES/MUJERES) * 100
DECIMALS 2 

OUTPUTFILE "PA90CTIM" OVERWRITE