RUNDEF programa
   SELECTION ALL
                   
DEFINE POB90.HABCIUD
AS RECODE POB90.VIVRE
(	1001	 -	1002	 =	1	)
(	1011	 -	1012	 =	2	)
(	1022			 =	3	)
(	2001	 -	2002	 =	4	)
(	2011	 -	2012	 =	5	)
(	2022			 =	6	)
(	2031	 -	2032	 =	7	)
(	2042			 =	8	)
(	2051	 -	2052	 =	9	)
(	3001	 -	3002	 =	10	)
(	3012			 =	11	)
(	3022			 =	12	)
(	3032			 =	13	)
(	3042			 =	14	)
(	3052			 =	15	)
(	4002			 =	16	)
(	4011	 -	4012	 =	17	)
(	4022			 =	18	)
(	4031	 -	4032	 =	19	)
(	4041	 -	4042	 =	20	)
(	4051	 -	4052	 =	21	)
(	4062			 =	22	)
(	4071	 -	4072	 =	23	)
(	4082			 =	24	)
(	4092			 =	25	)
(	4102			 =	26	)
(	4112			 =	27	)
(	4122			 =	28	)
(	5001	 -	5002	 =	29	)
(	5012			 =	30	)
(	5022			 =	31	)
(	5032			 =	32	)
(	6001	 -	6002	 =	33	)
(	6012			 =	34	)
(	6022			 =	35	)
(	6031	 -	6032	 =	36	)
(	6041	 -	6042	 =	37	)
(	6051	 -	6052	 =	38	)
(	6062			 =	39	)
(	7001	 -	7002	 =	40	)
(	7011	 -	7012	 =	41	)
(	7021	 -	7022	 =	42	)
(	7031	 -	7032	 =	43	)
(	7042			 =	44	)
(	7052			 =	45	)
(	7062			 =	46	)
(	8001	 -	8002	 =	47	)
(	8012			 =	48	)
(	8021	 -	8022	 =	49	)
(	8032			 =	50	)
(	8041	 -	8042	 =	51	)
(	8052			 =	52	)
(	8061	 -	8062	 =	53	)
(	8071	 -	8072	 =	54	)
(	8082			 =	55	)
(	8091			 =	56	)
(	8102			 =	57	)
(	9001	 -	9002	 =	58	)
(	9012			 =	59	)
(	9021	 -	9022	 =	60	)
(	9032			 =	61	)
(	9042			 =	62	)
(	9052			 =	63	)
(	9062			 =	64	)
(	9072			 =	65	)
(	9082			 =	66	)
(	9091	 -	9092	 =	67	)
(	9101	 -	9102	 =	68	)
ELSE 0
TYPE INTEGER
RANGE 0 - 68
VALUELABELS
1	"BOCAS DEL TORO"
2	"CHANGUINOLA"
3	"CHIRIQUI GRANDE"
4	"AGUADULCE"
5	"ANTÓN"
6	"LA PINTADA"
7	"NATÁ"
8	"OLÁ"
9	"PENONOMÉ"
10	"COLÓN"
11	"CHAGRES"
12	"DONOSO"
13	"PORTOBELO"
14	"SANTA ISABEL"
15	"COMARCA KUNA YALA (SAN BLAS)"
16	"ALANJE"
17	"BARÚ"
18	"BOQUERÓN"
19	"BOQUETE"
20	"BUGABA"
21	"DAVID"
22	"DOLEGA"
23	"GUALACA"
24	"REMEDIOS"
25	"RENACIMIENTO"
26	"SAN FÉLIX"
27	"SAN LORENZO"
28	"TOLE"
29	"CHEPIGANA"
30	"PINOGAA"
31	"CEMACO"
32	"SAMBÚ"
33	"CHITRÉ"
34	"LAS MINAS"
35	"LOS POZOS"
36	"OCÚ"
37	"PARITA"
38	"PESÉ"
39	"SANTA MARÍA"
40	"GUARARÉ"
41	"LAS TABLAS"
42	"LOS SANTOS"
43	"MACARACAS"
44	"PEDASÍ"
45	"POCRÍ"
46	"TONOSÍ"
47	"ARRAIJÁN"
48	"BALBOA"
49	"CAPIRA"
50	"CHAME"
51	"CHEPO"
52	"CHIMÁN"
53	"LA CHORRERA"
54	"PANAMÁ"
55	"SAN CARLOS"
56	"SAN MIGUELITO"
57	"TABOGA"
58	"ATALAYA"
59	"CALOBRE"
60	"CAÑAZAS"
61	"LA MESA"
62	"LAS PALMAS"
63	"MONTIJO"
64	"RÍO DE JESÚS"
65	"SAN FRANCISCO"
66	"SANTA FE"
67	"SANTIAGO"
68	"SONÁ"

SAVE "DISTHAB" OVERWRITE 

DEFINE POB90.ANTCIUD
AS RECODE POB90.MAYRE
(	1001	 -	1002	 =	1	)
(	1011	 -	1012	 =	2	)
(	1022			 =	3	)
(	2001	 -	2002	 =	4	)
(	2011	 -	2012	 =	5	)
(	2022			 =	6	)
(	2031	 -	2032	 =	7	)
(	2042			 =	8	)
(	2051	 -	2052	 =	9	)
(	3001	 -	3002	 =	10	)
(	3012			 =	11	)
(	3022			 =	12	)
(	3032			 =	13	)
(	3042			 =	14	)
(	3052			 =	15	)
(	4002			 =	16	)
(	4011	 -	4012	 =	17	)
(	4022			 =	18	)
(	4031	 -	4032	 =	19	)
(	4041	 -	4042	 =	20	)
(	4051	 -	4052	 =	21	)
(	4062			 =	22	)
(	4071	 -	4072	 =	23	)
(	4082			 =	24	)
(	4092			 =	25	)
(	4102			 =	26	)
(	4112			 =	27	)
(	4122			 =	28	)
(	5001	 -	5002	 =	29	)
(	5012			 =	30	)
(	5022			 =	31	)
(	5032			 =	32	)
(	6001	 -	6002	 =	33	)
(	6012			 =	34	)
(	6022			 =	35	)
(	6031	 -	6032	 =	36	)
(	6041	 -	6042	 =	37	)
(	6051	 -	6052	 =	38	)
(	6062			 =	39	)
(	7001	 -	7002	 =	40	)
(	7011	 -	7012	 =	41	)
(	7021	 -	7022	 =	42	)
(	7031	 -	7032	 =	43	)
(	7042			 =	44	)
(	7052			 =	45	)
(	7062			 =	46	)
(	8001	 -	8002	 =	47	)
(	8012			 =	48	)
(	8021	 -	8022	 =	49	)
(	8032			 =	50	)
(	8041	 -	8042	 =	51	)
(	8052			 =	52	)
(	8061	 -	8062	 =	53	)
(	8071	 -	8072	 =	54	)
(	8082			 =	55	)
(	8091			 =	56	)
(	8102			 =	57	)
(	9001	 -	9002	 =	58	)
(	9012			 =	59	)
(	9021	 -	9022	 =	60	)
(	9032			 =	61	)
(	9042			 =	62	)
(	9052			 =	63	)
(	9062			 =	64	)
(	9072			 =	65	)
(	9082			 =	66	)
(	9091	 -	9092	 =	67	)
(	9101	 -	9102	 =	68	)
(        10      -       990     =      69      )
ELSE 0
TYPE INTEGER
RANGE 0 - 69
VALUELABELS
1	"BOCAS DEL TORO"
2	"CHANGUINOLA"
3	"CHIRIQUI GRANDE"
4	"AGUADULCE"
5	"ANTÓN"
6	"LA PINTADA"
7	"NATÁ"
8	"OLÁ"
9	"PENONOMÉ"
10	"COLÓN"
11	"CHAGRES"
12	"DONOSO"
13	"PORTOBELO"
14	"SANTA ISABEL"
15	"COMARCA KUNA YALA (SAN BLAS)"
16	"ALANJE"
17	"BARÚ"
18	"BOQUERÓN"
19	"BOQUETE"
20	"BUGABA"
21	"DAVID"
22	"DOLEGA"
23	"GUALACA"
24	"REMEDIOS"
25	"RENACIMIENTO"
26	"SAN FÉLIX"
27	"SAN LORENZO"
28	"TOLE"
29	"CHEPIGANA"
30	"PINOGANA"
31	"CEMACO"
32	"SAMBÚ"
33	"CHITRÉ"
34	"LAS MINAS"
35	"LOS POZOS"
36	"OCÚ"
37	"PARITA"
38	"PESÉ"
39	"SANTA MARÍA"
40	"GUARARÉ"
41	"LAS TABLAS"
42	"LOS SANTOS"
43	"MACARACAS"
44	"PEDASÍ"
45	"POCRÍ"
46	"TONOSÍ"
47	"ARRAIJÁN"
48	"BALBOA"
49	"CAPIRA"
50	"CHAME"
51	"CHEPO"
52	"CHIMÁN"
53	"LA CHORRERA"
54	"PANAMÁ"
55	"SAN CARLOS"
56	"SAN MIGUELITO"
57	"TABOGA"
58	"ATALAYA"
59	"CALOBRE"
60	"CAÑAZAS"
61	"LA MESA"
62	"LAS PALMAS"
63	"MONTIJO"
64	"RÍO DE JESÚS"
65	"SAN FRANCISCO"
66	"SANTA FE"
67	"SANTIAGO"
68	"SONÁ"
69  "EXTRANJERO"

SAVE "DISANT" OVERWRITE

DEFINE POB90.HABCIUD
AS RECODE POB90.HABCIUD
(	4	 =	1	)
(	17	 =	2	)
(	20	 =	3	)
(	2	 =	4	)
(	33	 =	5	)
(	10	 =	6	)
(	21	 =	7	)
(	47	 =	8	)
(	53	 =	8	)
(	54	 =	8	)
(	56	 =	8	)
(	9	 =	9	)
(	67	 =	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 "CIUDHAB" OVERWRITE

DEFINE POB90.ANTCIUD
AS RECODE POB90.ANTCIUD
(	4	 =	1	)
(	17	 =	2	)
(	20	 =	3	)
(	2	 =	4	)
(	33	 =	5	)
(	10	 =	6	)
(	21	 =	7	)
(	47	 =	8	)
(	53	 =	8	)
(	54	 =	8	)
(	56	 =	8	)
(	9	 =	9	)
(	67	 =	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	"
    
SAVE "CIUDANT"  OVERWRITE

TABLE MB
AS CROSSTABS OF POB90.HABCIUD BY POB90.ANTCIUD
FOR POB90.DISTRESHAB >0 AND POB90.DIST5ANO<69 AND POB90.EDAD>4

OUTPUTFILE "PA90C5MB" OVERWRITE