RUNDEF programa
   SELECTION ALL

DEFINE PERSONA.MUNHAB1
AS PROVIC.PROVIN*100 + MUNIC.MUNI
TYPE INTEGER
VARLABEL "MUNICIPIO DE EMPADRONAMIENTO"

DEFINE PERSONA.MUNHAB
AS RECODE PERSONA.MUNHAB1
(	101	 =	1	)
(	201	 =	2	)
(	202	 =	3	)
(	203	 =	4	)
(	204	 =	5	)
(	205	 =	6	)
(	206	 =	7	)
(	207	 =	8	)
(	208	 =	9	)
(	209	 =	10	)
(	210	 =	11	)
(	301	 =	12	)
(	302	 =	13	)
(	303	 =	14	)
(	304	 =	15	)
(	305	 =	16	)
(	401	 =	17	)
(	402	 =	18	)
(	403	 =	19	)
(	404	 =	20	)
(	405	 =	21	)
(	406	 =	22	)
(	407	 =	23	)
(	408	 =	24	)
(	409	 =	25	)
(	410	 =	26	)
(	411	 =	27	)
(	501	 =	28	)
(	502	 =	29	)
(	503	 =	30	)
(	504	 =	31	)
(	505	 =	32	)
(	601	 =	33	)
(	602	 =	34	)
(	603	 =	35	)
(	604	 =	36	)
(	605	 =	37	)
(	606	 =	38	)
(	607	 =	39	)
(	701	 =	40	)
(	702	 =	41	)
(	703	 =	42	)
(	704	 =	43	)
(	705	 =	44	)
(	706	 =	45	)
(	801	 =	46	)
(	802	 =	47	)
(	901	 =	48	)
(	902	 =	49	)
(	903	 =	50	)
(	904	 =	51	)
(	1001	 =	52	)
(	1002	 =	53	)
(	1003	 =	54	)
(	1004	 =	55	)
(	1005	 =	56	)
(	1006	 =	57	)
(	1101	 =	58	)
(	1102	 =	59	)
(	1201	 =	60	)
(	1202	 =	61	)
(	1203	 =	62	)
(	1301	 =	63	)
(	1302	 =	64	)
(	1303	 =	65	)
(	1304	 =	66	)
(	1401	 =	67	)
(	1402	 =	68	)
(	1403	 =	69	)
(	1404	 =	70	)
(	1501	 =	71	)
(	1502	 =	72	)
(	1503	 =	73	)
(	1504	 =	74	)
(	1505	 =	75	)
(	1506	 =	76	)
(	1601	 =	77	)
(	1602	 =	78	)
(	1701	 =	79	)
(	1702	 =	80	)
(	1801	 =	81	)
(	1802	 =	82	)
(	1803	 =	83	)
(	1804	 =	84	)
(	1805	 =	85	)
(	1806	 =	86	)
(	1807	 =	87	)
(	1808	 =	88	)
(	1809	 =	89	)
(	1901	 =	90	)
(	1902	 =	91	)
(	1903	 =	92	)
(	2001	 =	93	)
(	2002	 =	94	)
(	2003	 =	95	)
(	2101	 =	96	)
(	2102	 =	97	)
(	2103	 =	98	)
(	2104	 =	99	)
(	2105	 =	100	)
(	2106	 =	101	)
(	2107	 =	102	)
(	2108	 =	103	)
(	2201	 =	104	)
(	2202	 =	105	)
(	2203	 =	106	)
(	2204	 =	107	)
(	2205	 =	108	)
(	2206	 =	109	)
(	2301	 =	110	)
(	2302	 =	111	)
(	2303	 =	112	)
(	2304	 =	113	)
(	2305	 =	114	)
(	2306	 =	115	)
(	2401	 =	116	)
(	2402	 =	117	)
(	2403	 =	118	)
(	2404	 =	119	)
(	2501	 =	120	)
(	2502	 =	121	)
(	2503	 =	122	)
(	2504	 =	123	)
(	2505	 =	124	)
(	2506	 =	125	)
(	2507	 =	126	)
(	2508	 =	127	)
(	2509	 =	128	)
(	2601	 =	129	)
(	2602	 =	130	)
(	2603	 =	131	)
(	2701	 =	132	)
(	2702	 =	133	)
(	2703	 =	134	)
(	2801	 =	135	)
(	2802	 =	136	)
(	2803	 =	137	)
(	2901	 =	138	)
(	2902	 =	139	)
(	2903	 =	140	)
(	2904	 =	141	)
(	2905	 =	142	)
(	3001	 =	143	)
(	3002	 =	144	)
(	3003	 =	145	)
(	3101	 =	146	)
(	3102	 =	147	)
(	3103	 =	148	)
(	3201	 =	149	)
(	3202	 =	150	)
(	3203	 =	151	)
(	3204	 =	152	)
(	3205	 =	153	)
(	3206	 =	154	)
(	3207	 =	155	)
ELSE 0
TYPE INTEGER
RANGE 1 - 155
VARLABEL "Municipio de residencia habitual"
VALUELABELS
1 "Santo Domingo de Guzmán"
2 "Azua"
3 "Las Charcas"
4 "Las Yayas de Viajama"
5 "Padre las Casas"
6 "Peralta"
7 "Sabana Yegua"
8 "Pueblo Viejo"
9 "Tábara Arriba"
10 "Guayabal"
11 "Estebanía"
12 "Neiba"
13 "Galván"
14 "Tamayo"
15 "Villa Jaragua"
16 "Los Rios"
17 "Barahona"
18 "Cabral"
19 "Enriquillo"
20 "Paraíso"
21 "Vicente Noble"
22 "El Peñón"
23 "La Ciénaga"
24 "Fundación"
25 "Las Salinas"
26 "Polo"
27 "Jaquimeyes"
28 "Dajabón"
29 "Loma de Cabrera"
30 "Partido"
31 "Restauración"
32 "El Pino"
33 "San Francisco de Macorís"
34 "Arenoso"
35 "Castillo"
36 "Pimentel"
37 "Villa Riva"
38 "Las Guáranas"
39 "Eugenio María de Hostos"
40 "Comendador"
41 "Bánica"
42 "El Llano"
43 "Hondo Valle"
44 "Pedro Santana"
45 "Juan Santiago"
46 "El Seibo"
47 "Miches"
48 "Moca"
49 "Cayetano Germosén"
50 "Gaspar Hernández"
51 "Jamao al Norte"
52 "Jimaní"
53 "Duvergé"
54 "La descubierta"
55 "Postrer Río"
56 "Cristóbal"
57 "Mella"
58 "Higüey"
59 "San Rafael del Yuma"
60 "La Romana"
61 "Guaymate"
62 "Villa Hermosa"
63 "La Vega"
64 "Constanza"
65 "Jarabacoa"
66 "Jima Abajo"
67 "Nagua"
68 "Cabrera"
69 "El Factor"
70 "Río San Juan"
71 "Monte Cristi"
72 "Castañuelas"
73 "Guayubín"
74 "Las Matas de Santa Cruz"
75 "Pepillo Salcedo"
76 "Villa Vásquez"
77 "Pedernales"
78 "Oviedo"
79 "Baní"
80 "Nizao"
81 "Puerto Plata"
82 "Altamira"
83 "Guananico"
84 "Imbert"
85 "Los Hidalgos"
86 "Luperón"
87 "Sosúa"
88 "Villa Isabela"
89 "Villa Montellano"
90 "Salcedo"
91 "Tenares"
92 "Villa Tapia"
93 "Samaná"
94 "Sánchez"
95 "Las Terrenas"
96 "San Cristóbal"
97 "Sabana Grande de Palenque"
98 "Bajos de Haina"
99 "Cambita Garabitos"
100 "Villa Altagracia"
101 "Yaguate"
102 "San Gregorio de Nigua"
103 "Los Cacaos"
104 "San Juan"
105 "Bohechío"
106 "El Cercado"
107 "Juan de Herrera"
108 "Las Matas de Farfán"
109 "Vallejuelo"
110 "San Pedro de Macorís"
111 "Los Llanos"
112 "Ramón Santana"
113 "Consuelo"
114 "Quisqueya"
115 "Guayacanes"
116 "Cotuí"
117 "Cevicos"
118 "Fantino"
119 "La Mata"
120 "Santiago"
121 "Bisonó"
122 "Jánico"
123 "Licey Al Medio"
124 "San José de las Matas"
125 "Tamboril"
126 "Villa González"
127 "Puñal"
128 "Sabana Iglesia"
129 "San Ignacio de Sabaneta"
130 "Villa Los Almácigos"
131 "Monción"
132 "Mao"
133 "Esperanza"
134 "Laguna Salada"
135 "Bonao"
136 "Maimón"
137 "Piedra Blanca"
138 "Monte Plata"
139 "Bayaguana"
140 "Sabana Grande de Boyá"
141 "Yamasá"
142 "Peralvillo"
143 "Hato Mayor"
144 "Sabana de la Mar"
145 "El Valle"
146 "San José de Ocoa"
147 "Sabana Larga"
148 "Rancho Arriba"
149 "Santo Domingo Este"
150 "Santo Domingo oeste"
151 "Santo Domingo Norte"
152 "Boca Chica"
153 "San Antonio de Guerra"
154 "Los Alcarrizos"
155 "Pedro Brand"

SAVE "MUNHAB" OVERWRITE

DEFINE PERSONA.MUNREC
AS RECODE PERSONA.P43C
(	101	 =	1	)
(	201	 =	2	)
(	202	 =	3	)
(	203	 =	4	)
(	204	 =	5	)
(	205	 =	6	)
(	206	 =	7	)
(	207	 =	8	)
(	208	 =	9	)
(	209	 =	10	)
(	210	 =	11	)
(	301	 =	12	)
(	302	 =	13	)
(	303	 =	14	)
(	304	 =	15	)
(	305	 =	16	)
(	401	 =	17	)
(	402	 =	18	)
(	403	 =	19	)
(	404	 =	20	)
(	405	 =	21	)
(	406	 =	22	)
(	407	 =	23	)
(	408	 =	24	)
(	409	 =	25	)
(	410	 =	26	)
(	411	 =	27	)
(	501	 =	28	)
(	502	 =	29	)
(	503	 =	30	)
(	504	 =	31	)
(	505	 =	32	)
(	601	 =	33	)
(	602	 =	34	)
(	603	 =	35	)
(	604	 =	36	)
(	605	 =	37	)
(	606	 =	38	)
(	607	 =	39	)
(	701	 =	40	)
(	702	 =	41	)
(	703	 =	42	)
(	704	 =	43	)
(	705	 =	44	)
(	706	 =	45	)
(	801	 =	46	)
(	802	 =	47	)
(	901	 =	48	)
(	902	 =	49	)
(	903	 =	50	)
(	904	 =	51	)
(	1001	 =	52	)
(	1002	 =	53	)
(	1003	 =	54	)
(	1004	 =	55	)
(	1005	 =	56	)
(	1006	 =	57	)
(	1101	 =	58	)
(	1102	 =	59	)
(	1201	 =	60	)
(	1202	 =	61	)
(	1203	 =	62	)
(	1301	 =	63	)
(	1302	 =	64	)
(	1303	 =	65	)
(	1304	 =	66	)
(	1401	 =	67	)
(	1402	 =	68	)
(	1403	 =	69	)
(	1404	 =	70	)
(	1501	 =	71	)
(	1502	 =	72	)
(	1503	 =	73	)
(	1504	 =	74	)
(	1505	 =	75	)
(	1506	 =	76	)
(	1601	 =	77	)
(	1602	 =	78	)
(	1701	 =	79	)
(	1702	 =	80	)
(	1801	 =	81	)
(	1802	 =	82	)
(	1803	 =	83	)
(	1804	 =	84	)
(	1805	 =	85	)
(	1806	 =	86	)
(	1807	 =	87	)
(	1808	 =	88	)
(	1809	 =	89	)
(	1901	 =	90	)
(	1902	 =	91	)
(	1903	 =	92	)
(	2001	 =	93	)
(	2002	 =	94	)
(	2003	 =	95	)
(	2101	 =	96	)
(	2102	 =	97	)
(	2103	 =	98	)
(	2104	 =	99	)
(	2105	 =	100	)
(	2106	 =	101	)
(	2107	 =	102	)
(	2108	 =	103	)
(	2201	 =	104	)
(	2202	 =	105	)
(	2203	 =	106	)
(	2204	 =	107	)
(	2205	 =	108	)
(	2206	 =	109	)
(	2301	 =	110	)
(	2302	 =	111	)
(	2303	 =	112	)
(	2304	 =	113	)
(	2305	 =	114	)
(	2306	 =	115	)
(	2401	 =	116	)
(	2402	 =	117	)
(	2403	 =	118	)
(	2404	 =	119	)
(	2501	 =	120	)
(	2502	 =	121	)
(	2503	 =	122	)
(	2504	 =	123	)
(	2505	 =	124	)
(	2506	 =	125	)
(	2507	 =	126	)
(	2508	 =	127	)
(	2509	 =	128	)
(	2601	 =	129	)
(	2602	 =	130	)
(	2603	 =	131	)
(	2701	 =	132	)
(	2702	 =	133	)
(	2703	 =	134	)
(	2801	 =	135	)
(	2802	 =	136	)
(	2803	 =	137	)
(	2901	 =	138	)
(	2902	 =	139	)
(	2903	 =	140	)
(	2904	 =	141	)
(	2905	 =	142	)
(	3001	 =	143	)
(	3002	 =	144	)
(	3003	 =	145	)
(	3101	 =	146	)
(	3102	 =	147	)
(	3103	 =	148	)
(	3201	 =	149	)
(	3202	 =	150	)
(	3203	 =	151	)
(	3204	 =	152	)
(	3205	 =	153	)
(	3206	 =	154	)
(	3207	 =	155	)
ELSE 0
TYPE INTEGER
RANGE 1 - 155
VARLABEL "Municipio de residencia 5 años"
LIKE PERSONA.MUNHAB

SAVE "MUNREC" OVERWRITE

DEFINE PERSONA.HABCIUD
AS RECODE PERSONA.MUNHAB
(	2	 =	1	)
(	79       =	2        )
(	17	 =	3	)
(	139	 =	4	)
(	135	 =	5	)
(	64	 =	6	)
(	113	 =	7	)
(	116	 =	8	)
(	28	 =	9	)
(	46	 =	10	)
(	133	 =	11	)
(	143	 =	12	)
(	58	 =	13	)
(       65       =      14      )
(       60         =    15          )
(      62          =    15          )
(      63          =      16        )
(       108         =     17         )
(        132       =   18           )
(          48      =    19          )
(          138      =   20           )
(          67      =    21          )
(          12      =    22          )
(          81      =    23          )
(          140      =   24           )
(            93    =    25          )
(           96     =    26          )
(           33     =    27          )
(       146         =    28          )
(        104        =   29           )
(        110        =     30         )
(        120        =      31        )
(          98      =       32       )
(           1     =       32       )
(         149 - 155       =     32         )
(           125     =       31      )
(          100      =      33       )
(          121      =      34        )
(          141      =     35         )
(          123      =     31       )
ELSE 0
TYPE INTEGER
RANGE 0 - 35
VARLABEL "CIUDAD DE RESIDENCIA  HABITUAL"
VALUELABELS
0               "      Otro       "
1		"      Azúa de Compostela		"
2		"      Baní		"
3		"      Barahona		"
4		"      Bayaguana   "
5		"       Bonao           "
6		"  Constanza	"
7		"  Consuelo		"
8		"    Cotuí		"
9               "  Dajabón	"
10		"   El Seibo		"
11              "   Esperanza              "
12              "   Hato Mayor del Rey              "
13              "   Higüey              "
14              "    Jarabacoa    "
15              "    La Romana        "
16              "  La Vega               "
17              "   Las Matas de Farfán              "
18              "   Mao              "
19              "      Moca           "
20              "    Monte Plata             "
21              "     Nagua            "
22              "     Neiba                 "
23              "     Puerto Plata                 "
24              "    Sabana Grande de Boyá                  "
25              "     Samaná                 "
26              "    San Cristóbal                  "
27              "   San Francisco de Macorís                   "
28              "   San José de ocoa                   "
29              "   San Juan de la Maguana                   "
30              "   San Pedro de Macorís                   "
31              "     Santiago de los Caballeros                  "
32              "  Santo Domingo                    "
33              "   Villa Altagracia                   "
34              "  Villa Bisono                    "
35              "    Yamasá                  "

SAVE "HABCIUD" OVERWRITE

DEFINE PERSONA.ANTCIUD
AS RECODE PERSONA.MUNREC
(	2	 =	1	)
(	79       =	2        )
(	17	 =	3	)
(	139	 =	4	)
(	135	 =	5	)
(	64	 =	6	)
(	113	 =	7	)
(	116	 =	8	)
(	28	 =	9	)
(	46	 =	10	)
(	133	 =	11	)
(	143	 =	12	)
(	58	 =	13	)
(       65       =      14      )
(       60         =    15          )
(      62          =    15          )
(      63          =      16        )
(       108         =     17         )
(        132       =   18           )
(          48      =    19          )
(          138      =   20           )
(          67      =    21          )
(          12      =    22          )
(          81      =    23          )
(          140      =   24           )
(            93    =    25          )
(           96     =    26          )
(           33     =    27          )
(       146         =    28          )
(        104        =   29           )
(        110        =     30         )
(        120        =      31        )
(          98      =       32       )
(           1     =       32       )
(         149 - 155       =     32         )
(           125     =       31      )
(          100      =      33       )
(          121      =      34        )
(          141      =     35         )
(          123      =     31       )
ELSE 0
TYPE INTEGER
RANGE 0 - 36
VARLABEL "CIUDAD DE RESIDENCIA ANTERIOR"
LIKE PERSONA.HABCIUD

SAVE "ANTCIUD" OVERWRITE

DEFINE PERSONA.TAMANOHAB 
AS RECODE PERSONA.HABCIUD
(	0	=	0	)
(	1	=	4	)
(	2	=	3	)
(	3	=	4	)
(	4	=	5	)
(	5	=	4	)
(	6	=	5	)
(	7	=	5	)
(	8	=	5	)
(	9	=	5	)
(	10	=	5	)
(	11	=	5	)
(	12	=	5	)
(	13	=	3	)
(	14	=	5	)
(	15	=	3	)
(	16	=	3	)
(	17	=	5	)
(	18	=	4	)
(	19	=	4	)
(	20	=	5	)
(	21	=	5	)
(	22	=	5	)
(	23	=	3	)
(	24	=	5	)
(	25	=	5	)
(	26	=	3	)
(	27	=	3	)
(	28	=	5	)
(	29	=	4	)
(	30	=	3	)
(	31	=	2	)
(	32	=	1	)
(	33	=	5	)
(	34	=	5	)
(	35	=	5	)
RANGE 0 - 5
VARLABEL "Tamaño de la ciudad (habitual)"
VALUELABELS 
0	"	Otro	"
1	"	1 MILLON O MAS	"
2	"	500.000-999.999	"
3	"	100.000-499.999	"
4	"	50.000-99.999	"
5	"	20.000-49.999	"

SAVE "TAMANOHAB" OVERWRITE 

DEFINE PERSONA.TAMANOANT 
AS RECODE PERSONA.ANTCIUD
(	0	=	0	)
(	1	=	4	)
(	2	=	3	)
(	3	=	4	)
(	4	=	5	)
(	5	=	4	)
(	6	=	5	)
(	7	=	5	)
(	8	=	5	)
(	9	=	5	)
(	10	=	5	)
(	11	=	5	)
(	12	=	5	)
(	13	=	3	)
(	14	=	5	)
(	15	=	3	)
(	16	=	3	)
(	17	=	5	)
(	18	=	4	)
(	19	=	4	)
(	20	=	5	)
(	21	=	5	)
(	22	=	5	)
(	23	=	3	)
(	24	=	5	)
(	25	=	5	)
(	26	=	3	)
(	27	=	3	)
(	28	=	5	)
(	29	=	4	)
(	30	=	3	)
(	31	=	2	)
(	32	=	1	)
(	33	=	5	)
(	34	=	5	)
(	35	=	5	)
RANGE 0 - 5
VARLABEL "Tamaño de la ciudad (ANTERIOR)"
VALUELABELS 
0	"	Otro	"
1	"	1 MILLON O MAS	"
2	"	500.000-999.999	"
3	"	100.000-499.999	"
4	"	50.000-99.999	"
5	"	20.000-49.999	"

SAVE "TAMANOANT" OVERWRITE 

TABLE MB  
AS CROSSTABS
OF PERSONA.TAMANOHAB
BY PERSONA.TAMANOANT
FILTER PERSONA.P29>4 AND PERSONA.HABCIUD>=0 AND PERSONA.ANTCIUD>=0