RUNDEF programa
   SELECTION ALL
   
TABLE MIND5
AS CROSSTABS OF POBLAC.CIUHORD57 BY POBLAC.CIUAORD57
FOR POBLAC.CIUHORD57>=0 AND POBLAC.CIUAORD57>=0 AND POBLAC.EDAD>4 AND POBLAC.SEXO=2

TABLE MIND51
AS CROSSTABS OF POBLAC.CIUHORD57 BY POBLAC.CIUAORD57
FOR POBLAC.CIUHORD57>=0 AND POBLAC.CIUAORD57>=0 AND POBLAC.EDAD>4 AND POBLAC.SEXO=1

TABLE MIND52
AS MATRIXOP
OF MIND51/ MIND5

TABLE IM
AS MATRIXOP
OF MIND52* 100

OUTPUTFILE "EC90C5IM" OVERWRITE