DEFINE PERSONA.PEA
AS SWITCH
INCASE (PERSONA.HISEMP=1 OR PERSONA.HISEMP=2) AND PERSONA.EDAD>4
ASSIGN 1
INCASE (PERSONA.HISEMP=3 OR PERSONA.HISEMP=4) AND PERSONA.EDAD>4
ASSIGN 2
ELSE 0
TYPE INTEGER
RANGE 1 - 2
VARLABEL "PEA"
VALUELABELS
1 "Ocupados"
2 "Desocupados"

TABLE PEAS AS CROSSTABS OF PERSONA.CIUHORD58 BY PERSONA.CIUAORD58
FOR PERSONA.EDAD>4   AND PERSONA.PEA>0

TABLE DESOCUP AS CROSSTABS OF PERSONA.CIUHORD58 BY PERSONA.CIUAORD58
FOR PERSONA.EDAD>4   AND PERSONA.PEA=2

TABLE TD
AS MATRIXOP
OF DESOCUP / PEAS