RUNDEF programa
   SELECTION ALL

TABLE HOMBRES
AS CROSSTABS OF PERSONA.TAMANOH58
BY PERSONA.TAMANOA58
FOR PERSONA.P03>4 AND PERSONA.P01=1

TABLE MUJERES
AS CROSSTABS OF PERSONA.TAMANOH58
BY PERSONA.TAMANOA58
FOR PERSONA.P03>4 AND PERSONA.P01=2

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

OUTPUTFILE "EC10CTIM" OVERWRITE