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"

   DEFINE POB90.EDAD1
AS RECODE POB90.EDAD
(	0	 - 	4	 =	1	)
(	5	 - 	9	 =	2	)
(	10	 - 	14	 =	3	)
(	15	 - 	19	 =	4	)
(	20	 - 	24	 =	5	)
(	25	 - 	29	 =	6	)
(	30	 - 	34	 =	7	)
(	35	 - 	39	 =	8	)
(	40	 - 	44	 =	9	)
(	45	 - 	49	 =	10	)
(	50	 - 	54	 =	11	)
(	55	 - 	59	 =	12	)
(	60	 - 	64	 =	13	)
(	65	 - 	69	 =	14	)
(	70	 - 	74	 =	15	)
(	75	 - 	79	 =	16	)
(	80	 - 	84	 =	17	)
(	85	 - 	89	 =	18	)
(	90	 - 	94	 =	19	)
(	95	 - 	98	 =	20	)
ELSE 0
TYPE INTEGER
RANGE 0 - 20
VARLABEL "EDAD QUINQUENAL"
VALUELABELS
1 "0-4"
2 "5-9"
3 "10-14"
4 "15-19"
5 "20-24"
6 "25-29"
7 "30-34"
8 "35-39"
9 "40-44"
10 "45-49"
11 "50-54"
12 "55-59"
13 "60-64"
14 "65-69"
15 "70-74"
16 "75-79"
17 "80-84"
18 "85-89"
19 "90-94"
20 "95-98"

DEFINE POB90.MIGCIUD5ANO
AS SWITCH

INCASE (POB90.HABCIUD<>POB90.ANTCIUD) ASSIGN 0
INCASE (POB90.HABCIUD=POB90.ANTCIUD) ASSIGN 1
ELSE 5
TYPE INTEGER
DEFAULT 6
RANGE 0 - 1
VARLABEL "CONDICION MIGRANTES "
VALUELABELS
0 "MIGRANTES"
1 "NO MIGRANTES"

TABLE SA
AS CROSSTABS
OF POB90.EDAD1
BY POB90.SEXO
BY POB90.ANOEST
BY POB90.MIGCIUD5ANO
FOR POB90.DISTRESHAB >0 AND POB90.DIST5ANO<69 AND POB90.EDAD>4 AND POB90.EDAD<99

OUTPUTFILE "PA90C5SA" OVERWRITE