RUNDEF programa
   SELECTION ALL

DEFINE POB90.ANOEST
AS RECODE POB90.GRADO
(        0       =      0       )
(	11	 =	1	)
(	12	 =	2	)
(	13	 =	3	)
(	14	 =	4	)
(	15	 =	5	)
(	16	 =	6	)
(	19	 =	1	)
(	21	 =	7	)
(	22	 =	8	)
(	23	 =	9	)
(	24	 =	10	)
(	25	 =	11	)
(	26	 =	12	)
(	29	 =	7	)
(	31	 =	13	)
(	32	 =	14	)
(	33	 =	15	)
(	34	 =	16	)
(	35	 =	17	)
(	36	 =	18	)
(	39	 =	13	)
(	41	 =	19	)
(	42	 =	20	)
(	43	 =	21	)
(	49	 =	19	)
(	51	 =	13	)
(	52	 =	14	)
(	53	 =	15	)
(	59	 =	13	)
ELSE 22
TYPE INTEGER
RANGE 0 - 21
VARLABEL "Anos de Estudio"

TABLE A 
AS CROSSTABS 
OF POB90.TAMANOHAB
BY POB90.TAMANOANT
FOR POB90.ANOEST>=0 AND POB90.DISTRESHAB > 0 AND POB90.DIST5ANO < 69 AND POB90.EDAD > 29 AND POB90.EDAD<45

TABLE A1
AS CROSSTABS
OF POB90.TAMANOHAB
BY POB90.TAMANOANT
FOR  POB90.DISTRESHAB > 0 AND POB90.DIST5ANO < 69 AND POB90.EDAD > 29 AND POB90.EDAD<45 AND POB90.ANOEST>=0
TALLY POB90.ANOEST

TABLE AE2
AS MATRIXOP
OF A1/A
DECIMALS 2

OUTPUTFILE "PA90CTAE2" OVERWRITE