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 DESEM5ANO
AS CROSSTABS OF POBLAC.CIUHORD57 BY POBLAC.CIUAORD57
FOR POBLAC.EDAD>7 AND POBLAC.PEA>0 AND POBLAC.CIUHORD57>=0 AND POBLAC.CIUAORD57>=0

TABLE DESEMPLEO5ANO
AS CROSSTABS OF POBLAC.CIUHORD57 BY POBLAC.CIUAORD57
FOR POBLAC.EDAD>7 AND POBLAC.PEA=2 AND POBLAC.CIUHORD57>=0 AND POBLAC.CIUAORD57>=0

TABLE TD
AS MATRIXOP
OF DESEMPLEO5ANO/ DESEM5ANO

OUTPUTFILE "EC90C5TD" OVERWRITE