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 PEA AS FREQUENCY
	OF PERSONA.CIUHORD58
	BY PERSONA.CIUAORD58
	FILTER PERSONA.P03 > 4  AND PERSONA.PEA > 0

TABLE POBLA AS FREQUENCY
	OF PERSONA.CIUHORD58
	BY PERSONA.CIUAORD58
	FILTER PERSONA.P03 > 4 

TABLE PA 
AS MATRIXOP
OF PEA / POBLA