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 NN
AS CROSSTABS
OF POB90.HABCIUD
BY POB90.ANTCIUD
FOR POB90.DISTRESHAB >0 AND POB90.DIST5ANO<69 AND POB90.EDAD>34 AND POB90.EDAD<50

TABLE JJ
AS CROSSTABS
OF  POB90.HABCIUD
BY POB90.ANTCIUD
FOR POB90.DISTRESHAB >0 AND POB90.DIST5ANO<69 AND POB90.EDAD>34 AND POB90.EDAD<50
TALLY POB90.ANOEST

TABLE A3 
AS MATRIXOP
OF JJ/NN

OUTPUTFILE "PA90C5A3" OVERWRITE