RUNDEF programa
   SELECTION ALL

   DEFINE PERSONA.DISTRESHAB
   AS RECODE PERSONA.P08RECOD
(	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	)
(	1001	 =	66	)
(	1101	 =	67	)
(	1102	 =	68	)
(	1201	 =	69	)
(	1202	 =	70	)
(	1203	 =	71	)
(	1204	 =	72	)
(	1205	 =	73	)
(	1206	 =	74	)
(	1207	 =	75	)
ELSE 0
TYPE INTEGER
RANGE 0 - 75
VARLABEL "DISTRITO 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   "CANAZAS"
58   "LA MESA"
59   "LAS PALMAS"
60   "MONTIJO"
61   "RIO DE JESUS"
62   "SAN FRANCISCO"
63   "SANTA FE"
64   "SANTIAGO"
65   "SONA"
66   "COMARCA KUNA YALA"
67   "CEMACO"
68   "SAMBU"
69   "BESIKO"
70   "MIRONO"
71   "MUNA"
72   "NOLE DUIMA"
73   "NURUM"
74   "KANKINTU"
75   "KUSAPIN"

SAVE "DISTRESHAB" OVERWRITE

DEFINE PERSONA.DISTANT
AS RECODE PERSONA.P09RECOD
(	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	)
(	1001	 =	66	)
(	1101	 =	67	)
(	1102	 =	68	)
(	1201	 =	69	)
(	1202	 =	70	)
(	1203	 =	71	)
(	1204	 =	72	)
(	1205	 =	73	)
(	1206	 =	74	)
(	1207	 =	75	)
(       2101 - 2828=      76      )
ELSE 0
DEFAULT 0
TYPE INTEGER
RANGE 0 - 76
VARLABEL "DISTRITO RESIDENCIA ANTERIOR"
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   "CANAZAS"
58   "LA MESA"
59   "LAS PALMAS"
60   "MONTIJO"
61   "RIO DE JESUS"
62   "SAN FRANCISCO"
63   "SANTA FE"
64   "SANTIAGO"
65   "SONA"
66   "COMARCA KUNA YALA"
67   "CEMACO"
68   "SAMBU"
69   "BESIKO"
70   "MIRONO"
71   "MUNA"
72   "NOLE DUIMA"
73   "NURUM"
74   "KANKINTU"
75   "KUSAPIN"
76   "EXTRANJEROS"

//SE MODIFICA LA VARIABLE ORIGINAL PARA OBTENER LOS OMITIDOS COMO CATEGORIA VALIDA (CORRESPONDEN A NO MIGRANTES)

DEFINE PERSONA.P09AB
AS PERSONA.P09A
DEFAULT 0
TYPE INTEGER
RANGE 0 - 9
LIKE PERSONA.P09A

//SE CREA LA VARIABLE DE RESIDENCIA 5 ANOS ANTES A PARTIR DE LA VARIABLE DE TIEMPO DE RESIDENCIA

DEFINE PERSONA.DIST5ANO
AS SWITCH
INCASE PERSONA.P09AB=3 ASSIGN PERSONA.DISTANT
INCASE PERSONA.P09AB<3 ASSIGN PERSONA.DISTRESHAB
TYPE INTEGER
RANGE 0 - 76
LIKE PERSONA.DISTANT

SAVE "DIST5ANO" OVERWRITE

///Se crean variables de ciudad a partir de variables de distrito de residencia 

DEFINE PERSONA.ANTCIUD
AS RECODE PERSONA.DIST5ANO
(	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  ANTERIOR"
VALUELABELS
0       "   OTRO    "
1		"	AGUADULCE	"
2		"	BARU	"
3		"	BUGABA	"
4		"	CHANGUINOLA	"
5		"	CHITRE	"
6		"	COLON	"
7		"	DAVID	"
8		"	PANAMA	"
9       "	PENONOME	"
10		"	SANTIAGO	"

DEFINE PERSONA.HABCIUD
AS RECODE PERSONA.DISTRESHAB
(	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	"

DEFINE PERSONA.TAMANOHAB
AS RECODE PERSONA.HABCIUD
(	0	=	0	)
(	1	=	3	)
(	2	=	3	)
(	3	=	3	)
(	4	=	3	)
(	5	=	3	)
(	6	=	2	)
(	7	=	2	)
(	8	=	1	)
(	9	=	4	)
(	10	=	3	)
RANGE 0 - 4
VARLABEL "Tamaño de la ciudad (habitual)"
VALUELABELS
0	"	OTRO	"
1	"	1 MILLÓN O MÁS	"
2	"	100.000-499.999	"
3	"	20.000-49.999	"
4	"	Menos de 20.000	"

SAVE "CIUDTAMHAB" OVERWRITE 

DEFINE PERSONA.TAMANOANT
AS RECODE PERSONA.ANTCIUD
(	0	=	0	)
(	1	=	3	)
(	2	=	3	)
(	3	=	3	)
(	4	=	3	)
(	5	=	3	)
(	6	=	2	)
(	7	=	2	)
(	8	=	1	)
(	9	=	4	)
(	10	=	3	)
RANGE 0 - 4
VARLABEL "Tamaño de la ciudad (ANTERIOR)"
VALUELABELS
0	"	OTRO	"
1	"	1 MILLÓN O MÁS	"
2	"	100.000-499.999	"
3	"	20.000-49.999	"
4	"	Menos de 20.000	"

SAVE "CIUDTAMANT" OVERWRITE 

TABLE MB
AS FREQUENCY OF PERSONA.TAMANOHAB BY PERSONA.TAMANOANT 
FOR PERSONA.P03>4 and PERSONA.DISTRESHAB > 0 AND PERSONA.P03 > 4 AND PERSONA.DIST5ANO > 0 AND PERSONA.DIST5ANO < 76