RUNDEF programa
   SELECTION ALL

TABLE H1 AS CROSSTABS OF Persona.TAMANORES
BY Persona.TAMANORES5
FOR Persona.EDAD>4 AND Persona.EDAD<999 AND Persona.TAMANORES>=0 AND Persona.TAMANORES5>=0
AND Persona.SEXO=1
WEIGHT  VIVIENDA.FACTOR  

TABLE M1 AS CROSSTABS OF Persona.TAMANORES
BY Persona.TAMANORES5
FOR Persona.EDAD>4 AND Persona.EDAD<999  AND Persona.TAMANORES>=0 AND Persona.TAMANORES5>=0
AND Persona.SEXO=2
WEIGHT  VIVIENDA.FACTOR 

TABLE IM 
AS TABOP
OF (H1/M1)*100
DECIMALS 2

 OUTPUTFILE XLS "mex-2000-CTIM.xlsx"
 OVERWRITE