DEFINE PERSONA.MUNIEMP
AS VAL (DEPTO.IDDEPTO )*100+ VAL (MUNIC.IDMUNIC )
TYPE INTEGER
RANGE 1 - 9999
VALUELABELS
101	"	La Ceiba	"
102	"	El Porvenir	"
103	"	Esparta	"
104	"	Jutiapa	"
105	"	La Masica	"
106	"	San Francisco	"
107	"	Tela	"
108	"	Arizona	"
201	"	Trujillo	"
202	"	Balfate	"
203	"	Iriona	"
204	"	Limón	"
205	"	Sabá	"
206	"	Santa Fe	"
207	"	Santa Rosa de Aguán	"
208	"	Sonaguera	"
209	"	Tocoa	"
210	"	Bonito Oriental	"
301	"	Comayagua	"
302	"	Ajuterique	"
303	"	El Rosario	"
304	"	Esquías	"
305	"	Humuya	"
306	"	La Libertad	"
307	"	Lamaní	"
308	"	La Trinidad	"
309	"	Lejamaní	"
310	"	Meámbar	"
311	"	Minas de Oro	"
312	"	Ojos de Agua	"
313	"	San Jerónimo	"
314	"	San José de Comayagua	"
315	"	San José del Potrero	"
316	"	San Luis	"
317	"	San Sebastián	"
318	"	Siguatepeque	"
319	"	Villa de San Antonio	"
320	"	Las Lajas	"
321	"	Taulabé	"
401	"	Santa Rosa de Copán	"
402	"	Cabañas	"
403	"	Concepción	"
404	"	Copán Ruinas	"
405	"	Corquín	"
406	"	Cucuyagua	"
407	"	Dolores	"
408	"	Dulce Nombre	"
409	"	El Paraíso	"
410	"	Florida	"
411	"	La Jigua	"
412	"	La Unión	"
413	"	Nueva Arcadia	"
414	"	San Agustín	"
415	"	San Antonio	"
416	"	San Jerónimo	"
417	"	San José	"
418	"	San Juan de Opoa	"
419	"	San Nicolás	"
420	"	San Pedro	"
421	"	Santa Rita	"
422	"	Trinidad de Copán	"
423	"	Veracruz	"
501	"	San Pedro Sula	"
502	"	Choloma	"
503	"	Omoa	"
504	"	Pimienta	"
505	"	Potrerillos	"
506	"	Puerto Cortés	"
507	"	San Antonio de Cortés	"
508	"	San Francisco de Yojoa	"
509	"	San Manuel	"
510	"	Santa Cruz de Yojoa	"
511	"	Villanueva	"
512	"	La Lima	"
601	"	Choluteca	"
602	"	Apacilagua	"
603	"	Concepción de Maria	"
604	"	Duyure	"
605	"	El Corpus	"
606	"	El Triunfo	"
607	"	Marcovia	"
608	"	Morolica	"
609	"	Namasigue	"
610	"	Orocuina	"
611	"	Pespire	"
612	"	San Antonio de Flores	"
613	"	San Isidro	"
614	"	San José	"
615	"	San Marcos de Colon	"
616	"	Santa Ana de Yusguare	"
701	"	Yuscarán	"
702	"	Alauca	"
703	"	Danlí	"
704	"	El Paraíso	"
705	"	Güinope	"
706	"	Jacaleapa	"
707	"	Liure	"
708	"	Morocelí	"
709	"	Oropolí	"
710	"	Potrerillos	"
711	"	San Antonio de Flores	"
712	"	San Lucas	"
713	"	San Matías	"
714	"	Soledad	"
715	"	Teupasenti	"
716	"	Texiguat	"
717	"	Vado Ancho	"
718	"	Yauyupe	"
719	"	Trojes	"
801	"	Distrito Central	"
802	"	Alubaren	"
803	"	Cedros	"
804	"	Curarén	"
805	"	El Porvenir	"
806	"	Guaimaca	"
807	"	La Libertad	"
808	"	La Venta	"
809	"	Lepaterique	"
810	"	Maraita	"
811	"	Marale	"
812	"	Nueva Armenia	"
813	"	Ojojona	"
814	"	Orica	"
815	"	Reitoca	"
816	"	Sabanagrande	"
817	"	San Antonio de Oriente	"
818	"	San Buenaventura	"
819	"	San Ignacio	"
820	"	San Juan de Flores	"
821	"	San Miguelito	"
822	"	Santa Ana	"
823	"	Santa Lucía	"
824	"	Talanga	"
825	"	Tatumbla	"
826	"	Valle de Angeles	"
827	"	Villa de San Francisco	"
828	"	Vallecillo	"
901	"	Puerto Lempira	"
902	"	Brus Laguna	"
903	"	Ahuas	"
904	"	Juan Francisco Bulnes	"
905	"	Villeda Morales	"
906	"	Wampusirpi	"
1001	"	La Esperanza	"
1002	"	Camasca	"
1003	"	Colomoncagua	"
1004	"	Concepción	"
1005	"	Dolores	"
1006	"	Intibucá	"
1007	"	Jesús de Otoro	"
1008	"	Magdalena	"
1009	"	Masaguara	"
1010	"	San Antonio	"
1011	"	San Isidro	"
1012	"	San Juan	"
1013	"	San Marcos de La Sierra	"
1014	"	San Miguelito	"
1015	"	Santa Lucía	"
1016	"	Yamaranguila	"
1017	"	San Francisco de Opalaca	"
1101	"	Roatán	"
1102	"	Guanaja	"
1103	"	José Santos Guardiola	"
1104	"	Utila	"
1201	"	La Paz	"
1202	"	Aguanqueterique	"
1203	"	Cabañas	"
1204	"	Cane	"
1205	"	Chinacla	"
1206	"	Guajiquiro	"
1207	"	Lauterique	"
1208	"	Marcala	"
1209	"	Mercedes de Oriente	"
1210	"	Opatoro	"
1211	"	San Antonio del Norte	"
1212	"	San José	"
1213	"	San Juan	"
1214	"	San Pedro de Tutule	"
1215	"	Santa Ana	"
1216	"	Santa Elena	"
1217	"	Santa María	"
1218	"	Santiago de Puringla	"
1219	"	Yarula	"
1301	"	Gracias	"
1302	"	Belén	"
1303	"	Candelaria	"
1304	"	Cololaca	"
1305	"	Erandique	"
1306	"	Gualcince	"
1307	"	Guarita	"
1308	"	La Campa	"
1309	"	La Iguala	"
1310	"	Las Flores	"
1311	"	La Unión	"
1312	"	La Virtud	"
1313	"	Lepaera	"
1314	"	Mapulaca	"
1315	"	Piraera	"
1316	"	San Andrés	"
1317	"	San Francisco	"
1318	"	San Juan Guarita	"
1319	"	San Manuel Colohete	"
1320	"	San Rafael	"
1321	"	San Sebastián	"
1322	"	Santa Cruz	"
1323	"	Talgua	"
1324	"	Tambla	"
1325	"	Tomalá	"
1326	"	Valladolid	"
1327	"	Virginia	"
1328	"	San Marcos de Caiquin	"
1401	"	Ocotepeque	"
1402	"	Belén Gualcho	"
1403	"	Concepción	"
1404	"	Dolores Merendón	"
1405	"	Fraternidad	"
1406	"	La Encarnación	"
1407	"	La Labor	"
1408	"	Lucerna	"
1409	"	Mercedes	"
1410	"	San Fernando	"
1411	"	San Francisco del Valle	"
1412	"	San Jorge	"
1413	"	San Marcos	"
1414	"	Santa Fe	"
1415	"	Sensenti	"
1416	"	Sinuapa	"
1501	"	Juticalpa	"
1502	"	Campamento	"
1503	"	Catacamas	"
1504	"	Concordia	"
1505	"	Dulce Nombre de Culmí	"
1506	"	El Rosario	"
1507	"	Esquipulas del Norte	"
1508	"	Gualaco	"
1509	"	Guarizama	"
1510	"	Guata	"
1511	"	Guayape	"
1512	"	Jano	"
1513	"	La Unión	"
1514	"	Mangulile	"
1515	"	Manto	"
1516	"	Salamá	"
1517	"	San Esteban	"
1518	"	San Francisco de Becerra	"
1519	"	San Francisco de La Paz	"
1520	"	Santa María del Real	"
1521	"	Silca	"
1522	"	Yocón	"
1523	"	Patuca	"
1601	"	Santa Bárbara	"
1602	"	Arada	"
1603	"	Atima	"
1604	"	Azacualpa	"
1605	"	Ceguaca	"
1606	"	Concepción del Norte	"
1607	"	Concepción del Sur	"
1608	"	Chinda	"
1609	"	El Níspero	"
1610	"	Gualala	"
1611	"	Ilama	"
1612	"	Macuelizo	"
1613	"	Naranjito	"
1614	"	Nuevo Celilac	"
1615	"	Petoa	"
1616	"	Protección	"
1617	"	Quimistán	"
1618	"	San Francisco de Ojuera	"
1619	"	San José de Colinas	"
1620	"	San Luis	"
1621	"	San Marcos	"
1622	"	San Nicolás	"
1623	"	San Pedro Zacapa	"
1624	"	San Vicente Centenario	"
1625	"	Santa Rita	"
1626	"	Trinidad	"
1627	"	Las Vegas	"
1628	"	Nueva Frontera	"
1701	"	Nacaome	"
1702	"	Alianza	"
1703	"	Amapala	"
1704	"	Aramecina	"
1705	"	Caridad	"
1706	"	Goascorán	"
1707	"	Langue	"
1708	"	San Francisco de Coray	"
1709	"	San Lorenzo	"
1801	"	Yoro	"
1802	"	Arenal	"
1803	"	El Negrito	"
1804	"	El Progreso	"
1805	"	Jocón	"
1806	"	Morazán	"
1807	"	Olanchito	"
1808	"	Santa Rita	"
1809	"	Sulaco	"
1810	"	Victoria	"
1811	"	Yorito	"

SAVE "MUNIEMP" OVERWRITE 

DEFINE PERSONA.RECMUNI1
AS (PERSONA.P06D*100+PERSONA.P06C)
TYPE INTEGER
RANGE 1 - 1811
VALUELABELS
101	"	La Ceiba	"
102	"	El Porvenir	"
103	"	Esparta	"
104	"	Jutiapa	"
105	"	La Masica	"
106	"	San Francisco	"
107	"	Tela	"
108	"	Arizona	"
201	"	Trujillo	"
202	"	Balfate	"
203	"	Iriona	"
204	"	Limón	"
205	"	Sabá	"
206	"	Santa Fe	"
207	"	Santa Rosa de Aguán	"
208	"	Sonaguera	"
209	"	Tocoa	"
210	"	Bonito Oriental	"
301	"	Comayagua	"
302	"	Ajuterique	"
303	"	El Rosario	"
304	"	Esquías	"
305	"	Humuya	"
306	"	La Libertad	"
307	"	Lamaní	"
308	"	La Trinidad	"
309	"	Lejamaní	"
310	"	Meámbar	"
311	"	Minas de Oro	"
312	"	Ojos de Agua	"
313	"	San Jerónimo	"
314	"	San José de Comayagua	"
315	"	San José del Potrero	"
316	"	San Luis	"
317	"	San Sebastián	"
318	"	Siguatepeque	"
319	"	Villa de San Antonio	"
320	"	Las Lajas	"
321	"	Taulabé	"
401	"	Santa Rosa de Copán	"
402	"	Cabañas	"
403	"	Concepción	"
404	"	Copán Ruinas	"
405	"	Corquín	"
406	"	Cucuyagua	"
407	"	Dolores	"
408	"	Dulce Nombre	"
409	"	El Paraíso	"
410	"	Florida	"
411	"	La Jigua	"
412	"	La Unión	"
413	"	Nueva Arcadia	"
414	"	San Agustín	"
415	"	San Antonio	"
416	"	San Jerónimo	"
417	"	San José	"
418	"	San Juan de Opoa	"
419	"	San Nicolás	"
420	"	San Pedro	"
421	"	Santa Rita	"
422	"	Trinidad de Copán	"
423	"	Veracruz	"
501	"	San Pedro Sula	"
502	"	Choloma	"
503	"	Omoa	"
504	"	Pimienta	"
505	"	Potrerillos	"
506	"	Puerto Cortés	"
507	"	San Antonio de Cortés	"
508	"	San Francisco de Yojoa	"
509	"	San Manuel	"
510	"	Santa Cruz de Yojoa	"
511	"	Villanueva	"
512	"	La Lima	"
601	"	Choluteca	"
602	"	Apacilagua	"
603	"	Concepción de Maria	"
604	"	Duyure	"
605	"	El Corpus	"
606	"	El Triunfo	"
607	"	Marcovia	"
608	"	Morolica	"
609	"	Namasigue	"
610	"	Orocuina	"
611	"	Pespire	"
612	"	San Antonio de Flores	"
613	"	San Isidro	"
614	"	San José	"
615	"	San Marcos de Colon	"
616	"	Santa Ana de Yusguare	"
701	"	Yuscarán	"
702	"	Alauca	"
703	"	Danlí	"
704	"	El Paraíso	"
705	"	Güinope	"
706	"	Jacaleapa	"
707	"	Liure	"
708	"	Morocelí	"
709	"	Oropolí	"
710	"	Potrerillos	"
711	"	San Antonio de Flores	"
712	"	San Lucas	"
713	"	San Matías	"
714	"	Soledad	"
715	"	Teupasenti	"
716	"	Texiguat	"
717	"	Vado Ancho	"
718	"	Yauyupe	"
719	"	Trojes	"
801	"	Distrito Central	"
802	"	Alubaren	"
803	"	Cedros	"
804	"	Curarén	"
805	"	El Porvenir	"
806	"	Guaimaca	"
807	"	La Libertad	"
808	"	La Venta	"
809	"	Lepaterique	"
810	"	Maraita	"
811	"	Marale	"
812	"	Nueva Armenia	"
813	"	Ojojona	"
814	"	Orica	"
815	"	Reitoca	"
816	"	Sabanagrande	"
817	"	San Antonio de Oriente	"
818	"	San Buenaventura	"
819	"	San Ignacio	"
820	"	San Juan de Flores	"
821	"	San Miguelito	"
822	"	Santa Ana	"
823	"	Santa Lucía	"
824	"	Talanga	"
825	"	Tatumbla	"
826	"	Valle de Angeles	"
827	"	Villa de San Francisco	"
828	"	Vallecillo	"
901	"	Puerto Lempira	"
902	"	Brus Laguna	"
903	"	Ahuas	"
904	"	Juan Francisco Bulnes	"
905	"	Villeda Morales	"
906	"	Wampusirpi	"
1001	"	La Esperanza	"
1002	"	Camasca	"
1003	"	Colomoncagua	"
1004	"	Concepción	"
1005	"	Dolores	"
1006	"	Intibucá	"
1007	"	Jesús de Otoro	"
1008	"	Magdalena	"
1009	"	Masaguara	"
1010	"	San Antonio	"
1011	"	San Isidro	"
1012	"	San Juan	"
1013	"	San Marcos de La Sierra	"
1014	"	San Miguelito	"
1015	"	Santa Lucía	"
1016	"	Yamaranguila	"
1017	"	San Francisco de Opalaca	"
1101	"	Roatán	"
1102	"	Guanaja	"
1103	"	José Santos Guardiola	"
1104	"	Utila	"
1201	"	La Paz	"
1202	"	Aguanqueterique	"
1203	"	Cabañas	"
1204	"	Cane	"
1205	"	Chinacla	"
1206	"	Guajiquiro	"
1207	"	Lauterique	"
1208	"	Marcala	"
1209	"	Mercedes de Oriente	"
1210	"	Opatoro	"
1211	"	San Antonio del Norte	"
1212	"	San José	"
1213	"	San Juan	"
1214	"	San Pedro de Tutule	"
1215	"	Santa Ana	"
1216	"	Santa Elena	"
1217	"	Santa María	"
1218	"	Santiago de Puringla	"
1219	"	Yarula	"
1301	"	Gracias	"
1302	"	Belén	"
1303	"	Candelaria	"
1304	"	Cololaca	"
1305	"	Erandique	"
1306	"	Gualcince	"
1307	"	Guarita	"
1308	"	La Campa	"
1309	"	La Iguala	"
1310	"	Las Flores	"
1311	"	La Unión	"
1312	"	La Virtud	"
1313	"	Lepaera	"
1314	"	Mapulaca	"
1315	"	Piraera	"
1316	"	San Andrés	"
1317	"	San Francisco	"
1318	"	San Juan Guarita	"
1319	"	San Manuel Colohete	"
1320	"	San Rafael	"
1321	"	San Sebastián	"
1322	"	Santa Cruz	"
1323	"	Talgua	"
1324	"	Tambla	"
1325	"	Tomalá	"
1326	"	Valladolid	"
1327	"	Virginia	"
1328	"	San Marcos de Caiquin	"
1401	"	Ocotepeque	"
1402	"	Belén Gualcho	"
1403	"	Concepción	"
1404	"	Dolores Merendón	"
1405	"	Fraternidad	"
1406	"	La Encarnación	"
1407	"	La Labor	"
1408	"	Lucerna	"
1409	"	Mercedes	"
1410	"	San Fernando	"
1411	"	San Francisco del Valle	"
1412	"	San Jorge	"
1413	"	San Marcos	"
1414	"	Santa Fe	"
1415	"	Sensenti	"
1416	"	Sinuapa	"
1501	"	Juticalpa	"
1502	"	Campamento	"
1503	"	Catacamas	"
1504	"	Concordia	"
1505	"	Dulce Nombre de Culmí	"
1506	"	El Rosario	"
1507	"	Esquipulas del Norte	"
1508	"	Gualaco	"
1509	"	Guarizama	"
1510	"	Guata	"
1511	"	Guayape	"
1512	"	Jano	"
1513	"	La Unión	"
1514	"	Mangulile	"
1515	"	Manto	"
1516	"	Salamá	"
1517	"	San Esteban	"
1518	"	San Francisco de Becerra	"
1519	"	San Francisco de La Paz	"
1520	"	Santa María del Real	"
1521	"	Silca	"
1522	"	Yocón	"
1523	"	Patuca	"
1601	"	Santa Bárbara	"
1602	"	Arada	"
1603	"	Atima	"
1604	"	Azacualpa	"
1605	"	Ceguaca	"
1606	"	Concepción del Norte	"
1607	"	Concepción del Sur	"
1608	"	Chinda	"
1609	"	El Níspero	"
1610	"	Gualala	"
1611	"	Ilama	"
1612	"	Macuelizo	"
1613	"	Naranjito	"
1614	"	Nuevo Celilac	"
1615	"	Petoa	"
1616	"	Protección	"
1617	"	Quimistán	"
1618	"	San Francisco de Ojuera	"
1619	"	San José de Colinas	"
1620	"	San Luis	"
1621	"	San Marcos	"
1622	"	San Nicolás	"
1623	"	San Pedro Zacapa	"
1624	"	San Vicente Centenario	"
1625	"	Santa Rita	"
1626	"	Trinidad	"
1627	"	Las Vegas	"
1628	"	Nueva Frontera	"
1701	"	Nacaome	"
1702	"	Alianza	"
1703	"	Amapala	"
1704	"	Aramecina	"
1705	"	Caridad	"
1706	"	Goascorán	"
1707	"	Langue	"
1708	"	San Francisco de Coray	"
1709	"	San Lorenzo	"
1801	"	Yoro	"
1802	"	Arenal	"
1803	"	El Negrito	"
1804	"	El Progreso	"
1805	"	Jocón	"
1806	"	Morazán	"
1807	"	Olanchito	"
1808	"	Santa Rita	"
1809	"	Sulaco	"
1810	"	Victoria	"
1811	"	Yorito	"

/// Se limpian los ignorados de municipio de residencia anterior//

DEFINE PERSONA.RECMUNI
AS SWITCH 
INCASE PERSONA.RECMUNI1=199 ASSIGN 0
INCASE PERSONA.RECMUNI1=299 ASSIGN 0
INCASE PERSONA.RECMUNI1=399 ASSIGN 0
INCASE PERSONA.RECMUNI1=499 ASSIGN 0
INCASE PERSONA.RECMUNI1=599 ASSIGN 0
INCASE PERSONA.RECMUNI1=699 ASSIGN 0
INCASE PERSONA.RECMUNI1=799 ASSIGN 0
INCASE PERSONA.RECMUNI1=899 ASSIGN 0
INCASE PERSONA.RECMUNI1=999 ASSIGN 0
INCASE PERSONA.RECMUNI1=1099 ASSIGN 0
INCASE PERSONA.RECMUNI1=1199 ASSIGN 0
INCASE PERSONA.RECMUNI1=1299 ASSIGN 0
INCASE PERSONA.RECMUNI1=1399 ASSIGN 0
INCASE PERSONA.RECMUNI1=1499 ASSIGN 0
INCASE PERSONA.RECMUNI1=1599 ASSIGN 0
INCASE PERSONA.RECMUNI1=1699 ASSIGN 0
INCASE PERSONA.RECMUNI1=1799 ASSIGN 0
INCASE PERSONA.RECMUNI1=1899 ASSIGN 0
ELSE PERSONA.RECMUNI1
TYPE INTEGER 
RANGE 1 - 1811
LIKE PERSONA.RECMUNI1

DEFINE PERSONA.HABCIUD
AS RECODE PERSONA.MUNIEMP 
(	101	=	1	)
(	107	=	2	)
(	601	=	3	)
(	201	=	4	)
(	209	=	5	)
(	301	=	6	)
(	318	=	7	)
(	401	=	8	)
(	413	=	9	)
(	501	=	10	)
(	502	=	10	)
(	512	=	10	)
(	503	=	11	)
(	506	=	12	)
(	509	=	13	)
(	510	=	14	)
(	511	=	15	)
(	703	=	16	)
(	704	=	17	)
(	801	=	18	)
(	824	=	19	)
(	1201	=	20	)
(	1501	=	21	)
(	1503	=	22	)
(	1601	=	23	)
(	1701	=	24	)
(	1709	=	25	)
(	1801	=	26	)
(	1804	=	27	)
(	1806	=	28	)
(	1807	=	29	)
ELSE 0 
TYPE INTEGER 
RANGE 0 - 29 
VALUELABELS
0       "       Otro            "
1	"	La Ceiba	"
2	"	Tela	"
3	"	Choluteca	"
4	"	Trujillo	"
5	"	Tocoa	"
6	"	Comayagua	"
7	"	Siguatepeque	"
8	"	Santa Rosa De Copan	"
9	"	La Entrada	"
10	"	Gran San Pedro Sula	"
11	"	Omoa	"
12	"	Puerto Cortes	"
13	"	San Manuel	"
14	"	Santa Cruz De Yojoa	"
15	"	Villanueva	"
16	"	Danli	"
17	"	El Paraiso	"
18	"	Tegucigalpa	"
19	"	Talanga	"
20	"	La Paz	"
21	"	Juticalpa	"
22	"	Catacamas	"
23	"	Santa Barbara	"
24	"	Nacaome	"
25	"	San Lorenzo	"
26	"	Yoro	"
27	"	El Progreso	"
28	"	Morazan	"
29	"	Olanchito	"

DEFINE PERSONA.ANTCIUD
AS RECODE PERSONA.RECMUNI 
(	101	=	1	)
(	107	=	2	)
(	601	=	3	)
(	201	=	4	)
(	209	=	5	)
(	301	=	6	)
(	318	=	7	)
(	401	=	8	)
(	413	=	9	)
(	501	=	10	)
(	502	=	10	)
(	512	=	10	)
(	503	=	11	)
(	506	=	12	)
(	509	=	13	)
(	510	=	14	)
(	511	=	15	)
(	703	=	16	)
(	704	=	17	)
(	801	=	18	)
(	824	=	19	)
(	1201	=	20	)
(	1501	=	21	)
(	1503	=	22	)
(	1601	=	23	)
(	1701	=	24	)
(	1709	=	25	)
(	1801	=	26	)
(	1804	=	27	)
(	1806	=	28	)
(	1807	=	29	)
ELSE 0 
TYPE INTEGER 
RANGE 0 - 29 
VALUELABELS
0       "       Otro            "
1	"	La Ceiba	"
2	"	Tela	"
3	"	Choluteca	"
4	"	Trujillo	"
5	"	Tocoa	"
6	"	Comayagua	"
7	"	Siguatepeque	"
8	"	Santa Rosa De Copan	"
9	"	La Entrada	"
10	"	Gran San Pedro Sula	"
11	"	Omoa	"
12	"	Puerto Cortes	"
13	"	San Manuel	"
14	"	Santa Cruz De Yojoa	"
15	"	Villanueva	"
16	"	Danli	"
17	"	El Paraiso	"
18	"	Tegucigalpa	"
19	"	Talanga	"
20	"	La Paz	"
21	"	Juticalpa	"
22	"	Catacamas	"
23	"	Santa Barbara	"
24	"	Nacaome	"
25	"	San Lorenzo	"
26	"	Yoro	"
27	"	El Progreso	"
28	"	Morazan	"
29	"	Olanchito	"

DEFINE PERSONA.TAMANOHAB
AS RECODE PERSONA.HABCIUD
(       0       =       0       )
(	18	=	1	)
(	10	=	1	)
(	1	=	2	)
(	27	=	2	)
(	3	=	3	)
(	12	=	3	)
(	6	=	3	)
(	16	=	4	)
(	7	=	4	)
(	2	=	4	)
(	15	=	4	)
(	21	=	4	)
(	5	=	4	)
(	22	=	4	)
(	29	=	4	)
(	8	=	4	)
(	25	=	4	)
(	20	=	5	)
(	17	=	5	)
(	19	=	5	)
(	24	=	5	)
(	14	=	5	)
(	26	=	5	)
(	13	=	5	)
(	9	=	5	)
(	23	=	5	)
(	11	=	5	)
(	4	=	5	)
(	28	=	5	)
ELSE 99
RANGE 0 - 5
VARLABEL "Tamano ciudad (habitual) DEPUALC"
VALUELABELS 
0	"	Otro	"
1	"	500.000-999.999	"
2	"	100.000-499.999	"
3	"	50.000-99.999	"
4	"	20.000-49.999	"
5	"	Menos de 20.000	"

SAVE "TAMANOHAB" OVERWRITE 

DEFINE PERSONA.TAMANOANT
AS RECODE PERSONA.ANTCIUD
(       0       =       0       )
(	18	=	1	)
(	10	=	1	)
(	1	=	2	)
(	27	=	2	)
(	3	=	3	)
(	12	=	3	)
(	6	=	3	)
(	16	=	4	)
(	7	=	4	)
(	2	=	4	)
(	15	=	4	)
(	21	=	4	)
(	5	=	4	)
(	22	=	4	)
(	29	=	4	)
(	8	=	4	)
(	25	=	4	)
(	20	=	5	)
(	17	=	5	)
(	19	=	5	)
(	24	=	5	)
(	14	=	5	)
(	26	=	5	)
(	13	=	5	)
(	9	=	5	)
(	23	=	5	)
(	11	=	5	)
(	4	=	5	)
(	28	=	5	)
ELSE 99
RANGE 0 - 5
VARLABEL "Tamano ciudad (Anterior) DEPUALC"
VALUELABELS 
0	"	Otro	"
1	"	500.000-999.999	"
2	"	100.000-499.999	"
3	"	50.000-99.999	"
4	"	20.000-49.999	"
5	"	Menos de 20.000	"

SAVE "TAMANOANT" OVERWRITE 

TABLE MB 
AS CROSSTABS OF PERSONA.TAMANOHAB
BY PERSONA.TAMANOANT
FOR PERSONA.EDAD>4