RUNDEF programa
   SELECTION ALL

TABLE HOMBRES
AS CROSSTABS OF PERSONA.TAMANOHAB
BY PERSONA.TAMANOANT
FOR PERSONA.DISTRESHAB > 0 AND PERSONA.P03 > 4 AND PERSONA.DIST5ANO > 0 AND PERSONA.DIST5ANO < 76 AND PERSONA.P02=1

TABLE MUJERES
AS CROSSTABS OF PERSONA.TAMANOHAB
BY PERSONA.TAMANOANT
FOR PERSONA.DISTRESHAB > 0 AND PERSONA.P03 > 4 AND PERSONA.DIST5ANO > 0 AND PERSONA.DIST5ANO < 76 AND PERSONA.P02=2

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

OUTPUTFILE "PA00CTIM" OVERWRITE