DEFINE PERSONA.TIPOCUP
	AS RECODE PERSONA.CATOCU
	(1 : 3 = 2)
	(4 : 5 = 1)
	(6   = 3)
	(7, 8, 10 = 4)
	ELSE 0
	TYPE INTEGER
	RANGE (1 : 4) 
	VARLABEL "Tipo de Ocupación"
	VALUELABELS
		1 "Patrón"
		2 "Empleado"
		3 "Cuenta propia"
		4 "Otras"

TABLE OC
AS CROSSTABS
OF PERSONA.CIUHORD58
BY PERSONA.TIPOCUP
BY PERSONA.CIUAORD58
FOR PERSONA.P03>4