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

TABLE EDAD51
AS CROSSTABS OF POBLAC.CIUHORD57 BY POBLAC.CIUAORD57
FOR POBLAC.CIUHORD57>=0 AND POBLAC.CIUAORD57>=0 AND POBLAC.EDAD>4
TALLY POBLAC.EDAD

TABLE PE
AS MATRIXOP
OF EDAD51/ EDAD5

OUTPUTFILE "EC90C5PE" OVERWRITE