DEFINE PERSONA.PEA
	AS SWITCH
	INCASE PERSONA.TIPOACT < 6
	ASSIGN 1
	INCASE PERSONA.TIPOACT = 6 OR PERSONA.TIPOACT = 7
	ASSIGN 2
	ELSE 0
	TYPE INTEGER
	RANGE (1 : 2) 
	VARLABEL "PEA"
	VALUELABELS
		1 "OCUPADO"
		2 "DESOCUPADO"

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

TABLE PEAS
AS CROSSTABS
OF PERSONA.CIUHORD58
BY PERSONA.CIUAORD58
FOR PERSONA.P03>4 AND   PERSONA.PEA > 0
                                    
TABLE TD 
AS MATRIXOP
OF DESOCUP / PEAS