DEFINE PERSONA.HABDIST
AS RECODE PERSONA.RP11VIVE
(	101	 =	1	)
(	102	 =	2	)
(	103	 =	3	)
(	201	 =	4	)
(	202	 =	5	)
(	203	 =	6	)
(	204	 =	7	)
(	205	 =	8	)
(	206	 =	9	)
(	301	 =	10	)
(	302	 =	11	)
(	303	 =	12	)
(	304	 =	13	)
(	305	 =	14	)
(	401	 =	15	)
(	402	 =	16	)
(	403	 =	17	)
(	404	 =	18	)
(	405	 =	19	)
(	406	 =	20	)
(	407	 =	21	)
(	408	 =	22	)
(	409	 =	23	)
(	410	 =	24	)
(	411	 =	25	)
(	412	 =	26	)
(	413	 =	27	)
(	501	 =	28	)
(	502	 =	29	)
(	601	 =	30	)
(	602	 =	31	)
(	603	 =	32	)
(	604	 =	33	)
(	605	 =	34	)
(	606	 =	35	)
(	607	 =	36	)
(	701	 =	37	)
(	702	 =	38	)
(	703	 =	39	)
(	704	 =	40	)
(	705	 =	41	)
(	706	 =	42	)
(	707	 =	43	)
(	801	 =	44	)
(	802	 =	45	)
(	803	 =	46	)
(	804	 =	47	)
(	805	 =	48	)
(	806	 =	49	)
(	807	 =	50	)
(	808	 =	51	)
(	809	 =	52	)
(	810	 =	53	)
(	811	 =	54	)
(	901	 =	55	)
(	902	 =	56	)
(	903	 =	57	)
(	904	 =	58	)
(	905	 =	59	)
(	906	 =	60	)
(	907	 =	61	)
(	908	 =	62	)
(	909	 =	63	)
(	910	 =	64	)
(	911	 =	65	)
(	912	 =	66	)
(	1001	 =	67	)
(	1101	 =	68	)
(	1102	 =	69	)
(	1201	 =	70	)
(	1202	 =	71	)
(	1203	 =	72	)
(	1204	 =	73	)
(	1205	 =	74	)
(	1206	 =	75	)
(	1207	 =	76	)
ELSE 0
TYPE INTEGER
RANGE 1 - 76
VARLABEL "DISTRITO DE RESIDENCIA HABITUAL"
VALUELABELS
1	"	 BOCAS DEL TORO	"
2	"	 CHANGUINOLA	"
3	"	 CHIRIQUI GRANDE	"
4	"	 AGUADULCE	"
5	"	 ANTON	"
6	"	 LA PINTADA	"
7	"	 NATA	"
8	"	 OLA	"
9	"	 PENONOME	"
10	"	 COLON	"
11	"	 CHAGRES	"
12	"	 DONOSO	"
13	"	 PORTOBELO	"
14	"	 SANTA ISABEL	"
15	"	 ALANJE	"
16	"	 BARU	"
17	"	 BOQUERON	"
18	"	 BOQUETE	"
19	"	 BUGABA	"
20	"	 DAVID	"
21	"	 DOLEGA	"
22	"	 GUALACA	"
23	"	 REMEDIOS	"
24	"	 RENACIMIENTO	"
25	"	 SAN FELIX	"
26	"	 SAN LORENZO	"
27	"	 TOLE	"
28	"	 CHEPIGANA	"
29	"	 PINOGANA	"
30	"	 CHITRE	"
31	"	 LAS MINAS	"
32	"	 LOS POZOS	"
33	"	 OCU	"
34	"	 PARITA	"
35	"	 PESE	"
36	"	 SANTA MARIA	"
37	"	 GUARARE	"
38	"	 LAS TABLAS	"
39	"	 LOS SANTOS	"
40	"	 MACARACAS	"
41	"	 PEDASI	"
42	"	 POCRI	"
43	"	 TONOSI	"
44	"	 ARRAIJAN	"
45	"	 BALBOA	"
46	"	 CAPIRA	"
47	"	 CHAME	"
48	"	 CHEPO	"
49	"	 CHIMAN	"
50	"	 LA CHORRERA	"
51	"	 PANAMA	"
52	"	 SAN CARLOS	"
53	"	 SAN MIGUELITO	"
54	"	 TABOGA	"
55	"	 ATALAYA	"
56	"	 CALOBRE	"
57	"	 CAÑAZAS	"
58	"	 LA MESA	"
59	"	 LAS PALMAS	"
60	"	 MONTIJO	"
61	"	 RIO DE JESUS	"
62	"	 SAN FRANCISCO	"
63	"	 SANTA FE	"
64	"	 SANTIAGO	"
65	"	 SONA	"
66	"	 MARIATO	"
67	"	 COMARCA KUNA YALA	"
68	"	 CEMACO	"
69	"	 SAMBU	"
70	"	 BESIKO	"
71	"	 MIRONO	"
72	"	 MINA	"
73	"	 NOLE DUIMA	"
74	"	 ÑURUM	"
75	"	 KANKINTU	"
76	"	 KUSAPIN	"

SAVE "HABDIST" OVERWRITE
   
//ESTE PROGRAMA SACA A TODOS LOS EXTRANJEROS QUE RESPONDEN *PREGUNTA 12APERI MENOR DE 2005

DEFINE PERSONA.RECDIST1
AS SWITCH
//PERSONAS QUE DECLARAN VIVIR MAS DE 5 ANOS EN EL LUGAR
INCASE PERSONA.P12APERI<3
ASSIGN PERSONA.RP11VIVE
//PERSONAS QUE DECLARAN HABER LLEGADO MENOS DE 5 ANOS
INCASE PERSONA.P12APERI=3 
ASSIGN PERSONA.RP12VIVIA
//PERSONAS QUE NO DECLARAN TIEMPO DE LLEGADA A SU RESIDENCIA ACTUAL
INCASE PERSONA.P12APERI=9 
ASSIGN 0 
//PERSONAS DECLARAN RESIDIR EN EL EXTRANJERO
INCASE PERSONA.RP11VIVE=9998
ASSIGN 0 
//PERSONAS QUE NO DECLARAN RESIDENCIA HABITUAL
INCASE PERSONA.RP11VIVE=9999
ASSIGN 0 
//PERSONAS QUE NO DECLARAN RESIDENCIA ANTERIOR
INCASE PERSONA.RP12VIVIA=9999
ASSIGN 0
INCASE PERSONA.P12VIVIA = 1
ASSIGN PERSONA.RP11VIVE
TYPE INTEGER
RANGE 1 - 1207
VARLABEL "DISTRITO DE RESIDENCIA HACE 5 ANOS"
LIKE PERSONA.RP11VIVE

DEFINE PERSONA.RECDIST
AS RECODE PERSONA.RECDIST1
(	101	 =	1	)
(	102	 =	2	)
(	103	 =	3	)
(	201	 =	4	)
(	202	 =	5	)
(	203	 =	6	)
(	204	 =	7	)
(	205	 =	8	)
(	206	 =	9	)
(	301	 =	10	)
(	302	 =	11	)
(	303	 =	12	)
(	304	 =	13	)
(	305	 =	14	)
(	401	 =	15	)
(	402	 =	16	)
(	403	 =	17	)
(	404	 =	18	)
(	405	 =	19	)
(	406	 =	20	)
(	407	 =	21	)
(	408	 =	22	)
(	409	 =	23	)
(	410	 =	24	)
(	411	 =	25	)
(	412	 =	26	)
(	413	 =	27	)
(	501	 =	28	)
(	502	 =	29	)
(	601	 =	30	)
(	602	 =	31	)
(	603	 =	32	)
(	604	 =	33	)
(	605	 =	34	)
(	606	 =	35	)
(	607	 =	36	)
(	701	 =	37	)
(	702	 =	38	)
(	703	 =	39	)
(	704	 =	40	)
(	705	 =	41	)
(	706	 =	42	)
(	707	 =	43	)
(	801	 =	44	)
(	802	 =	45	)
(	803	 =	46	)
(	804	 =	47	)
(	805	 =	48	)
(	806	 =	49	)
(	807	 =	50	)
(	808	 =	51	)
(	809	 =	52	)
(	810	 =	53	)
(	811	 =	54	)
(	901	 =	55	)
(	902	 =	56	)
(	903	 =	57	)
(	904	 =	58	)
(	905	 =	59	)
(	906	 =	60	)
(	907	 =	61	)
(	908	 =	62	)
(	909	 =	63	)
(	910	 =	64	)
(	911	 =	65	)
(	912	 =	66	)
(	1001	 =	67	)
(	1101	 =	68	)
(	1102	 =	69	)
(	1201	 =	70	)
(	1202	 =	71	)
(	1203	 =	72	)
(	1204	 =	73	)
(	1205	 =	74	)
(	1206	 =	75	)
(	1207	 =	76	)
ELSE 0
TYPE INTEGER
RANGE 1 - 76
VARLABEL "DISTRITO DE RESIDENCIA  HACE 5 ANOS"
VALUELABELS
1	"	 BOCAS DEL TORO	"
2	"	 CHANGUINOLA	"
3	"	 CHIRIQUI GRANDE	"
4	"	 AGUADULCE	"
5	"	 ANTON	"
6	"	 LA PINTADA	"
7	"	 NATA	"
8	"	 OLA	"
9	"	 PENONOME	"
10	"	 COLON	"
11	"	 CHAGRES	"
12	"	 DONOSO	"
13	"	 PORTOBELO	"
14	"	 SANTA ISABEL	"
15	"	 ALANJE	"
16	"	 BARU	"
17	"	 BOQUERON	"
18	"	 BOQUETE	"
19	"	 BUGABA	"
20	"	 DAVID	"
21	"	 DOLEGA	"
22	"	 GUALACA	"
23	"	 REMEDIOS	"
24	"	 RENACIMIENTO	"
25	"	 SAN FELIX	"
26	"	 SAN LORENZO	"
27	"	 TOLE	"
28	"	 CHEPIGANA	"
29	"	 PINOGANA	"
30	"	 CHITRE	"
31	"	 LAS MINAS	"
32	"	 LOS POZOS	"
33	"	 OCU	"
34	"	 PARITA	"
35	"	 PESE	"
36	"	 SANTA MARIA	"
37	"	 GUARARE	"
38	"	 LAS TABLAS	"
39	"	 LOS SANTOS	"
40	"	 MACARACAS	"
41	"	 PEDASI	"
42	"	 POCRI	"
43	"	 TONOSI	"
44	"	 ARRAIJAN	"
45	"	 BALBOA	"
46	"	 CAPIRA	"
47	"	 CHAME	"
48	"	 CHEPO	"
49	"	 CHIMAN	"
50	"	 LA CHORRERA	"
51	"	 PANAMA	"
52	"	 SAN CARLOS	"
53	"	 SAN MIGUELITO	"
54	"	 TABOGA	"
55	"	 ATALAYA	"
56	"	 CALOBRE	"
57	"	 CAÑAZAS	"
58	"	 LA MESA	"
59	"	 LAS PALMAS	"
60	"	 MONTIJO	"
61	"	 RIO DE JESUS	"
62	"	 SAN FRANCISCO	"
63	"	 SANTA FE	"
64	"	 SANTIAGO	"
65	"	 SONA	"
66	"	 MARIATO	"
67	"	 COMARCA KUNA YALA	"
68	"	 CEMACO	"
69	"	 SAMBU	"
70	"	 BESIKO	"
71	"	 MIRONO	"
72	"	 MINA	"
73	"	 NOLE DUIMA	"
74	"	 ÑURUM	"
75	"	 KANKINTU	"
76	"	 KUSAPIN	"

SAVE "RECDIST" OVERWRITE

DEFINE PERSONA.HABCIUD
AS RECODE PERSONA.HABDIST
(	4	 =	1	)
(	16	 =	2	)
(	19	 =	3	)
(	2	 =	4	)
(	30	 =	5	)
(	10	 =	6	)
(	20	 =	7	)
(	44	 =	8	)
(	50	 =	8	)
(	51	 =	8	)
(	53	 =	8	)
(	9	 =	9	)
(	64	 =	10	)
ELSE 0
TYPE INTEGER
RANGE 0 - 10
VARLABEL "CIUDAD DE RESIDENCIA  HABITUAL"
VALUELABELS
0       "   OTRO        "
1		"	AGUADULCE	"
2		"	BARU	"
3		"	BUGABA	"
4		"	CHANGUINOLA	"
5		"	CHITRE	"
6		"	COLON	"
7		"	DAVID	"
8		"	PANAMA	"
9       "	PENONOME	"
10		"	SANTIAGO	"

SAVE "RESHABCIUD" OVERWRITE

DEFINE PERSONA.RECCIUD
AS RECODE PERSONA.RECDIST
(	4	 =	1	)
(	16	 =	2	)
(	19	 =	3	)
(	2	 =	4	)
(	30	 =	5	)
(	10	 =	6	)
(	20	 =	7	)
(	44	 =	8	)
(	50	 =	8	)
(	51	 =	8	)
(	53	 =	8	)
(	9	 =	9	)
(	64	 =	10	)
ELSE 0
TYPE INTEGER
RANGE 0 - 10
VARLABEL "CIUDAD DE RESIDENCIA 5 AÑOS ANTES"
VALUELABELS
0       "   OTRO        "
1		"	AGUADULCE	"
2		"	BARU	"
3		"	BUGABA	"
4		"	CHANGUINOLA	"
5		"	CHITRE	"
6		"	COLON	"
7		"	DAVID	"
8		"	PANAMA	"
9       "	PENONOME	"
10		"	SANTIAGO	"

SAVE "CIUDADANT" OVERWRITE

TABLE MB
AS CROSSTABS
OF PERSONA.HABCIUD BY PERSONA.RECCIUD 
FOR PERSONA.P03EDAD>4 AND PERSONA.P03EDAD<999