DEFINE PERSONA.OCUP1
    AS RECODE PERSONA.CATEGOR
    (1=1)
    (2 - 3=2)
    (4=3)
    (5=4)
    (6=5)
    (7=6)
    ELSE 0
    TYPE INTEGER
    RANGE 0 - 6
    VALUELABELS
    1 "PATRON"
    2 "EMPLEADO"
    3 "CUENTA PROPIA"
    4 "FAMILIAR"
    5 "COOP"
    6 "OTRO"

TABLE OC 
AS FREQUENCY OF VIVIENDA.CIUDEMP 
BY  PERSONA.OCUP1 
BY  PERSONA.ANTCIUD
FOR PERSONA.EDAD  > 4 

OUTPUTFILE "UR96C5OC" OVERWRITE