RUNDEF programa
   SELECTION ALL
   
DEFINE PERSONA.CATEOCUP1
AS RECODE PERSONA.TRABAJA
(1 - 2 = 1)
(3 = 2)
(4 = 3)
(5 = 4)
ELSE 0
TYPE INTEGER
RANGE 1 - 4
VARLABEL "OCUPACION RECODIFICADA"
VALUELABELS
1 "EMPLEADO"
2 "CUENTA PROPIA"
3 "EMPLEADOR"
4 "FAMILIAR NO REMUNERADO"

TABLE AOJ
AS CROSSTABS
OF PERSONA.CIUDADRH BY PERSONA.CATEOCUP1 BY PERSONA.CIUDADRH5
FOR PERSONA.CATEOCUP1>0 AND PERSONA.CATEOCUP1<5 AND PERSONA.PARENTES=1 AND PERSONA.EDAD>4

OUTPUTFILE "CH02D5OJ.xlsx" OVERWRITE