RUNDEF programa
   SELECTION ALL

TABLE HOMBRES
AS CROSSTABS OF PERSONA.TAMANOHAB
BY PERSONA.TAMANOANT
FOR PERSONA.P03EDAD>4 AND PERSONA.P03EDAD<999  AND PERSONA.HABCIUD>=0 AND PERSONA.RECCIUD>=0 AND PERSONA.P02SEXO=1

TABLE MUJERES
AS CROSSTABS OF PERSONA.TAMANOHAB
BY PERSONA.TAMANOANT
FOR PERSONA.P03EDAD>4 AND PERSONA.P03EDAD<999  AND PERSONA.HABCIUD>=0 AND PERSONA.RECCIUD>=0 AND PERSONA.P02SEXO=2

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

OUTPUTFILE "PA10CTIM" OVERWRITE