DEFINE PERSONA.PEA
AS SWITCH
INCASE (PERSONA.SITECONO > 0 AND PERSONA.SITECONO < 3) ASSIGN 1
INCASE (PERSONA.SITECONO = 3 OR PERSONA.SITECONO = 4) ASSIGN 2
INCASE PERSONA.OTRACTIV = 1 ASSIGN 1
ELSE 0
TYPE INTEGER
RANGE 1 - 2
VARLABEL "EMPLEO PEA"
VALUELABELS
1 "Ocupado"
2 "Desocupado"

TABLE DESEM5ANO
AS CROSSTABS OF MUNICIPI.HABCIUD BY PERSONA.ANTCIUD
FOR  PERSONA.EDADN>9 AND PERSONA.PEA>0

TABLE DESEMPLEO5ANO
AS CROSSTABS OF MUNICIPI.HABCIUD BY PERSONA.ANTCIUD
FOR   PERSONA.EDADN>9 AND PERSONA.PEA=2

TABLE TD 
AS MATRIXOP
OF DESEMPLEO5ANO / DESEM5ANO