RUNDEF programa
   SELECTION ALL

DEFINE POBLAC.PEA
AS SWITCH
INCASE (POBLAC.HISEMP=0 OR POBLAC.HISEMP=1) AND POBLAC.EDAD >7 ASSIGN 1
INCASE (POBLAC.HISEMP=2 OR POBLAC.HISEMP=3) AND POBLAC.EDAD >7 ASSIGN 2
ELSE 0
TYPE INTEGER
RANGE 1 - 2
VARLABEL "POBLACION ECONOMICAMENTE ACTIVA"
VALUELABELS
1 "OCUPADOS"
2 "DESOCUPADOS"

TABLE PEA5ANO2539
AS CROSSTABS OF POBLAC.CIUHORD57 BY POBLAC.CIUAORD57
FOR POBLAC.EDAD>24 AND POBLAC.EDAD<40 AND POBLAC.HISEMP<9 AND POBLAC.CIUHORD57>=0 AND POBLAC.CIUAORD57>=0

TABLE PEAFILTRO5ANO2539
AS CROSSTABS OF POBLAC.CIUHORD57 BY POBLAC.CIUAORD57
FOR POBLAC.EDAD>24 AND POBLAC.EDAD<40 AND POBLAC.PEA>0 AND POBLAC.CIUHORD57>=0 AND POBLAC.CIUAORD57>=0

TABLE P2
AS MATRIXOP
OF PEAFILTRO5ANO2539/ PEA5ANO2539

OUTPUTFILE "EC90C5P2" OVERWRITE