DEFINE PERSONA.CATEGOCUPA
AS RECODE  PERSONA.AL08
( 1 : 2 = 1)(3 = 3)(4 = 2)(5 = 3)(6 = 4)(7 = 1) ELSE 0
range 0 - 4
VARLABEL "Categoría de ocupación"
Valuelabels
1 "Obrero, empleado"
2 "Patrón, empleador"
3 "Trabajador cuenta propia"
4 "Familiar no remunerado"

TABLE OJ 
AS FREQUENCY OF VIVIENDA.CIUDEMP 
BY  PERSONA.CATEGOCUPA 
BY  PERSONA.CIUDANT
FOR PERSONA.NA01  > 4 AND  PERSONA.PA01 = 1