DEFINE CANTON.RESHAB1
AS VAL (CMPCODE (CANTON))
TYPE INTEGER
RANGE 101 - 706
VARLABEL "Canton de residencia habitual"
VALUELABELS
101	"	San Jose	"
102	"	Escazu	"
103	"	Desamparados	"
104	"	Puriscal	"
105	"	Tarrazu	"
106	"	Aserri	"
107	"	Mora	"
108	"	Goicoechea	"
109	"	Santa Ana	"
110	"	Alajuelita	"
111	"	Vazquez de Coronado	"
112	"	Acosta	"
113	"	Tibas	"
114	"	Moravia	"
115	"	Montes de Oca	"
116	"	Turrubares	"
117	"	Dota	"
118	"	Curridabat	"
119	"	Perez Zeledon	"
120	"	Leon Cortes Castro	"
201	"	Alajuela	"
202	"	San Ramon	"
203	"	Grecia	"
204	"	San Mateo	"
205	"	Atenas	"
206	"	Naranjo	"
207	"	Palmares	"
208	"	Poas	"
209	"	Orotina	"
210	"	San Carlos	"
211	"	Zarcero	"
212	"	Valverde Vega	"
213	"	Upala	"
214	"	Los Chiles	"
215	"	Guatuso	"
301	"	Cartago	"
302	"	Paraiso	"
303	"	La Union	"
304	"	Jimenez	"
305	"	Turrialba	"
306	"	Alvarado	"
307	"	Oreamuno	"
308	"	El Guarco	"
401	"	Heredia	"
402	"	Barva	"
403	"	Santo Domingo	"
404	"	Santa Barbara	"
405	"	San Rafael	"
406	"	San Isidro	"
407	"	Belen	"
408	"	Flores	"
409	"	San Pablo	"
410	"	Sarapiqui	"
501	"	Liberia	"
502	"	Nicoya	"
503	"	Santa Cruz	"
504	"	Bagaces	"
505	"	Carrillo	"
506	"	Canas	"
507	"	Abangares	"
508	"	Tilaran	"
509	"	Nandayure	"
510	"	La Cruz	"
511	"	Hojancha	"
601	"	Puntarenas	"
602	"	Esparza	"
603	"	Buenos Aires	"
604	"	Montes de Oro	"
605	"	Osa	"
606	"	Aguirre	"
607	"	Golfito	"
608	"	Coto Brus	"
609	"	Parrita	"
610	"	Corredores	"
611	"	Garabito	"
701	"	Limon	"
702	"	Pococi	"
703	"	Siquirres	"
704	"	Talamanca	"
705	"	Matina	"
706	"	Guacimo	"

DEFINE CANTON.HABCIUD
 AS RECODE CANTON.RESHAB1
(	201	 =	1	)
(	208	 =	1	)
(	301	 =	2	)
(	302	 =	2	)
(	307	 =	2	)
(	308	 =	2	)
(	203	 =	3	)
(	702	 =	4	)
(	401 - 409	 =	5	)
(	501	 =	6	)
(	207	 =	7	)
(	701	 =	8	)
(	601	 =	9	)
(	210	 =	10	)
(	119	 =	11	)
(	101 - 103	 =	12	)
(	106 - 111	 =	12	)
(	113 - 115	 =	12	)
(	118	 =	12	)
(	303	 =	12	)
(	202	 =	13	)
(	703      =	14	)
(   305      =  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 "CIUDADHAB" OVERWRITE

DEFINE POBLACIO.ANTCIUD
 AS RECODE POBLACIO.RESI5PC
(	201	 =	1	)
(	208	 =	1	)
(	301	 =	2	)
(	302	 =	2	)
(	307	 =	2	)
(	308	 =	2	)
(	203	 =	3	)
(	702	 =	4	)
(	401 - 409	 =	5	)
(	501	 =	6	)
(	207	 =	7	)
(	701	 =	8	)
(	601	 =	9	)
(	210	 =	10	)
(	119	 =	11	)
(	101 - 103	 =	12	)
(	106 - 111	 =	12	)
(	113 - 115	 =	12	)
(	118	 =	12	)
(	303	 =	12	)
(	202	 =	13	)
(	703      =	14	)
(   305      =  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 Cariari 	"
5		"	Heredia	"
6		"	Liberia	"
7		"	Palmares	"
8		"	Puerto Limon	"
9       "	Puntarenas	"
10		"	Quesada	"
11      "       San Isidro de El General                "
12      "       San Jose                 "
13      "      San Ramon                  "
14      "       Siquirres                 "
15      "       Turrialba                  "

SAVE "CIUDADANT" OVERWRITE


TABLE MB AS FREQUENCY
	OF CANTON.HABCIUD
	BY POBLACIO.ANTCIUD
	TITLE "Matriz Basica"
	FILTER POBLACIO.EDAD > 4