RUNDEF programa
   SELECTION ALL

DEFINE PERSONA.ANOEST
AS SWITCH
INCASE PERSONA.P40B=0
ASSIGN 0
INCASE PERSONA.P38=3
ASSIGN 0
INCASE PERSONA.P40A<3
ASSIGN 0
INCASE PERSONA.P40A=3 AND PERSONA.P38=4
ASSIGN PERSONA.P40B
INCASE PERSONA.P40A=3 AND (PERSONA.P38=1 OR PERSONA.P38=2)
ASSIGN PERSONA.P40B - 1
INCASE PERSONA.P40A=4 AND PERSONA.P38=4
ASSIGN PERSONA.P40B + 8
INCASE PERSONA.P40A=4 AND (PERSONA.P38=1 OR PERSONA.P38=2)
ASSIGN PERSONA.P40B + 7
INCASE PERSONA.P40A=5 AND PERSONA.P38=4
ASSIGN PERSONA.P40B + 12
INCASE PERSONA.P40A=5 AND (PERSONA.P38=1 OR PERSONA.P38=2)
ASSIGN PERSONA.P40B + 11
INCASE PERSONA.P40A>5 AND PERSONA.P40A<8 AND PERSONA.P38=4
ASSIGN PERSONA.P40B + 17
INCASE PERSONA.P40A>5 AND PERSONA.P40A<8 AND (PERSONA.P38=1 OR PERSONA.P38=2)
ASSIGN PERSONA.P40B + 16
INCASE PERSONA.P40A=8 AND PERSONA.P38=4
ASSIGN PERSONA.P40B + 19
INCASE PERSONA.P40A=8 AND (PERSONA.P38=1 OR PERSONA.P38=2)
ASSIGN PERSONA.P40B + 18
ELSE 25
TYPE INTEGER
RANGE 0 - 23
VARLABEL "Años de Estudio"

TABLE A 
AS CROSSTABS 
OF PERSONA.TAMANOHAB
BY PERSONA.TAMANOANT
FOR PERSONA.ANOEST>=0 AND PERSONA.P30>29 AND PERSONA.P30<45 
AND PERSONA.HABCIUD>=0 AND PERSONA.ANTCIUD>=0

TABLE A1
AS CROSSTABS
OF PERSONA.TAMANOHAB
BY PERSONA.TAMANOANT
FOR PERSONA.ANOEST>=0 AND PERSONA.P30>29 AND PERSONA.P30<45 
AND PERSONA.HABCIUD>=0 AND PERSONA.ANTCIUD>=0
TALLY PERSONA.ANOEST

TABLE AE2
AS MATRIXOP
OF A1/A
DECIMALS 2

OUTPUTFILE "RD02CTAE2" OVERWRITE