RUNDEF programa
   SELECTION ALL
   
DEFINE POBLAC.OCUP1
AS RECODE  POBLAC.CATOCU
(1=1)
(2=2)
(3 - 5=3)
(6=4)
ELSE 0
TYPE INTEGER
RANGE 0 - 4
VALUELABELS
1 "PATRON"
2 "CUENTA PROPIA"
3 "EMPLEADO"
4 "TRABAJADOR FAMILIAR"

TABLE OJ
AS CROSSTABS OF POBLAC.CIUHORD57 BY POBLAC.OCUP1 BY POBLAC.CIUAORD57
FOR POBLAC.CIUHORD57>=0 AND POBLAC.CIUAORD57>=0 AND POBLAC.EDAD>4 AND POBLAC.OCUP1>0 AND POBLAC.PARENT=0

OUTPUTFILE "EC90C5OJ" OVERWRITE