DEFINE  PERSONA.CIUDHABIT
AS VAL (CMPCODE (MUNIC))

DEFINE  PERSONA.CIUDHABI
AS RECODE PERSONA.CIUDHABIT
(	314	=	1	)
(	313	=	1	)
(	303	=	1	)
(	310	=	1	)
(	315	=	1	)
(	309	=	1	)
(	307	=	1	)
(	306	=	1	)
(	304	=	1	)
(	312	=	1	)
(	311	=	1	)
(	301	=	1	)
(	302	=	1	)
(	305	=	1	)
(	308	=	1	)
(	219	=	2	)
(	108	=	3	)
(	205	=	4	)
(	217	=	5	)
(	202	=	6	)
(	204	=	7	)
(	213	=	8	)
(	207	=	9	)
(	401	=	10	)
(	402	=	11	)
(	405	=	12	)
(	412	=	13	)
(	407	=	14	)
(	509	=	15	)
(	503	=	16	)
(	508	=	17	)
(	506	=	18	)
(	513	=	19	)
(	505	=	20	)
(	607	=	21	)
(	606	=	22	)
(	707	=	23	)
(	706	=	24	)
(	704	=	25	)
(	702	=	26	)
(	808	=	27	)
(	802	=	28	)
(	908	=	29	)
(	909	=	30	)
(	905	=	31	)
(	910	=	32	)
(	1005	=	33	)
(	1002	=	34	)
(	1008	=	35	)
(	1007	=	36	)
(	1006	=	37	)
(	1106	=	38	)
(	1114	=	39	)
(	1103	=	40	)
(	1111	=	41	)
(	1109	=	42	)
(	1113	=	43	)
(	1204	=	44	)
(	1206	=	45	)
(	1209	=	46	)
(	1203	=	47	)
(	1213	=	48	)
(	1306	=	49	)
(	1307	=	50	)
(	1301	=	51	)
(	1303	=	52	)
(	1305	=	53	)
(	1402	=	54	)
(	1404	=	55	)
(	9901	=	56	)
(	111	=	57	)
(	110	=	58	)
ELSE 59
RANGE 1 - 59
VARLABEL "Ciudad de residencia habitual"
VALUELABELS
1	"	La Habana	"
2	"	Artemisa	"
3	"	San Cristobal	"
4	"	San Antonio de los Baños	"
5	"	Güira de Melena	"
6	"	Guanajay	"
7	"	Bauta	"
8	"	Güines	"
9	"	San José de las Lajas	"
10	"	Matanzas	"
11	"	Cárdenas	"
12	"	Colón	"
13	"	Jagüey Grande	"
14	"	Jovellanos	"
15	"	Santa Clara	"
16	"	Sagua la Grande	"
17	"	Placetas	"
18	"	Caibarién	"
19	"	Manicaragua	"
20	"	Camajuaní	"
21	"	Cienfuegos	"
22	"	Cumanayagua	"
23	"	Sancti Spiritus	"
24	"	Trinidad	"
25	"	Cabaiguán	"
26	"	Jatibonico	"
27	"	Ciego de Ávila	"
28	"	Morón	"
29	"	Camagüey	"
30	"	Florida	"
31	"	Nuevitas	"
32	"	Vertientes	"
33	"	Las Tunas	"
34	"	Puerto Padre	"
35	"	Amancio	"
36	"	Colombia	"
37	"	Jobabo	"
38	"	Holguín	"
39	"	Moa	"
40	"	Banes	"
41	"	Mayarí	"
42	"	Urbano Noris	"
43	"	Sagua de Tánamo	"
44	"	Bayamo	"
45	"	Manzanillo	"
46	"	Niquero	"
47	"	Jiguaní	"
48	"	Guisa	"
49	"	Santiago de Cuba	"
50	"	Palma Soriano	"
51	"	Contramaestre	"
52	"	San Luis	"
53	"	Songo - La Maya	"
54	"	Guantánamo	"
55	"	Baracoa	"
56	"	Isla de la Juventud	"
57	"	Pinar del Río	"
58	"	Consolación del Sur	"
59  " Otros"

SAVE "CIUDHAB" OVERWRITE

DEFINE PERSONA.MUNIREC1
AS PERSONA.P8PROV * 100 +  PERSONA.P8MUN

DEFINE  PERSONA.CIUDREC1
AS RECODE PERSONA.MUNIREC1
(	314	=	1	)
(	313	=	1	)
(	303	=	1	)
(	310	=	1	)
(	315	=	1	)
(	309	=	1	)
(	307	=	1	)
(	306	=	1	)
(	304	=	1	)
(	312	=	1	)
(	311	=	1	)
(	301	=	1	)
(	302	=	1	)
(	305	=	1	)
(	308	=	1	)
(	219	=	2	)
(	108	=	3	)
(	205	=	4	)
(	217	=	5	)
(	202	=	6	)
(	204	=	7	)
(	213	=	8	)
(	207	=	9	)
(	401	=	10	)
(	402	=	11	)
(	405	=	12	)
(	412	=	13	)
(	407	=	14	)
(	509	=	15	)
(	503	=	16	)
(	508	=	17	)
(	506	=	18	)
(	513	=	19	)
(	505	=	20	)
(	607	=	21	)
(	606	=	22	)
(	707	=	23	)
(	706	=	24	)
(	704	=	25	)
(	702	=	26	)
(	808	=	27	)
(	802	=	28	)
(	908	=	29	)
(	909	=	30	)
(	905	=	31	)
(	910	=	32	)
(	1005	=	33	)
(	1002	=	34	)
(	1008	=	35	)
(	1007	=	36	)
(	1006	=	37	)
(	1106	=	38	)
(	1114	=	39	)
(	1103	=	40	)
(	1111	=	41	)
(	1109	=	42	)
(	1113	=	43	)
(	1204	=	44	)
(	1206	=	45	)
(	1209	=	46	)
(	1203	=	47	)
(	1213	=	48	)
(	1306	=	49	)
(	1307	=	50	)
(	1301	=	51	)
(	1303	=	52	)
(	1305	=	53	)
(	1402	=	54	)
(	1404	=	55	)
(	9901	=	56	)
(	111	=	57	)
(	110	=	58	)
(	203	 =	59	)
(	510	 =	59	)
(	206	 =	59	)
(	209	 =	59	)
(	208	 =	59	)
(	112	 =	59	)
(	113	 =	59	)
(	103	 =	59	)
(	109	 =	59	)
(	114	 =	59	)
(	107	 =	59	)
(	201	 =	59	)
(	106	 =	59	)
(	104	 =	59	)
(	102	 =	59	)
(	101	 =	59	)
(	105	 =	59	)
(	210	 =	59	)
(	211	 =	59	)
(	212	 =	59	)
(	214	 =	59	)
(	216	 =	59	)
(	218	 =	59	)
(	215	 =	59	)
(	403	 =	59	)
(	406	 =	59	)
(	404	 =	59	)
(	408	 =	59	)
(	409	 =	59	)
(	413	 =	59	)
(	410	 =	59	)
(	411	 =	59	)
(	414	 =	59	)
(	504	 =	59	)
(	501	 =	59	)
(	502	 =	59	)
(	507	 =	59	)
(	511	 =	59	)
(	512	 =	59	)
(	601	 =	59	)
(	602	 =	59	)
(	603	 =	59	)
(	604	 =	59	)
(	605	 =	59	)
(	608	 =	59	)
(	701	 =	59	)
(	703	 =	59	)
(	705	 =	59	)
(	708	 =	59	)
(	801	 =	59	)
(	803	 =	59	)
(	804	 =	59	)
(	805	 =	59	)
(	806	 =	59	)
(	807	 =	59	)
(	809	 =	59	)
(	810	 =	59	)
(	901	 =	59	)
(	902	 =	59	)
(	903	 =	59	)
(	904	 =	59	)
(	906	 =	59	)
(	907	 =	59	)
(	911	 =	59	)
(	912	 =	59	)
(	913	 =	59	)
(	1001	 =	59	)
(	1003	 =	59	)
(	1004	 =	59	)
(	1101	 =	59	)
(	1102	 =	59	)
(	1104	 =	59	)
(	1105	 =	59	)
(	1107	 =	59	)
(	1108	 =	59	)
(	1110	 =	59	)
(	1112	 =	59	)
(	1201	 =	59	)
(	1202	 =	59	)
(	1205	 =	59	)
(	1207	 =	59	)
(	1208	 =	59	)
(	1210	 =	59	)
(	1211	 =	59	)
(	1212	 =	59	)
(	1302	 =	59	)
(	1304	 =	59	)
(	1308	 =	59	)
(	1309	 =	59	)
(	1401	 =	59	)
(	1403	 =	59	)
(	1405	 =	59	)
(	1406	 =	59	)
(	1407	 =	59	)
(	1408	 =	59	)
(	1409	 =	59	)
(	1410	 =	59	)
ELSE 0
RANGE 1 : 59
VARLABEL "Ciudad de residencia hace 5 años"
VALUELABELS
1	"	La Habana	"
2	"	Artemisa	"
3	"	San Cristobal	"
4	"	San Antonio de los Baños	"
5	"	Güira de Melena	"
6	"	Guanajay	"
7	"	Bauta	"
8	"	Güines	"
9	"	San José de las Lajas	"
10	"	Matanzas	"
11	"	Cárdenas	"
12	"	Colón	"
13	"	Jagüey Grande	"
14	"	Jovellanos	"
15	"	Santa Clara	"
16	"	Sagua la Grande	"
17	"	Placetas	"
18	"	Caibarién	"
19	"	Manicaragua	"
20	"	Camajuaní	"
21	"	Cienfuegos	"
22	"	Cumanayagua	"
23	"	Sancti Spiritus	"
24	"	Trinidad	"
25	"	Cabaiguán	"
26	"	Jatibonico	"
27	"	Ciego de Ávila	"
28	"	Morón	"
29	"	Camagüey	"
30	"	Florida	"
31	"	Nuevitas	"
32	"	Vertientes	"
33	"	Las Tunas	"
34	"	Puerto Padre	"
35	"	Amancio	"
36	"	Colombia	"
37	"	Jobabo	"
38	"	Holguín	"
39	"	Moa	"
40	"	Banes	"
41	"	Mayarí	"
42	"	Urbano Noris	"
43	"	Sagua de Tánamo	"
44	"	Bayamo	"
45	"	Manzanillo	"
46	"	Niquero	"
47	"	Jiguaní	"
48	"	Guisa	"
49	"	Santiago de Cuba	"
50	"	Palma Soriano	"
51	"	Contramaestre	"
52	"	San Luis	"
53	"	Songo - La Maya	"
54	"	Guantánamo	"
55	"	Baracoa	"
56	"	Isla de la Juventud	"
57	"	Pinar del Río	"
58	"	Consolación del Sur	"
59  " Otros"

DEFINE PERSONA.CIUD5ANO
AS SWITCH
INCASE PERSONA.P8A=1 ASSIGN PERSONA.CIUDHABI
INCASE PERSONA.P8A=3 AND PERSONA.P9>4 AND PERSONA.P9<99 ASSIGN PERSONA.CIUDHABI
INCASE PERSONA.P8A=3 AND PERSONA.P9<5 AND PERSONA.P8PAIS>0 ASSIGN 99
INCASE PERSONA.CIUDREC1=99 ASSIGN 99
INCASE PERSONA.P8A=3 AND PERSONA.P9<5 ASSIGN PERSONA.CIUDREC1
INCASE PERSONA.P8PROV = 98 OR PERSONA.P8MUN=99 ASSIGN 99
INCASE PERSONA.P9=99 ASSIGN 99
ELSE 99
DEFAULT 0
TYPE INTEGER
LIKE  PERSONA.CIUDHABI
RANGE 1:59
VARLABEL "Ciudad de residencia hace 5 años"

SAVE "CIUREC" OVERWRITE

TABLE MB 
AS CROSSTABS OF PERSONA.CIUDHABI BY PERSONA.CIUD5ANO 
FILTER  P5 > 4