RUNDEF programa
   SELECTION ALL

TABLE HOMBRES
AS CROSSTABS OF PERSONA.TAMANOHAB
BY PERSONA.TAMANOANT
FOR PERSONA.P30>4 AND PERSONA.P30<99  AND PERSONA.HABCIUD>=0 AND PERSONA.ANTCIUD>=0 AND PERSONA.P28=1

TABLE MUJERES
AS CROSSTABS OF PERSONA.TAMANOHAB
BY PERSONA.TAMANOANT
FOR PERSONA.P30>4 AND PERSONA.P30<99  AND PERSONA.HABCIUD>=0 AND PERSONA.ANTCIUD>=0 AND PERSONA.P28=2

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

OUTPUTFILE "RD02CTIM" OVERWRITE