RUNDEF programa
   SELECTION ALL

TABLE HOMBRES 
AS CROSSTABS 
OF POBLACIO.TAMANOHAB
BY POBLACIO.TAMANOANT
FOR  POBLACIO.CANRES5ANO>0 AND POBLACIO.EDAD>4  AND POBLACIO.SEXO =1 

TABLE MUJERES 
AS CROSSTABS 
OF POBLACIO.TAMANOHAB
BY POBLACIO.TAMANOANT
FOR  POBLACIO.CANRES5ANO>0 AND POBLACIO.EDAD>4  AND POBLACIO.SEXO =2 

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

OUTPUTFILE "CR00CTIM" OVERWRITE