RUNDEF programa SELECTION ALL // Construcción del código de Municipio de residencia anterior // DEFINE PERSONA.MUNREC5 AS ( PERSONA.P14B_DEPTO*100 ) + ( PERSONA.P14C_MUN ) TYPE INTEGER RANGE 1 - 9999 DEFAULT 0 LIKE MUNIC.REDCODEN // Asignación de los no migrantes al lugar de empadronamiento // y los migrantes al lugar de residencia 5 años antes // DEFINE PERSONA.MUN5ANOTOT AS SWITCH INCASE PERSONA.P14=1 ASSIGN MUNIC.REDCODEN INCASE PERSONA.P14=2 ASSIGN PERSONA.MUNREC5 ELSE 0 RANGE 1 - 9999 VARLABEL "MUNICIPIO DE RESIDENCIA 5 AÑOS ANTES" LIKE PERSONA.MUNREC5 // Creación de la variable ciudad de residencia habitual // DEFINE PERSONA.HABCIUD1 AS RECODE MUNIC.REDCODEN ( 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 RANGE 0 - 29 VARLABEL "Ciudad de residencia (habitual)" VALUELABELS 0 " Otro " 1 " La Ceiba " 2 " Tela " 3 " Choluteca " 4 " Trujillo " 5 " Tocoa " 6 " Comayagua " 7 " Siguatepeque " 8 " Santa Rosa De Copan " 9 " Nueva Arcadia " 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 " Distrito Central " 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.CIUHORDEN AS RECODE PERSONA.HABCIUD1 ( 0 = 0 ) ( 18 = 1 ) ( 10 = 2 ) ( 1 = 3 ) ( 27 = 4 ) ( 15 = 5 ) ( 3 = 6 ) ( 6 = 7 ) ( 12 = 8 ) ( 16 = 9 ) ( 7 = 10 ) ( 21 = 11 ) ( 5 = 12 ) ( 29 = 13 ) ( 22 = 14 ) ( 2 = 15 ) ( 8 = 16 ) ( 25 = 17 ) ( 13 = 18 ) ( 20 = 19 ) ( 17 = 20 ) ( 9 = 21 ) ( 14 = 22 ) ( 26 = 23 ) ( 24 = 24 ) ( 23 = 25 ) ( 4 = 26 ) ( 28 = 27 ) ( 19 = 28 ) ( 11 = 29 ) ELSE 99 RANGE 0 - 29 VARLABEL "Ciudad de residencia habitual" VALUELABELS 0 " Otros " 1 " Distrito Central " 2 " Gran San Pedro Sula " 3 " La Ceiba " 4 " El Progreso " 5 " Villanueva " 6 " Choluteca " 7 " Comayagua " 8 " Puerto Cortes " 9 " Danli " 10 " Siguatepeque " 11 " Juticalpa " 12 " Tocoa " 13 " Olanchito " 14 " Catacamas " 15 " Tela " 16 " Santa Rosa De Copan " 17 " San Lorenzo " 18 " San Manuel " 19 " La Paz " 20 " El Paraiso " 21 " Nueva Arcadia " 22 " Santa Cruz De Yojoa " 23 " Yoro " 24 " Nacaome " 25 " Santa Barbara " 26 " Trujillo " 27 " Morazan " 28 " Talanga " 29 " Omoa " SAVE "HABCIUD" OVERWRITE // Creación de la variable ciudad de residencia anterior // DEFINE PERSONA.ANTCIUD1 AS RECODE PERSONA.MUN5ANOTOT ( 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 RANGE 0 - 29 VARLABEL "Ciudad de residencia (anterior)" VALUELABELS 0 " Otro " 1 " La Ceiba " 2 " Tela " 3 " Choluteca " 4 " Trujillo " 5 " Tocoa " 6 " Comayagua " 7 " Siguatepeque " 8 " Santa Rosa De Copan " 9 " Nueva Arcadia " 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 " Distrito Central " 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.CIUAORDEN AS RECODE PERSONA.ANTCIUD1 ( 0 = 0 ) ( 18 = 1 ) ( 10 = 2 ) ( 1 = 3 ) ( 27 = 4 ) ( 15 = 5 ) ( 3 = 6 ) ( 6 = 7 ) ( 12 = 8 ) ( 16 = 9 ) ( 7 = 10 ) ( 21 = 11 ) ( 5 = 12 ) ( 29 = 13 ) ( 22 = 14 ) ( 2 = 15 ) ( 8 = 16 ) ( 25 = 17 ) ( 13 = 18 ) ( 20 = 19 ) ( 17 = 20 ) ( 9 = 21 ) ( 14 = 22 ) ( 26 = 23 ) ( 24 = 24 ) ( 23 = 25 ) ( 4 = 26 ) ( 28 = 27 ) ( 19 = 28 ) ( 11 = 29 ) ELSE 99 RANGE 0 - 29 VARLABEL "Ciudad de residencia anterior" VALUELABELS 0 " Otros " 1 " Distrito Central " 2 " Gran San Pedro Sula " 3 " La Ceiba " 4 " El Progreso " 5 " Villanueva " 6 " Choluteca " 7 " Comayagua " 8 " Puerto Cortes " 9 " Danli " 10 " Siguatepeque " 11 " Juticalpa " 12 " Tocoa " 13 " Olanchito " 14 " Catacamas " 15 " Tela " 16 " Santa Rosa De Copan " 17 " San Lorenzo " 18 " San Manuel " 19 " La Paz " 20 " El Paraiso " 21 " Nueva Arcadia " 22 " Santa Cruz De Yojoa " 23 " Yoro " 24 " Nacaome " 25 " Santa Barbara " 26 " Trujillo " 27 " Morazan " 28 " Talanga " 29 " Omoa " DEFINE PERSONA.TAMANOHAB AS RECODE PERSONA.CIUHORDEN ( 0 = 0 ) ( 1 = 1 ) ( 2 = 2 ) ( 3 = 3 ) ( 4 = 3 ) ( 5 = 3 ) ( 6 = 4 ) ( 7 = 4 ) ( 8 = 4 ) ( 9 = 4 ) ( 10 = 4 ) ( 11 = 4 ) ( 12 = 4 ) ( 13 = 4 ) ( 14 = 4 ) ( 15 = 5 ) ( 16 = 5 ) ( 17 = 5 ) ( 18 = 5 ) ( 19 = 5 ) ( 20 = 5 ) ( 21 = 5 ) ( 22 = 5 ) ( 23 = 5 ) ( 24 = 5 ) ( 25 = 5 ) ( 26 = 5 ) ( 27 = 5 ) ( 28 = 5 ) ( 29 = 5 ) ELSE 99 RANGE 0 - 5 VARLABEL "Tamano de la ciudad (habitual) DEPUALC" 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.CIUAORDEN ( 0 = 0 ) ( 1 = 1 ) ( 2 = 2 ) ( 3 = 3 ) ( 4 = 3 ) ( 5 = 3 ) ( 6 = 4 ) ( 7 = 4 ) ( 8 = 4 ) ( 9 = 4 ) ( 10 = 4 ) ( 11 = 4 ) ( 12 = 4 ) ( 13 = 4 ) ( 14 = 4 ) ( 15 = 5 ) ( 16 = 5 ) ( 17 = 5 ) ( 18 = 5 ) ( 19 = 5 ) ( 20 = 5 ) ( 21 = 5 ) ( 22 = 5 ) ( 23 = 5 ) ( 24 = 5 ) ( 25 = 5 ) ( 26 = 5 ) ( 27 = 5 ) ( 28 = 5 ) ( 29 = 5 ) ELSE 99 RANGE 0 - 5 VARLABEL "Tamano de la ciudad (anterior) DEPUALC" 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 FREQUENCY OF PERSONA.TAMANOHAB BY PERSONA.TAMANOANT FOR PERSONA.P03>4 WEIGHT VIVIENDA.FACTORVI