RUNDEF JOB
SELECTION ALL

DEFINE MPIO.RES_HAB
AS RECODE MPIO.DPTOMPIO
	(	8001	 =	1	)
	(	8433	 =	1	)
	(	8573	 =	1	)
	(	8758	 =	1	)
	(	8078	 =	2	)
	(	8137	 =	3	)
	(	8296	 =	4	)
	(	8520	 =	5	)
	(	8634	 =	6	)
	(	8638	 =	7	)
	(	8685	 =	8	)
	(	13001	 =	9	)
	(	13836	 =	9	)
	(	13052	 =	10	)
	(	13244	 =	11	)
	(	13430	 =	12	)
	(	13442	 =	13	)
	(	13468	 =	14	)
	(	13654	 =	15	)
	(	13657	 =	16	)
	(	13670	 =	17	)
	(	23001	 =	18	)
	(	23068	 =	19	)
	(	23162	 =	20	)
	(	23182	 =	21	)
	(	23189	 =	22	)
	(	23417	 =	23	)
	(	23466	 =	24	)
	(	23555	 =	25	)
	(	23660	 =	26	)
	(	23807	 =	27	)
	(	47001	 =	28	)
	(	47053	 =	29	)
	(	47189	 =	30	)
	(	47245	 =	31	)
	(	47288	 =	32	)
	(	47551	 =	33	)
	(	47555	 =	34	)
	(	20001	 =	35	)
	(	20011	 =	36	)
	(	20013	 =	37	)
	(	20060	 =	38	)
	(	20228	 =	39	)
	(	20238	 =	40	)
	(	20400	 =	41	)
	(	44001	 =	42	)
	(	44279	 =	43	)
	(	44430	 =	44	)
	(	44560	 =	45	)
	(	44650	 =	46	)
	(	44874	 =	47	)
	(	70001	 =	48	)
	(	70215	 =	49	)
	(	70670	 =	50	)
	(	70708	 =	51	)
	(	70713	 =	52	)
	(	70742	 =	53	)
	(	70820	 =	54	)
	(	5001	 =	55	)
	(	5079	 =	55	)
	(	5088	 =	55	)
	(	5129	 =	55	)
	(	5212	 =	55	)
	(	5266	 =	55	)
	(	5308	 =	55	)
	(	5360	 =	55	)
	(	5380	 =	55	)
	(	5631	 =	55	)
	(	5045	 =	56	)
	(	5147	 =	57	)
	(	5148	 =	58	)
	(	5154	 =	59	)
	(	5172	 =	60	)
	(	5250	 =	61	)
	(	5376	 =	62	)
	(	5440	 =	63	)
	(	5615	 =	63	)
	(	5579	 =	64	)
	(	5697	 =	65	)
	(	5736	 =	66	)
	(	5837	 =	67	)
	(	5887	 =	68	)
	(	17001	 =	69	)
	(	17873	 =	69	)
	(	17042	 =	70	)
	(	17174	 =	71	)
	(	17380	 =	72	)
	(	18001	 =	73	)
	(	18753	 =	74	)
	(	41001	 =	75	)
	(	41132	 =	76	)
	(	41298	 =	77	)
	(	41396	 =	78	)
	(	41551	 =	79	)
	(	63001	 =	80	)
	(	63130	 =	80	)
	(	63190	 =	81	)
	(	63401	 =	82	)
	(	63470	 =	83	)
	(	63594	 =	84	)
	(	66001	 =	85	)
	(	66170	 =	85	)
	(	66400	 =	86	)
	(	66682	 =	87	)
	(	25320	 =	88	)
	(	73349	 =	88	)
	(	73001	 =	89	)
	(	73055	 =	90	)
	(	73168	 =	91	)
	(	73268	 =	92	)
	(	73411	 =	93	)
	(	73443	 =	94	)
	(	73449	 =	95	)
	(	19001	 =	96	)
	(	19455	 =	97	)
	(	19573	 =	98	)
	(	19698	 =	99	)
	(	27001	 =	100	)
	(	27361	 =	101	)
	(	52001	 =	102	)
	(	52356	 =	103	)
	(	52835	 =	104	)
	(	76001	 =	105	)
	(	76130	 =	105	)
	(	76364	 =	105	)
	(	76520	 =	105	)
	(	76892	 =	105	)
	(	76036	 =	106	)
	(	76834	 =	106	)
	(	76109	 =	107	)
	(	76111	 =	108	)
	(	76122	 =	109	)
	(	76147	 =	110	)
	(	76248	 =	111	)
	(	76275	 =	112	)
	(	76400	 =	113	)
	(	76563	 =	114	)
	(	76622	 =	115	)
	(	76736	 =	116	)
	(	76895	 =	117	)
	(	15001	 =	118	)
	(	15204	 =	118	)
	(	15500	 =	118	)
	(	15087	 =	119	)
	(	15238	 =	119	)
	(	15491	 =	119	)
	(	15759	 =	119	)
	(	15176	 =	120	)
	(	15572	 =	121	)
	(	11001	 =	122	)
	(	25099	 =	122	)
	(	25126	 =	122	)
	(	25175	 =	122	)
	(	25214	 =	122	)
	(	25269	 =	122	)
	(	25286	 =	122	)
	(	25377	 =	122	)
	(	25430	 =	122	)
	(	25473	 =	122	)
	(	25740	 =	122	)
	(	25754	 =	122	)
	(	25758	 =	122	)
	(	25785	 =	122	)
	(	25817	 =	122	)
	(	25307	 =	123	)
	(	25612	 =	123	)
	(	73275	 =	123	)
	(	25200	 =	124	)
	(	25899	 =	124	)
	(	25290	 =	125	)
	(	25843	 =	126	)
	(	50001	 =	127	)
	(	50606	 =	127	)
	(	50006	 =	128	)
	(	50313	 =	129	)
	(	50568	 =	130	)
	(	54001	 =	131	)
	(	54874	 =	131	)
	(	54405	 =	132	)
	(	54498	 =	133	)
	(	54518	 =	134	)
	(	68001	 =	135	)
	(	68276	 =	135	)
	(	68307	 =	135	)
	(	68547	 =	135	)
	(	68077	 =	136	)
	(	68081	 =	137	)
	(	68679	 =	138	)
	(	68755	 =	139	)
	(	81001	 =	140	)
	(	81736	 =	141	)
	(	81794	 =	142	)
	(	85001	 =	143	)
	(	85010	 =	144	)
	(	85250	 =	145	)
	(	85440	 =	146	)
	(	86001	 =	147	)
	(	86568	 =	148	)
	(	88001	 =	149	)
	(	95001	 =	150	)
	(	91001	 =	151	)
ELSE 0
TYPE INTEGER
RANGE 0:151
VARLABEL "Ciudad de residencia habitual"
VALUELABELS
0 "Otros"
1 "Barranquilla"
2 "Baranoa"
3 "Campo De La Cruz"
4 "Galapa"
5 "Palmar De Varela"
6 "Sabanagrande"
7 "Sabanalarga"
8 "Santo Tomas"
9 "Cartagena"
10 "Arjona"
11 "El Carmen De Bolivar"
12 "Magangue"
13 "Maria La Baja"
14 "Mompos"
15 "San Jacinto"
16 "San Juan Nepomuceno"
17 "San Pablo"
18 "Monteria"
19 "Ayapel"
20 "Cerete"
21 "Chinu"
22 "Cienaga De Oro"
23 "Lorica"
24 "Montelibano"
25 "Planeta Rica"
26 "Sahagun"
27 "Tierralta"
28 "Santa Marta"
29 "Aracataca"
30 "Cienaga"
31 "El Banco"
32 "Fundacion"
33 "Pivijay"
34 "Plato"
35 "Valledupar"
36 "Aguachica"
37 "Agustin Codazzi"
38 "Bosconia"
39 "Curumani"
40 "El Copey"
41 "La Jagua De Ibirico"
42 "Riohacha"
43 "Fonseca"
44 "Maicao"
45 "Manaure"
46 "San Juan Del Cesar"
47 "Villanueva"
48 "Sincelejo"
49 "Corozal"
50 "Sampues"
51 "San Marcos"
52 "San Onofre"
53 "San Luis De Since"
54 "Santiago De Tolu"
55 "Medellin"
56 "Apartado"
57 "Carepa"
58 "El Carmen De Viboral"
59 "Caucasia"
60 "Chigorodo"
61 "El Bagre"
62 "La Ceja"
63 "Rio Negro"
64 "Puerto Berrio"
65 "El Santuario"
66 "Segovia"
67 "Turbo"
68 "Yarumal"
69 "Manizales"
70 "Anserma"
71 "Chinchina"
72 "La Dorada"
73 "Florencia"
74 "San Vicente Del Caguan"
75 "Neiva"
76 "Campoalegre"
77 "Garzon"
78 "La Plata"
79 "Pitalito"
80 "Armenia"
81 "Circasia"
82 "La Tebaida"
83 "Montenegro"
84 "Quimbaya"
85 "Pereira"
86 "La Virginia"
87 "Santa Rosa De Cabal"
88 "Honda"
89 "Ibague"
90 "Armero"
91 "Chaparral"
92 "Espinal"
93 "Libano"
94 "Mariquita"
95 "Melgar"
96 "Popayan"
97 "Miranda"
98 "Puerto Tejada"
99 "Santander De Quilichao"
100 "Quibdo"
101 "Istmina"
102 "Pasto"
103 "Ipiales"
104 "Tumaco"
105 "Cali"
106 "Tulua"
107 "Buenaventura"
108 "Guadalajara De Buga"
109 "Caicedonia"
110 "Cartago"
111 "El Cerrito"
112 "Florida"
113 "La Union"
114 "Pradera"
115 "Roldanillo"
116 "Sevilla"
117 "Zarzal"
118 "Tunja"
119 "Sogamoso"
120 "Chiquinquira"
121 "Puerto Boyaca"
122 "Bogota"
123 "Girardot"
124 "Zipaquira"
125 "Fusagasuga"
126 "Villa De San Diego De Ubate"
127 "Villavicencio"
128 "Acacias"
129 "Granada"
130 "Puerto Gaitan"
131 "Cucuta"
132 "Los Patios"
133 "Ocaña"
134 "Pamplona"
135 "Bucaramanga"
136 "Barbosa"
137 "Barrancabermeja"
138 "San Gil"
139 "Socorro"
140 "Arauca"
141 "Saravena"
142 "Tame"
143 "Yopal"
144 "Aguazul"
145 "Paz De Ariporo"
146 "Villanueva"
147 "Mocoa"
148 "Puerto Asis"
149 "San Andres"
150 "San Jose Del Guaviare"
151 "Leticia"


SAVE "C:\Users\macuna1\Documents\Mario\diccionarios\Colombia\Variables\Ciudades\MUPIO.RES_HAB_NEW"
OVERWRITE

DEFINE PERSONA.RES_REC
AS RECODE PERSONA.P30B0DPMP5
	(	8001	 =	1	)
	(	8433	 =	1	)
	(	8573	 =	1	)
	(	8758	 =	1	)
	(	8078	 =	2	)
	(	8137	 =	3	)
	(	8296	 =	4	)
	(	8520	 =	5	)
	(	8634	 =	6	)
	(	8638	 =	7	)
	(	8685	 =	8	)
	(	13001	 =	9	)
	(	13836	 =	9	)
	(	13052	 =	10	)
	(	13244	 =	11	)
	(	13430	 =	12	)
	(	13442	 =	13	)
	(	13468	 =	14	)
	(	13654	 =	15	)
	(	13657	 =	16	)
	(	13670	 =	17	)
	(	23001	 =	18	)
	(	23068	 =	19	)
	(	23162	 =	20	)
	(	23182	 =	21	)
	(	23189	 =	22	)
	(	23417	 =	23	)
	(	23466	 =	24	)
	(	23555	 =	25	)
	(	23660	 =	26	)
	(	23807	 =	27	)
	(	47001	 =	28	)
	(	47053	 =	29	)
	(	47189	 =	30	)
	(	47245	 =	31	)
	(	47288	 =	32	)
	(	47551	 =	33	)
	(	47555	 =	34	)
	(	20001	 =	35	)
	(	20011	 =	36	)
	(	20013	 =	37	)
	(	20060	 =	38	)
	(	20228	 =	39	)
	(	20238	 =	40	)
	(	20400	 =	41	)
	(	44001	 =	42	)
	(	44279	 =	43	)
	(	44430	 =	44	)
	(	44560	 =	45	)
	(	44650	 =	46	)
	(	44874	 =	47	)
	(	70001	 =	48	)
	(	70215	 =	49	)
	(	70670	 =	50	)
	(	70708	 =	51	)
	(	70713	 =	52	)
	(	70742	 =	53	)
	(	70820	 =	54	)
	(	5001	 =	55	)
	(	5079	 =	55	)
	(	5088	 =	55	)
	(	5129	 =	55	)
	(	5212	 =	55	)
	(	5266	 =	55	)
	(	5308	 =	55	)
	(	5360	 =	55	)
	(	5380	 =	55	)
	(	5631	 =	55	)
	(	5045	 =	56	)
	(	5147	 =	57	)
	(	5148	 =	58	)
	(	5154	 =	59	)
	(	5172	 =	60	)
	(	5250	 =	61	)
	(	5376	 =	62	)
	(	5440	 =	63	)
	(	5615	 =	63	)
	(	5579	 =	64	)
	(	5697	 =	65	)
	(	5736	 =	66	)
	(	5837	 =	67	)
	(	5887	 =	68	)
	(	17001	 =	69	)
	(	17873	 =	69	)
	(	17042	 =	70	)
	(	17174	 =	71	)
	(	17380	 =	72	)
	(	18001	 =	73	)
	(	18753	 =	74	)
	(	41001	 =	75	)
	(	41132	 =	76	)
	(	41298	 =	77	)
	(	41396	 =	78	)
	(	41551	 =	79	)
	(	63001	 =	80	)
	(	63130	 =	80	)
	(	63190	 =	81	)
	(	63401	 =	82	)
	(	63470	 =	83	)
	(	63594	 =	84	)
	(	66001	 =	85	)
	(	66170	 =	85	)
	(	66400	 =	86	)
	(	66682	 =	87	)
	(	25320	 =	88	)
	(	73349	 =	88	)
	(	73001	 =	89	)
	(	73055	 =	90	)
	(	73168	 =	91	)
	(	73268	 =	92	)
	(	73411	 =	93	)
	(	73443	 =	94	)
	(	73449	 =	95	)
	(	19001	 =	96	)
	(	19455	 =	97	)
	(	19573	 =	98	)
	(	19698	 =	99	)
	(	27001	 =	100	)
	(	27361	 =	101	)
	(	52001	 =	102	)
	(	52356	 =	103	)
	(	52835	 =	104	)
	(	76001	 =	105	)
	(	76130	 =	105	)
	(	76364	 =	105	)
	(	76520	 =	105	)
	(	76892	 =	105	)
	(	76036	 =	106	)
	(	76834	 =	106	)
	(	76109	 =	107	)
	(	76111	 =	108	)
	(	76122	 =	109	)
	(	76147	 =	110	)
	(	76248	 =	111	)
	(	76275	 =	112	)
	(	76400	 =	113	)
	(	76563	 =	114	)
	(	76622	 =	115	)
	(	76736	 =	116	)
	(	76895	 =	117	)
	(	15001	 =	118	)
	(	15204	 =	118	)
	(	15500	 =	118	)
	(	15087	 =	119	)
	(	15238	 =	119	)
	(	15491	 =	119	)
	(	15759	 =	119	)
	(	15176	 =	120	)
	(	15572	 =	121	)
	(	11001	 =	122	)
	(	25099	 =	122	)
	(	25126	 =	122	)
	(	25175	 =	122	)
	(	25214	 =	122	)
	(	25269	 =	122	)
	(	25286	 =	122	)
	(	25377	 =	122	)
	(	25430	 =	122	)
	(	25473	 =	122	)
	(	25740	 =	122	)
	(	25754	 =	122	)
	(	25758	 =	122	)
	(	25785	 =	122	)
	(	25817	 =	122	)
	(	25307	 =	123	)
	(	25612	 =	123	)
	(	73275	 =	123	)
	(	25200	 =	124	)
	(	25899	 =	124	)
	(	25290	 =	125	)
	(	25843	 =	126	)
	(	50001	 =	127	)
	(	50606	 =	127	)
	(	50006	 =	128	)
	(	50313	 =	129	)
	(	50568	 =	130	)
	(	54001	 =	131	)
	(	54874	 =	131	)
	(	54405	 =	132	)
	(	54498	 =	133	)
	(	54518	 =	134	)
	(	68001	 =	135	)
	(	68276	 =	135	)
	(	68307	 =	135	)
	(	68547	 =	135	)
	(	68077	 =	136	)
	(	68081	 =	137	)
	(	68679	 =	138	)
	(	68755	 =	139	)
	(	81001	 =	140	)
	(	81736	 =	141	)
	(	81794	 =	142	)
	(	85001	 =	143	)
	(	85010	 =	144	)
	(	85250	 =	145	)
	(	85440	 =	146	)
	(	86001	 =	147	)
	(	86568	 =	148	)
	(	88001	 =	149	)
	(	95001	 =	150	)
	(	91001	 =	151	)
 (	5998	 =	9999	)
(	8998	 =	9999	)
(	11998	 =	9999	)
(	13998	 =	9999	)
(	15998	 =	9999	)
(	17998	 =	9999	)
(	18998	 =	9999	)
(	19998	 =	9999	)
(	20998	 =	9999	)
(	23998	 =	9999	)
(	25998	 =	9999	)
(	27998	 =	9999	)
(	41998	 =	9999	)
(	44998	 =	9999	)
(	47998	 =	9999	)
(	50998	 =	9999	)
(	52998	 =	9999	)
(	54998	 =	9999	)
(	63998	 =	9999	)
(	66998	 =	9999	)
(	68998	 =	9999	)
(	70998	 =	9999	)
(	73998	 =	9999	)
(	76998	 =	9999	)
(	81998	 =	9999	)
(	85998	 =	9999	)
(	86998	 =	9999	)
(	88998	 =	9999	)
(	91998	 =	9999	)
(	94998	 =	9999	)
(	95998	 =	9999	)
(	97998	 =	9999	)
(	98998	 =	9999	)
(	99998	 =	9999	)
ELSE 0
VARLABEL "Ciudad de residencia hace 5 anos"
LIKE MPIO.RES_HAB
RANGE 0:151

SAVE "C:\Users\macuna1\Documents\Mario\diccionarios\Colombia\Variables\Ciudades\PERSONA.RES_REC_NEW"
OVERWRITE

TABLE COLOMBIA2005
AS FREQ OF MPIO.RES_HAB BY PERSONA.RES_REC
FILTER PERSONA.EDAD>=5 AND (PERSONA.P30B1VIVIA=2 OR PERSONA.P30B1VIVIA=3)

OUTPUTFILE XLS "C005C5MB.xlsx" OVERWRITE