DEFINE PERSONA.TIPOCUPA
AS RECODE    PERSONA.P21
(1 - 5 =1)
( 6 =2)(7 =3)(8 = 4)(9 = 5)
ELSE 0
RANGE 1 - 5
VARLABEL "Tipo de ocupación"
VALUELABELS
1 " EMPLEADO"
2 "CUENTA PROPIA"
3 " EMPLEADOR"
4 " TRABAJADOR FAMILIAR"
5 "MIEMBRO COOPERATIVA PRODUCCION"

TABLE OJ
AS CROSSTABS
OF  PERSONA.HABCIUD
BY PERSONA.TIPOCUPA
BY  PERSONA.ANTCIUD
FOR PERSONA.P03>4 AND PERSONA.P03<99 AND PERSONA.P01 =1
AND PERSONA.DISTRESHAB > 0 AND  PERSONA.DIST5ANO > 0 AND PERSONA.DIST5ANO < 76