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
FILTER PERSONA.P03 >4 AND PERSONA.PEA = 2 AND   PERSONA.P03 >24 AND  PERSONA.P03 < 40

TABLE PEA
AS CROSSTABS
OF PERSONA.CIUHORD58
BY PERSONA.CIUAORD58
FILTER PERSONA.P03 >4  AND PERSONA.PEA >0  AND   PERSONA.P03 >24 AND  PERSONA.P03 < 40

TABLE T2
AS MATRIXOP
OF DESOCUP/ PEA