RUNDEF programa
   SELECTION ALL
                   
DEFINE POB90.DISTRESHAB
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.DIST5ANO
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.DISTRESHAB
(	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	"

DEFINE POB90.ANTCIUD
AS RECODE POB90.DIST5ANO
(	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	"

DEFINE POB90.TAMANOHAB
AS RECODE POB90.HABCIUD
(	0	=	0	)
(	1	=	3	)
(	2	=	4	)
(	3	=	4	)
(	4	=	4	)
(	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	"	500.000 - 999.999	"
2	"	50.000 - 99.999	"
3	"	20.000 - 49.999	"
4	"	Menos de 20.000	"

SAVE "CIUDHABTAM" OVERWRITE 

DEFINE POB90.TAMANOANT
AS RECODE POB90.ANTCIUD
(	0	=	0	)
(	1	=	3	)
(	2	=	4	)
(	3	=	4	)
(	4	=	4	)
(	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	"	500.000 - 999.999	"
2	"	50.000 - 99.999	"
3	"	20.000 - 49.999	"
4	"	Menos de 20.000	"

SAVE "CIUDANTTAM" OVERWRITE 

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

OUTPUTFILE "PA90CTMB" OVERWRITE