RUNDEF programa
   SELECTION ALL

//SE SUMAN LOS CODIGOS IDENTIFICADORES DE PROVINCIA Y CANTON PARA FORMAR EL CODIGO UNICO DE EMPADRONAMIENTO PARA RESIDENCIA HABITUAL.
          
DEFINE POBLACIO.CANEMPAD
AS VAL(PROVINCI.IDPROVIN)*100+VAL(CANTON.IDCANTON)
TYPE INTEGER
RANGE 0 - 1000000

DEFINE POBLACIO.CANEMPA
AS RECODE POBLACIO.CANEMPAD
(	101	 =	1	)
(	102	 =	2	)
(	103	 =	3	)
(	104	 =	4	)
(	105	 =	5	)
(	106	 =	6	)
(	107	 =	7	)
(	108	 =	8	)
(	109	 =	9	)
(	110	 =	10	)
(	111	 =	11	)
(	112	 =	12	)
(	113	 =	13	)
(	114	 =	14	)
(	115	 =	15	)
(	116	 =	16	)
(	117	 =	17	)
(	118	 =	18	)
(	119	 =	19	)
(	120	 =	20	)
(	201	 =	21	)
(	202	 =	22	)
(	203	 =	23	)
(	204	 =	24	)
(	205	 =	25	)
(	206	 =	26	)
(	207	 =	27	)
(	208	 =	28	)
(	209	 =	29	)
(	210	 =	30	)
(	211	 =	31	)
(	212	 =	32	)
(	213	 =	33	)
(	214	 =	34	)
(	215	 =	35	)
(	301	 =	36	)
(	302	 =	37	)
(	303	 =	38	)
(	304	 =	39	)
(	305	 =	40	)
(	306	 =	41	)
(	307	 =	42	)
(	308	 =	43	)
(	401	 =	44	)
(	402	 =	45	)
(	403	 =	46	)
(	404	 =	47	)
(	405	 =	48	)
(	406	 =	49	)
(	407	 =	50	)
(	408	 =	51	)
(	409	 =	52	)
(	410	 =	53	)
(	501	 =	54	)
(	502	 =	55	)
(	503	 =	56	)
(	504	 =	57	)
(	505	 =	58	)
(	506	 =	59	)
(	507	 =	60	)
(	508	 =	61	)
(	509	 =	62	)
(	510	 =	63	)
(	511	 =	64	)
(	601	 =	65	)
(	602	 =	66	)
(	603	 =	67	)
(	604	 =	68	)
(	605	 =	69	)
(	606	 =	70	)
(	607	 =	71	)
(	608	 =	72	)
(	609	 =	73	)
(	610	 =	74	)
(	611	 =	75	)
(	701	 =	76	)
(	702	 =	77	)
(	703	 =	78	)
(	704	 =	79	)
(	705	 =	80	)
(	706	 =	81	)
ELSE 0
TYPE INTEGER
RANGE 1 - 81
VARLABEL "CANTON EMPADRONAMIENTO"
VALUELABELS
1	"San Jose"
2	"Escazu"
3	"Desamparados"
4	"Puriscal"
5	"Tarrazu"
6	"Aserri"
7	"Mora"
8	"Goicoechea"
9	"Santa Ana"
10	"Alajuelita"
11	"Vazquez de Coronado"
12	"Acosta"
13	"Tibas"
14	"Moravia"
15	"Montes de Oca"
16	"Turrubares"
17	"Dota"
18	"Curridabat"
19	"Perez Zeledon"
20	"Leon Cortes"
21	"Alajuela"
22	"San Ramon"
23	"Grecia"
24	"San Mateo"
25	"Atenas"
26	"Naranjo"
27	"Palmares"
28	"Poas"
29	"Orotina"
30	"San Carlos"
31	"Alfaro Ruiz"
32	"Valverde Vega"
33	"Upala"
34	"Los Chiles"
35	"Guatuso"
36	"Cartago"
37	"Paraiso"
38	"La Union"
39	"Jimenez"
40	"Turrialba"
41	"Alvarado"
42	"Oreamuno"
43	"El Guarco"
44	"Heredia"
45	"Barva"
46	"Santo Domingo"
47	"Santa Barbara"
48	"San Rafael"
49	"San Isidro"
50	"Belen"
51	"Flores"
52	"San Pablo"
53	"Sarapiqui"
54	"Liberia"
55	"Nicoya"
56	"Santa Cruz"
57	"Bagaces"
58	"Carrillo"
59	"Canhas"
60	"Abangares"
61	"Tilaran"
62	"Nandayure"
63	"La Cruz"
64	"Hojancha"
65	"Puntarenas"
66	"Esparza"
67	"Buenos Aires"
68	"Montes de Oro"
69	"Osa"
70	"Aguirre"
71	"Golfito"
72	"Coto Brus"
73	"Parrita"
74	"Corredores"
75	"Garabito"
76	"Limon"
77	"Pococi"
78	"Siquirres"
79	"Talamanca"
80	"Matina"
81	"Guacimo"
                              
DEFINE POBLACIO.CANRES5ANO
AS RECODE POBLACIO.CODRESID
(	101	 =	1	)
(	102	 =	2	)
(	103	 =	3	)
(	104	 =	4	)
(	105	 =	5	)
(	106	 =	6	)
(	107	 =	7	)
(	108	 =	8	)
(	109	 =	9	)
(	110	 =	10	)
(	111	 =	11	)
(	112	 =	12	)
(	113	 =	13	)
(	114	 =	14	)
(	115	 =	15	)
(	116	 =	16	)
(	117	 =	17	)
(	118	 =	18	)
(	119	 =	19	)
(	120	 =	20	)
(	201	 =	21	)
(	202	 =	22	)
(	203	 =	23	)
(	204	 =	24	)
(	205	 =	25	)
(	206	 =	26	)
(	207	 =	27	)
(	208	 =	28	)
(	209	 =	29	)
(	210	 =	30	)
(	211	 =	31	)
(	212	 =	32	)
(	213	 =	33	)
(	214	 =	34	)
(	215	 =	35	)
(	301	 =	36	)
(	302	 =	37	)
(	303	 =	38	)
(	304	 =	39	)
(	305	 =	40	)
(	306	 =	41	)
(	307	 =	42	)
(	308	 =	43	)
(	401	 =	44	)
(	402	 =	45	)
(	403	 =	46	)
(	404	 =	47	)
(	405	 =	48	)
(	406	 =	49	)
(	407	 =	50	)
(	408	 =	51	)
(	409	 =	52	)
(	410	 =	53	)
(	501	 =	54	)
(	502	 =	55	)
(	503	 =	56	)
(	504	 =	57	)
(	505	 =	58	)
(	506	 =	59	)
(	507	 =	60	)
(	508	 =	61	)
(	509	 =	62	)
(	510	 =	63	)
(	511	 =	64	)
(	601	 =	65	)
(	602	 =	66	)
(	603	 =	67	)
(	604	 =	68	)
(	605	 =	69	)
(	606	 =	70	)
(	607	 =	71	)
(	608	 =	72	)
(	609	 =	73	)
(	610	 =	74	)
(	611	 =	75	)
(	701	 =	76	)
(	702	 =	77	)
(	703	 =	78	)
(	704	 =	79	)
(	705	 =	80	)
(	706	 =	81	)
ELSE 0
TYPE INTEGER
RANGE 0 - 81
VARLABEL "CANTON RES ANTERIOR"
VALUELABELS
1	"San Jose"
2	"Escazu"
3	"Desamparados"
4	"Puriscal"
5	"Tarrazu"
6	"Aserri"
7	"Mora"
8	"Goicoechea"
9	"Santa Ana"
10	"Alajuelita"
11	"Vazquez de Coronado"
12	"Acosta"
13	"Tibas"
14	"Moravia"
15	"Montes de Oca"
16	"Turrubares"
17	"Dota"
18	"Curridabat"
19	"Perez Zeledon"
20	"Leon Cortes"
21	"Alajuela"
22	"San Ramon"
23	"Grecia"
24	"San Mateo"
25	"Atenas"
26	"Naranjo"
27	"Palmares"
28	"Poas"
29	"Orotina"
30	"San Carlos"
31	"Alfaro Ruiz"
32	"Valverde Vega"
33	"Upala"
34	"Los Chiles"
35	"Guatuso"
36	"Cartago"
37	"Paraiso"
38	"La Union"
39	"Jimenez"
40	"Turrialba"
41	"Alvarado"
42	"Oreamuno"
43	"El Guarco"
44	"Heredia"
45	"Barva"
46	"Santo Domingo"
47	"Santa Barbara"
48	"San Rafael"
49	"San Isidro"
50	"Belen"
51	"Flores"
52	"San Pablo"
53	"Sarapiqui"
54	"Liberia"
55	"Nicoya"
56	"Santa Cruz"
57	"Bagaces"
58	"Carrillo"
59	"Canhas"
60	"Abangares"
61	"Tilaran"
62	"Nandayure"
63	"La Cruz"
64	"Hojancha"
65	"Puntarenas"
66	"Esparza"
67	"Buenos Aires"
68	"Montes de Oro"
69	"Osa"
70	"Aguirre"
71	"Golfito"
72	"Coto Brus"
73	"Parrita"
74	"Corredores"
75	"Garabito"
76	"Limon"
77	"Pococi"
78	"Siquirres"
79	"Talamanca"
80	"Matina"
81	"Guacimo"

SAVE "CAN5ANO" OVERWRITE 

DEFINE POBLACIO.HABCIUD
 AS RECODE POBLACIO.CANEMPA
(	21	 =	1	)
(	28	 =	1	)
(	36	 =	2	)
(	37	 =	2	)
(	42	 =	2	)
(	43	 =	2	)
(	23	 =	3	)
(	77	 =	4	)
(	44 - 52	 =	5	)
(	54	 =	6	)
(	27	 =	7	)
(	76	 =	8	)
(	65	 =	9	)
(	30	 =	10	)
(	19	 =	11	)
(	1 - 3	 =	12	)
(	6 - 11	 =	12	)
(	13 - 15	 =	12	)
(	18	 =	12	)
(	38	 =	12	)
(	22	 =	13	)
(	78   =	14	)
(   40   =  15  )
ELSE 0
TYPE INTEGER
RANGE 0 - 15
VARLABEL "CIUDAD DE RESIDENCIA  HABITUAL"
VALUELABELS
0       "      Otro         "
1		"      Alajuela		"
2		"	Cartago	"
3		"	Grecia	"
4		"	Guapiles y Cariarí 	"
5		"	Heredia	"
6		"	Liberia	"
7		"	Palmares	"
8		"	Puerto Limón	"
9       "	Puntarenas	"
10		"	Quesada	"
11      "       San Isidro de El General                 "
12      "       San José                 "
13      "      San Ramón                  "
14      "       Siquirres                 "
15      "       Turrialba                  "

SAVE "RESCIUD" OVERWRITE

DEFINE POBLACIO.ANTCIUD
 AS RECODE POBLACIO.CANRES5ANO
(	21	 =	1	)
(	28	 =	1	)
(	36	 =	2	)
(	37	 =	2	)
(	42	 =	2	)
(	43	 =	2	)
(	23	 =	3	)
(	77	 =	4	)
(	44 - 52	 =	5	)
(	54	 =	6	)
(	27	 =	7	)
(	76	 =	8	)
(	65	 =	9	)
(	30	 =	10	)
(	19	 =	11	)
(	1 - 3	 =	12	)
(	6 - 11	 =	12	)
(	13 - 15	 =	12	)
(	18	 =	12	)
(	38	 =	12	)
(	22	 =	13	)
(	78   =	14	)
(   40   =  15  )
ELSE 0
TYPE INTEGER
RANGE 0 - 15
VARLABEL "CIUDAD DE RESIDENCIA  ANTERIOR"
VALUELABELS
0       "   Otro         "
1		"   Alajuela		"
2		"	Cartago	"
3		"	Grecia	"
4		"	Guapiles y Cariarí 	"
5		"	Heredia	"
6		"	Liberia	"
7		"	Palmares	"
8		"	Puerto Limón	"
9       "	Puntarenas	"
10		"	Quesada	"
11      "       San Isidro de El General                 "
12      "       San José                 "
13      "      San Ramón                  "
14      "       Siquirres                 "
15      "       Turrialba                  "

SAVE "ANTCIUD" OVERWRITE

TABLE MB 
AS CROSSTABS OF POBLACIO.HABCIUD BY  POBLACIO.ANTCIUD
FOR  POBLACIO.CANRES5ANO>0 AND POBLACIO.EDAD>4

OUTPUTFILE "CR84C5MB" OVERWRITE