RUNDEF programa
   SELECTION ALL
   
TABLE INDMASC5ANOMUJ
AS CROSSTABS OF  POB90.HABCIUD BY POB90.ANTCIUD
FOR POB90.DISTRESHAB >0 AND POB90.DIST5ANO<69 AND POB90.EDAD>4 AND POB90.SEXO=2

TABLE INDMASC5ANOHOM
AS CROSSTABS OF  POB90.HABCIUD BY POB90.ANTCIUD
FOR POB90.DISTRESHAB >0 AND POB90.DIST5ANO<69 AND POB90.EDAD>4 AND POB90.SEXO=1

TABLE MATRIZDERINDMASC5ANO
AS MATRIXOP
OF INDMASC5ANOHOM/ INDMASC5ANOMUJ

TABLE IM 
AS MATRIXOP
OF MATRIZDERINDMASC5ANO* 100

OUTPUTFILE "PA90C5IM" OVERWRITE