RUNDEF programa
   SELECTION ALL
   
DEFINE POBLAC.EDADQUIN
AS RECODE POBLAC.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	 - 	99	 =	20	)
ELSE 0
TYPE INTEGER
RANGE 1 - 20
VARLABEL "EDAD QUINQUENAL RECODIFICADA"
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-96"

DEFINE POBLAC.ANOSEST
AS SWITCH
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) < 21
ASSIGN 0
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 21
ASSIGN 1
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 22
ASSIGN 2
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 23
ASSIGN 3
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 24
ASSIGN 4
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 25
ASSIGN 5
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 26
ASSIGN 6
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 30
ASSIGN 6
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 31
ASSIGN 7
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 32
ASSIGN 8
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 33
ASSIGN 9
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 34
ASSIGN 10
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 35
ASSIGN 11
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 36
ASSIGN 12
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 37
ASSIGN 12
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 38
ASSIGN 12
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 40
ASSIGN 12
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 41
ASSIGN 13
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 42
ASSIGN 14
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 43
ASSIGN 15
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 44
ASSIGN 16
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 45
ASSIGN 17
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 46
ASSIGN 18
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 47
ASSIGN 18
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 48
ASSIGN 18
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) = 50
ASSIGN 18
INCASE ((POBLAC.NIVINS * 10) +  POBLAC.GRADO) > 50 AND ((POBLAC.NIVINS*10) +  POBLAC.GRADO) < 59
ASSIGN 19
ELSE 20
TYPE INTEGER
VALUELABELS
0 "ninguno"
19 "19 y mas"
20 "ignorado"
RANGE 0 - 20

DEFINE POBLAC.MIGCIUDREC
AS SWITCH
INCASE (POBLAC.CIUHORD57<>POBLAC.CIUAORD57)
ASSIGN 1
INCASE (POBLAC.CIUHORD57=POBLAC.CIUAORD57)
ASSIGN 2
ELSE 0
TYPE INTEGER
RANGE 1 - 2
VARLABEL "MIGRANTES CIUDADES RECIENTES"
VALUELABELS
1 "MIGRANTES"
2 "NO MIGRANTES"

TABLE SA
AS CROSSTABS
OF POBLAC.EDADQUIN BY POBLAC.SEXO BY POBLAC.ANOSEST BY POBLAC.MIGCIUDREC
FOR POBLAC.EDAD>4 AND POBLAC.ANOSEST<20

OUTPUTFILE "EC90C5SA" OVERWRITE