* This program reads the 1990 Indonesia Standard file *.
* DATE: August 26, 1998.
* NAME: Yih-Jin Young.
* PURPOSE:  THIS PROGRAM READS THE 1990 INDONESIAN STANDARD FILE.
* AND MATCH WITH 1990 CONTEXTUAL FILE. OUTPUTS TO I91.SYS.
* I91.SYS THEN MATCHES WITH INDONESIAN 70-80 FILE.
* AND ANALYZE THE FERTILITY PATTERNS FROM 80-90.
* THIS PROGRAM IS THE BASIS FOR THE 1998 TAIWAN CONFERENCE PAPER.
* DATA SOURCE: INDO90.AGE10.EXTRACT (SEE SUMMARY.XL FOR DETAILS).
* OUTPUT FILE: I91.SYS, INDO789.POR.


IMPORT FILE='y:\indonesia\data\contextuals\icon90.por'.
SORT CASES BY KABUP.
compute  mprop=mar190.
compute weprop=e490.
compute cwprop2=chwk190.

VARIABLE LABELS WEPROP  'PROP OF WOMEN 15-34 WITH MORE THAN PRIM EDU'
 CWPROP2    'PROP OF CHILDREN 10-14 IN LABOR FORCE'
 MPROP     'PROP OF WOMEN AGED 15-24 NEVER-MARRIED'.
                       
SAVE OUTFILE='y:\indonesia\data\contextuals\icon90.sav'/KEEP KABUP MPROP WEPROP CWPROP2.
EXECUTE.

*COMMAND FILE TO LIST FREQUENCIES FOR INDONESIAN CENSUS.
*1990 RECORD TYPE 02(INDIVIDUAL RECORDS).                                                       
SET MXWARNS=200000000.
SET BLANK=-9.
SET LENGTH=999999.
SET HEADER=OFF.
DATA LIST FILE= 'y:\indonesia\data\census90\indo90std.dat'
 /PROV 10-11 CURRPROV 10-11 KABU 14-15 URBAN 24 HSIZE 26-27 AGE 33-34
   RELHH 36 MARSTAT 38 RELIGION 47
   HILEVEL 56-57 LIT 59 SCATT 61 POB 66-67 
   PRESIDEN 70-71 CEB 91-92 CS 93-94 OCC 120-122
   IND 123-124 WORK 128 WKSTAT 132 
   MATCH 140 HAGE 141-142 HHILEVEL 150-151
   HLIT 152 HSCATT 153 HOCC 155-157
   HIND 158-159 HUSWORK 163 HWKSTAT 167 
   NKIDS 174 K1 TO K8 175-182 (A) NUKIDS 183-184
   UK1 TO UK8 185-192 (A) WEIGHT 28-32
   AGEMAR 82-83 TIMESMAR 87.

COMPUTE CURUSE=0.
COMPUTE EVERUSE=0.
COMPUTE MARDURY=0.
COMPUTE MARDURM=0.

compute c1=0.
compute c2=0.
compute c3=0.
compute c4=0.
compute c5=0.
compute c6=0.
compute c7=0.
compute c8=0.
 
recode k1 (convert) ('T'=10) into c1.
recode k2 (convert) ('T'=10) into c2.
recode k3 (convert) ('T'=10) into c3.
recode k4 (convert) ('T'=10) into c4.
recode k5 (convert) ('T'=10) into c5.
recode k6 (convert) ('T'=10) into c6.
recode k7 (convert) ('T'=10) into c7.
recode k8 (convert) ('T'=10) into c8.
 
compute uc1=0.
compute uc2=0.
compute uc3=0.
compute uc4=0.
compute uc5=0.
compute uc6=0.
compute uc7=0.
compute uc8=0.
recode uk1 (convert) ('T'=10) into uc1.
recode uk2 (convert) ('T'=10) into uc2.
recode uk3 (convert) ('T'=10) into uc3.
recode uk4 (convert) ('T'=10) into uc4.
recode uk5 (convert) ('T'=10) into uc5.
recode uk6 (convert) ('T'=10) into uc6.
recode uk7 (convert) ('T'=10) into uc7.
recode uk8 (convert) ('T'=10) into uc8.
COMPUTE UC9=0.
COMPUTE UC10=0.
COMPUTE UC11=0.
COMPUTE UC12=0.
COMPUTE UC13=0.
COMPUTE UC14=0.
COMPUTE UC15=0.
COMPUTE UC16=0. 

            
COUNT OWN=C1 TO C8(1,2,3).
COMPUTE WT = WEIGHT * (912544/179247783).

RECODE MARSTAT (4=3)(3=4).
RECODE RELIGION (2=3)(3=2).

RECODE HILEVEL HHILEVEL(-9=0).
RECODE HILEVEL HHILEVEL (10=9)(5=4)(4=5)(8=7)(9=8)(10=9).
RECODE SCATT HSCATT (1=2)(3=2)(2=1).

RECODE POB PRESIDEN 
 (18=17)(19=18)(20=19)(21=20)(22=21)(23=22)
 (24=23)(25=24)(26=25)(27=26)(28=29)(29=27)
 (17=30).
RECODE WKSTAT (2=1)(3=2)(4=3)(5=4).

* PROV CODES ARE RECODED CODES, SEE P100 IN THE 1990 CENSUS.
COMPUTE PROVIN=PROV.

RECODE PROVIN (1=11)(2=12)(3=13)(4=14)(5=15)(6=16)
 (7=17)(8=18)(9=31)(10=32)(11=33)(12=34)(13=35)
 (30=54)(14=51)(15=52)(16=53)(17=61)(18=62)(19=63)
 (20=64)(21=71)(23=72)(24=74)(25=81)(26=82).
 
COMPUTE KABUP = PROVIN* 100 + KABU.

COMPUTE ISLAND=PROVIN.
RECODE ISLAND (11 THRU 18=1)(31 THRU 35=2)(61 THRU 64=3)
 (71 THRU 74=4)(51 THRU 59=5)(81 THRU 82=5).


COMPUTE HWORK = -9.
 
IF (MARSTAT=2 AND MATCH=0 ) HWORK=0.
                                                                         
DO IF (HOCC GE 1 AND HOCC LE 299).
COMPUTE HWORK=5.                                                                 
ELSE IF (HOCC GE 300 AND HOCC LE 399).                                           
COMPUTE HWORK=4.                                                                 
ELSE IF (HOCC GE 400 AND HOCC LE 599).                                           
COMPUTE HWORK=3.                                                                 
ELSE IF (HOCC GE 700 AND HOCC LE 998).                                           
COMPUTE HWORK=2.                                                                 
ELSE IF (HOCC GE 600 AND HOCC LE 699).                                           
COMPUTE HWORK=1.                                                            
ELSE IF (HOCC GE 999).              
COMPUTE HWORK=6.                                                                 
END IF.                                                                          

IF (HWORK=-9) HWORK=6.


COMPUTE YEAR=1990.

VARIABLE LABELS 
 HAGE 'Husband Age'
 /MARSTAT 'Marital Status'
 /WT 'Weight'
 /AGEMAR 'Age at Marriage'
 /TIMESMAR 'No. of Times Married'
 /MARDURY 'Marriage Duration, Years'
 /EVERUSE 'Ever Use Contraception'
 /CURUSE 'Current Use Contraception'
 /RELHH 'Relationship to Household Head'
 /HILEVEL 'Educational Attainment'
 /HHILEVEL 'Husbands Educational Attainment'
 /LIT 'Literacy'
 /HLIT 'Husbands Literacy'
 /SCATT 'School Attendance'
 /HSCATT 'Husband School Attendance'
 /MARSTAT 'Marital Status'
 /POB 'Place of Birth'
 /WORK 'Work Last Week'
 /HWORK 'Husbands Work Last Week'
 /PRESIDEN 'Previous Residence'
 /OCC 'Ocupation'
 /HOCC 'Husbands Ocupation'
 /IND 'Industry'
 /HIND 'Husbands Industry'
 /WKSTAT 'Work Status'
 /HWKSTAT 'Husbands Work Status'
 /CEB 'Children-Ever-Born'
 /CS 'Children Still Living'
 /MATCH 'Husbands Match'
 /C1 'Age of 1st Matched Child'
 /C2 'Age of 2nd Matched Child'
 /C3 'Age of 3rd Matched Child'
 /C4 'Age of 4th Matched Child'
 /C5 'Age of 5th Matched Child'
 /C6 'Age of 6th Matched Child'
 /C7 'Age of 7th Matched Child'
 /C8 'Age of 8th Matched Child'
 /UC1 'Age of 1st Unmatched Child'
 /UC2 'Age of 2nd Unmatched Child'
 /UC3 'Age of 3rd Unmatched Child'
 /UC4 'Age of 4th Unmatched Child'
 /UC5 'Age of 5th Unmatched Child'
 /UC6 'Age of 6th Unmatched Child'
 /UC7 'Age of 7th Unmatched Child'
 /UC8 'Age of 8th Unmatched Child'
 /UC9 'Age of 9th Unmatched Child'
 /UC10 'Age of 10th Unmatched Child'
 /UC11 'Age of 11h Unmatched Child'
 /UC12 'Age of 12th Unmatched Child'
 /UC13 'Age of 13th Unmatched Child'
 /UC14 'Age of 14th Unmatched Child'
 /UC15 'Age of 15th Unmatched Child'
 /UC16 'Age of 16th Unmatched Child'
 /OWN ' Own Children Aged 1,2,3'
 /NKIDS 'Number of Matched Children'
 /NUKIDS 'Number of Unmatched Children'.

VALUE LABELS 
  PROVIN
        11 'D.I. Aceh'  
        12 'Sumatera Utara'
        13 'Sumatera Barat'
        14 'Riau'
        15 'Jambi'
        16 'Sumatera Selatan'
        17 'Bengkulu'
        18 'Lampung'
        31 'D.K.I. Jarkarta'
	  32 'Jawa Barat'
	  33 'Jawa Tengah'
	  34 'D.I. Yogyakarta'
	  35 'Jawa Timur'
	  51 'Bali'
        52 'Nusa Tenggara Barat'
        53 'Nusa Tenggara Timur'
        54 'Timor Timur'
        61 'Kalimantan Barat'
        62 'Kalimantan Tengah'
        63 'Kalimantan Salatan'
        64 'Kalimantan Timur'
        71 'Sulawesi Utara'
        72 'Sulawesi Tengah'
	  73 'Sulawesi Selatan'
	  74 'Sulawesi Tenggara'
	  81 'Maluku'
	  82 'Irian Jaya'
        98 'Overseas'
        99 'No Answer'/
 ISLAND
 	1       'SUMATERA'    
        2       'JAWA'
        3       'KALIMANTAN'
        4       'SULAWESI'
        5       'EASTERN INDONESIA'/
 URBAN     1 'Urban' 2 'Rural'/
 RELHH
	1	'Head of Household'
	2	'Spouse'
	3	'Son or Daughter'
	4	'Son or Daughter-in-law'
	5	'Grandchild'
	6	'Parent or Parent-in-law'
	7	'Other Relative'
	8	'Servant'
	9	'Other'/
 MARSTAT
	1	'Never Married'
	2	'Married'
	4	'Widowed'
	3	'Divorced'/
 RELIGION
	1	'Islam'
	3	'Catholic'
	2	'Protestant/Other Christian'
	4	'Hindu'
	5	'Buddhist'
	6	'Other'/
 WORK 
	1  'worked last week'
      2 'did not work last week'/
 SCATT
	1    'attending school'
        2    'not attending school'/
 HILEVEL HHILEVEL 
              0    'NO EDUCATION'
              1    'SOME PRIMARY'
              2    'COMPLETE PRIMARY'
              3    'JUNIOR HIGH SCHOOL'
              4    'SENIOR HIGH SCHOOL'
              5    'VOCATIONAL JUNIO HIGH'
              6    'VOCATIONAL SENIOR HIGH'
              7    'ACADEMY'
              8    'UNIVERSITY'
              9    'NO ANSWER'/
  MATCH       0    'NO HUSBAND MATCH'
              1    'HUSBAND MATCH'/
  LIT
 	1    'LATIN CHARACTERS'
      2    'OTHERS'
      3    'NO'
      9    'NO ANSWER'/
 WKSTAT
	0    'NOT APPLICABLE'
      1    'OWN ACCOUNT WORKER'
      2    'EMPLIYER'
      3    'EMPLOYEE'
      4    'UNPAID FAMILY WORKER'
      9    'unknown'/
  PROV POB PRESIDEN 
	   1 'D.I. Aceh'  
         2 'Sumatera Utara'
         3 'Sumatera Barat'
         4 'Riau'
         5 'Jambi'
         6 'Sumatera Selatan'
         7 'Bengkulu'
         8 'Lampung'
         9 'D.K.I. Jarkarta'
	  10 'Jawa Barat'
	  11 'Jawa Tengah'
	  12 'D.I. Yogyakarta'
	  13 'Jawa Timur'
	  14 'Bali'
        15 'Nusa Tenggara Barat'
        16 'Nusa Tenggara Timur'
        30 'Timor Timur'
        17 'Kalimantan Barat'
        18 'Kalimantan Tengah'
        19 'Kalimantan Salatan'
        20 'Kalimantan Timur'
        21 'Sulawesi Utara'
        22 'Sulawesi Tengah'
	  23 'Sulawesi Selatan'
	  24 'Sulawesi Tenggara'
	  25 'Maluku'
	  26 'Irian Jaya'
        29 'Abroad'
        27 'Unknown'
         0  'Not applicable'.

RECODE  KABUP
	(	1106	=	178	)
	(	1107	=	179	)
	(	1108	=	180	)
	(	1103	=	181	)
	(	1104	=	182	)
	(	1105	=	183	)
	(	1101	=	184	)
	(	1102	=	185	)
	(	1171	=	186	)
	(	1172	=	187	)
	(	1210	=	238	)
	(	1211	=	239	)
	(	1209	=	240	)
	(	1207	=	241	)
	(	1206	=	242	)
	(	1205	=	243	)
	(	1203	=	244	)
	(	1202	=	245	)
	(	1204	=	246	)
	(	1201	=	247	)
	(	1208	=	248	)
	(	1275	=	249	)
	(	1273	=	250	)
	(	1272	=	251	)
	(	1276	=	252	)
	(	1274	=	253	)
	(	1271	=	254	)
	(	1306	=	188	)
	(	1308	=	189	)
	(	1307	=	190	)
	(	1304	=	191	)
	(	1305	=	192	)
	(	1301	=	193	)
	(	1302	=	194	)
	(	1303	=	195	)
	(	1376	=	190	)
	(	1372	=	191	)
	(	1375	=	196	)
	(	1371	=	197	)
	(	1373	=	198	)
	(	1374	=	199	)
	(	1404	=	168	)
	(	1402	=	169	)
	(	1405	=	170	)
	(	1403	=	171	)
	(	1401	=	172	)
	(	1471	=	173	)
	(	1504	=	162	)
	(	1502	=	163	)
	(	1501	=	164	)
	(	1505	=	165	)
	(	1503	=	166	)
	(	1571	=	167	)
	(	1606	=	148	)
	(	1602	=	149	)
	(	1601	=	150	)
	(	1603	=	151	)
	(	1604	=	152	)
	(	1605	=	153	)
	(	1607	=	154	)
	(	1608	=	155	)
	(	1671	=	156	)
	(	1672	=	157	)
	(	1703	=	174	)
	(	1701	=	175	)
	(	1702	=	176	)
	(	1771	=	177	)
	(	1801	=	158	)
	(	1802	=	159	)
	(	1803	=	160	)
	(	1871	=	161	)
	(	3173	=	1	)
	(	3171	=	2	)
	(	3174	=	3	)
	(	3175	=	4	)
	(	3172	=	5	)
	(	3201	=	6	)
	(	3220	=	7	)
	(	3202	=	8	)
	(	3217	=	9	)
	(	3216	=	10	)
	(	3203	=	11	)
	(	3204	=	12	)
	(	3205	=	13	)
	(	3206	=	14	)
	(	3213	=	15	)
	(	3207	=	16	)
	(	3208	=	17	)
	(	3211	=	18	)
	(	3210	=	19	)
	(	3214	=	20	)
	(	3212	=	21	)
	(	3215	=	22	)
	(	3219	=	23	)
	(	3218	=	24	)
	(	3209	=	25	)
	(	3271	=	26	)
	(	3272	=	27	)
	(	3274	=	28	)
	(	3273	=	29	)
	(	3302	=	30	)
	(	3303	=	31	)
	(	3301	=	32	)
	(	3304	=	33	)
	(	3308	=	34	)
	(	3323	=	35	)
	(	3307	=	36	)
	(	3306	=	37	)
	(	3305	=	38	)
	(	3326	=	39	)
	(	3327	=	40	)
	(	3328	=	41	)
	(	3329	=	42	)
	(	3322	=	43	)
	(	3324	=	44	)
	(	3321	=	45	)
	(	3315	=	46	)
	(	3318	=	47	)
	(	3320	=	48	)
	(	3317	=	49	)
	(	3316	=	50	)
	(	3319	=	51	)
	(	3310	=	52	)
	(	3309	=	53	)
	(	3314	=	54	)
	(	3311	=	55	)
	(	3313	=	56	)
	(	3312	=	57	)
	(	3325	=	58	)
	(	3371	=	59	)
	(	3375	=	60	)
	(	3376	=	61	)
	(	3374	=	62	)
	(	3373	=	63	)
	(	3372	=	64	)
	(	3402	=	65	)
	(	3404	=	66	)
	(	3403	=	67	)
	(	3401	=	68	)
	(	3471	=	69	)
	(	3525	=	70	)
	(	3515	=	71	)
	(	3516	=	72	)
	(	3517	=	73	)
	(	3522	=	74	)
	(	3523	=	75	)
	(	3524	=	76	)
	(	3519	=	77	)
	(	3521	=	78	)
	(	3520	=	79	)
	(	3502	=	80	)
	(	3501	=	81	)
	(	3506	=	82	)
	(	3518	=	83	)
	(	3505	=	84	)
	(	3503	=	85	)
	(	3507	=	86	)
	(	3514	=	87	)
	(	3513	=	88	)
	(	3508	=	89	)
	(	3511	=	90	)
	(	3512	=	91	)
	(	3509	=	92	)
	(	3510	=	93	)
	(	3528	=	94	)
	(	3527	=	95	)
	(	3529	=	96	)
	(	3526	=	97	)
	(	3504	=	98	)
	(	3578	=	99	)
	(	3574	=	100	)
	(	3577	=	101	)
	(	3571	=	102	)
	(	3572	=	103	)
	(	3573	=	104	)
	(	3575	=	105	)
	(	3576	=	106	)
	(	5108	=	107	)
	(	5101	=	108	)
	(	5102	=	109	)
	(	5103	=	110	)
	(	5104	=	111	)
	(	5105	=	112	)
	(	5106	=	113	)
	(	5107	=	114	)
	(	5201	=	115	)
	(	5202	=	116	)
	(	5203	=	117	)
	(	5204	=	118	)
	(	5205	=	119	)
	(	5206	=	120	)
	(	5301	=	227	)
	(	5302	=	226	)
	(	5312	=	228	)
	(	5311	=	229	)
	(	5310	=	230	)
	(	5309	=	231	)
	(	5308	=	232	)
	(	5303	=	233	)
	(	5304	=	234	)
	(	5305	=	235	)
	(	5306	=	236	)
	(	5307	=	237	)
	(	6102	=	255	)
	(	6101	=	256	)
	(	6104	=	257	)
	(	6103	=	258	)
	(	6105	=	259	)
	(	6106	=	260	)
	(	6171	=	261	)
	(	6203	=	262	)
	(	6205	=	263	)
	(	6204	=	264	)
	(	6201	=	265	)
	(	6202	=	266	)
	(	6271	=	271	)
	(	6304	=	200	)
	(	6303	=	201	)
	(	6307	=	202	)
	(	6306	=	203	)
	(	6308	=	204	)
	(	6302	=	205	)
	(	6301	=	206	)
	(	6305	=	207	)
	(	6309	=	208	)
	(	6371	=	209	)
	(	6402	=	210	)
	(	6403	=	211	)
	(	6404	=	212	)
	(	6401	=	213	)
	(	6471	=	214	)
	(	6472	=	215	)
	(	7104	=	220	)
	(	7103	=	221	)
	(	7102	=	222	)
	(	7101	=	223	)
	(	7172	=	224	)
	(	7171	=	225	)
	(	7204	=	216	)
	(	7203	=	217	)
	(	7202	=	218	)
	(	7201	=	219	)
	(	7321	=	121	)
	(	7317	=	122	)
	(	7320	=	123	)
	(	7319	=	124	)
	(	7318	=	125	)
	(	7315	=	126	)
	(	7316	=	127	)
	(	7314	=	128	)
	(	7313	=	129	)
	(	7312	=	130	)
	(	7310	=	131	)
	(	7309	=	132	)
	(	7311	=	133	)
	(	7308	=	134	)
	(	7306	=	135	)
	(	7307	=	136	)
	(	7302	=	137	)
	(	7303	=	138	)
	(	7304	=	139	)
	(	7305	=	140	)
	(	7301	=	141	)
	(	7371	=	142	)
	(	7372	=	143	)
	(	7404	=	144	)
	(	7403	=	145	)
	(	7402	=	146	)
	(	7401	=	147	)
	(	8102	=	272	)
	(	8101	=	273	)
	(	8104	=	274	)
	(	8103	=	275	)
	(	8171	=	276	)
	(	8203	=	277	)
	(	8209	=	278	)
	(	8208	=	279	)
	(	8207	=	280	)
	(	8206	=	281	)
	(	8205	=	282	)
	(	8201	=	283	)
	(	8204	=	284	)
	(	8202	=	285	).

VALUE LABELS KABUP
	1	'K. Jakarta Pusat		'
	2	'K. Jakarta Selatan		'
	3	'K. Jakarta Barat		'
	4	'K. Jakarta Utara		'
	5	'K. Jakarta Timur		'
	6	'Pandeglang		'
	7	'Serang		'
	8	'Lebak		'
	9	'Krawang		'
	10	'Purwakarta		'
	11	'Bogor		'
	12	'Sukabumi		'
	13	'Cianjur		'
	14	'Bandung		'
	15	'Sumedang		'
	16	'Garut		'
	17	'Tasikmalaya		'
	18	'Cirebon		'
	19	'Kuningan		'
	20	'Indramayu		'
	21	'Majalengka		'
	22	'Subang		'
	23	'Tanggerang		'
	24	'Bekasi		'
	25	'Ciamis		'
	26	'K. Bogor		'
	27	'K. Sukabumi		'
	28	'K. Cirebon		'
	29	'K. Bandung		'
	30	'Banyumas		'
	31	'Purbolinggo		'
	32	'Cilacap		'
	33	'Banjarnegara		'
	34	'Magelang		'
	35	'Temanggung		'
	36	'Wonosobo		'
	37	'Purworejo		'
	38	'Kebumen		'
	39	'Pekalongan		'
	40	'Pemalang		'
	41	'Tegal		'
	42	'Brebes		'
	43	'Semarang		'
	44	'Kendal		'
	45	'Demak		'
	46	'Grobogan		'
	47	'Pati		'
	48	'Jepara		'
	49	'Rembang		'
	50	'BLORA		'
	51	'KUDUS		'
	52	'KLATEN		'
	53	'BOYOLALI		'
	54	'Sragen		'
	55	'Sukoharjo		'
	56	'Karanganyar		'
	57	'Wonogiri		'
	58	'BATANG		'
	59	'K. MAGELANG		'
	60	'K. PEKALONGAN		'
	61	'K. Tegal		'
	62	'K. Semarang		'
	63	'K. Salatiga		'
	64	'K. Surakarta		'
	65	'Bantul		'
	66	'Sleman		'
	67	'Gunung Kidul		'
	68	'Kulon Progo		'
	69	'K. Yogyakarta		'
	70	'Gresik		'
	71	'Sidoarjo		'
	72	'Mojokerto		'
	73	'Jombang		'
	74	'Bojonegoro		'
	75	'Tuban		'
	76	'Lamongan		'
	77	'Madiun		'
	78	'Ngawi		'
	79	'Magetan		'
	80	'Ponorogo		'
	81	'Pacitan		'
	82	'Kediri		'
	83	'Nganjuk		'
	84	'Blitar		'
	85	'Trenggalek		'
	86	'Malang		'
	87	'Pasuruan		'
	88	'Probolinggo		'
	89	'Lumajang		'
	90	'Bondowoso		'
	91	'Situbondo		'
	92	'Jember		'
	93	'Banyuwangi		'
	94	'Pamekasan		'
	95	'Sampang		'
	96	'Sumenep		'
	97	'Bangkalan		'
	98	'Tulungagung		'
	99	'K. Surabaya		'
	100	'K. Probolinggo		'
	101	'K. Madiun		'
	102	'K. Kediri		'
	103	'K. Blitar		'
	104	'K. Malang		'
	105	'K. Pasuruan		'
	106	'K. Mojokerto		'
	107	'Buleleng		'
	108	'Jembrana		'
	109	'Tabanan		'
	110	'Badung		'
	111	'Gianyar		'
	112	'Klungkung		'
	113	'Bangli		'
	114	'Karangasem		'
	115	'Lombok Barat		'
	116	'Lombok Tengah		'
	117	'Lombok Timur		'
	118	'Sumbawa		'
	119	'Dompu		'
	120	'Bima		'
	121	'Mamuju		'
	122	'Luwu		'
	123	'Majene		'
	124	'Polewali Mamasa		'
	125	'Tana Toraja		'
	126	'Pinrang		'
	127	'Enrekang		'
	128	'Sid. Rappang		'
	129	'Wajo/Fajo		'
	130	'Soppeng		'
	131	'Barru		'
	132	'Pakajene Kepulauan		'
	133	'Bone		'
	134	'Maros		'
	135	'Gowa/Goa		'
	136	'Sinjai		'
	137	'Bulukumba		'
	138	'Bantaeng/Bonthain		'
	139	'Jeneponto		'
	140	'Takalar		'
	141	'Selayar		'
	142	'K. Ujung Padang		'
	143	'K. Pare-Pare		'
	144	'Kolaka		'
	145	'Kendari		'
	146	'Muna		'
	147	'Buton		'
	148	'Musi Banyuasin		'
	149	'Ogan Komering Ilir		'
	150	'Ogan Komering Ulu		'
	151	'Muara Enim		'
	152	'Lahat		'
	153	'Musi Rawas		'
	154	'Bangka		'
	155	'Belitung		'
	156	'K. Palembang		'
	157	'K. Pangkal Pinang		'
	158	'Lampung Selatan		'
	159	'Lampung Tengah		'
	160	'Lampung Utara		'
	161	'K. Tanjung Karang		'
	162	'Batanghari		'
	163	'Muara Bungo Tebo		'
	164	'Kerinci		'
	165	'Tanjung Jabung		'
	166	'Bangko Sarolangun		'
	167	'K. Jambi		'
	168	'Kampar		'
	169	'Indragiri Ilir		'
	170	'Bengkalis		'
	171	'Kepulauan Riau		'
	172	'Indragiri Ulu		'
	173	'K. Pakan Baru		'
	174	'Bengkulu Utara		'
	175	'Bengkulu Selatan		'
	176	'Rejanglebong		'
	177	'K. Bengkulu		'
	178	'Aceh Besar		'
	179	'Pidie		'
	180	'Aceh Utara		'
	181	'Aceh Timur		'
	182	'Aceh Tengah		'
	183	'Aceh Barat		'
	184	'Aceh Selatan		'
	185	'Aceh Tenggara		'
	186	'K. Banda Aceh		'
	187	'K. Sabang		'
	188	'Agam		'
	189	'Pasaman		'
	190	'Limapuluh Kota		'
	191	'Tanah Datar		'
	192	'Padang Pariaman		'
	193	'Pesisir Selatan		'
	194	'Solok		'
	195	'Sawah Lunto		'
	196	'K. Bukit Tinggi		'
	197	'K. Padang		'
	198	'K. Sawah Lunto		'
	199	'K. Padang Panjang		'
	200	'Barito Kuala		'
	201	'Banjar		'
	202	'Hulu Sei Tengah		'
	203	'Hulu Sei Selatan		'
	204	'Hulu Sei Utara		'
	205	'Kota Baru		'
	206	'Tanah Laut		'
	207	'Tapin/Tapian		'
	208	'Tabalong		'
	209	'K. Banjarmasin		'
	210	'Kutai		'
	211	'Berau		'
	212	'Bulongan		'
	213	'Pasir		'
	214	'K. Balikpapan		'
	215	'K. Samarinda		'
	216	'Bual-Toli-toli		'
	217	'Donggala		'
	218	'Poso		'
	219	'Luwuk/Banggai		'
	220	'Sangihe Talaud		'
	221	'Minahasa		'
	222	'Bolaang Mongondow		'
	223	'Gorontalo		'
	224	'K. Menado		'
	225	'K. Gorontalo		'
	226	'Sumba Timur		'
	227	'Sumba Barat		'
	228	'Manggarai		'
	229	'Ngada		'
	230	'Ende		'
	231	'Sikka		'
	232	'Flores Timur		'
	233	'Kupang		'
	234	'Timor Tengah Selatan		'
	235	'Timor Tengah Utara		'
	236	'Belu		'
	237	'Alor		'
	238	'Deli Serdang		'
	239	'Langkat		'
	240	'Karo		'
	241	'Simalungun		'
	242	'Asahan		'
	243	'Labuhan Batu		'
	244	'Tapanuli Tengah		'
	245	'Tapanuli Selatan		'
	246	'Tapanuli Utara		'
	247	'Nias		'
	248	'Dairi		'
	249	'K. Medan		'
	250	'K. Pematangsiantar		'
	251	'K. Tanjung Balai		'
	252	'K. Binjai		'
	253	'K. Tebingtinggi		'
	254	'K. Sibolga		'
	255	'Pontianak		'
	256	'Sambas		'
	257	'Ketapang		'
	258	'Sanggau		'
	259	'Sintang		'
	260	'Kapuas Hulu		'
	261	'K. Pontianak		'
	262	'Kapuas		'
	263	'Barito Utara		'
	264	'Barito Selatan		'
	265	'Kota Waringin Barat		'
	266	'Kota Waringin Timur		'
	267	'Kahayan Hulu		'
	268	'Katingan		'
	269	'Barito Timur		'
	270	'Murung Raya		'
	271	'K. Palangka Raya		'
	272	'Maluku Tengah		'
	273	'Maluku Tenggara		'
	274	'Halmahera Tengah		'
	275	'Maluku Utara		'
	276	'K. Ambon		'
	277	'Jayapura		'
	278     'Teluk Cendrawasih (Biak Numfor)'
	279  'Yapen Waropen'
	280  'Manokwari'
	281  'Sorong'
	282  'Fak-Fak'
	283  'Merauke'
	284  'Paniai/Nabire'
	285  'Peg. Jayawijaya'.
                                                                                
DO IF (HILEVEL EQ 0).
COMPUTE EDUC=1.                                                             
ELSE IF (HILEVEL EQ 1).                                                     
COMPUTE EDUC=2.                                                       
ELSE IF (HILEVEL EQ 2).                                          
COMPUTE EDUC=3.                                           
ELSE IF (HILEVEL EQ 3 OR HILEVEL EQ 5).                    
COMPUTE EDUC=4.                                         
ELSE IF (HILEVEL EQ 4 OR HILEVEL EQ 6).                      
COMPUTE EDUC=5.                                            
ELSE IF (HILEVEL EQ 7 OR HILEVEL EQ 8).                          
COMPUTE EDUC=6.                                              
ELSE.                                                       
COMPUTE EDUC=9.                                   
END IF.                                                       

RECODE HOCC (MISSING = 999).

COMPUTE MIG=0.                                                                   
IF (PRESIDEN NE CURRPROV) MIG=1.                                 
                                                                                
COMPUTE AGE1=AGE.                                                                
RECODE AGE1 (17 THRU 31=1) (32 THRU 46=2).               

COMPUTE AGE2=AGE.                                                                
RECODE AGE2 (17 THRU 21=1) (22 THRU 26=2) (27 THRU 31=3)
            (32 THRU 36=4) (37 THRU 41=5) (42 THRU 46=6).                 
                                                                                
COMPUTE FAMILY=0.                                                                
DO IF (MARSTAT EQ 2).                                                            
COMPUTE FAMILY=1.                                                                
ELSE.                                                                            
COMPUTE FAMILY=0.                                                                
END IF.                                                                          
                                                                           
RECODE CEB (SYSMIS=99).                                                          
DO IF (MARSTAT EQ 1).                                                            
COMPUTE CEB=0.                                                                   
ELSE IF (CEB EQ 99).                                                             
COMPUTE CEB=0.                                                                   
ELSE IF (CEB GE 20).                                                             
COMPUTE CEB=99.                                                                  
END IF.                                                                          
                                                                    
VALUE LABELS HWORK 0 'unmatched' 1 'FARMER' 2 'PRODUCTION'               
     3 'SALES&SERV' 4 'CLERICAL'                                                
     5 'PROF&ADM' 6 'OTHER'                                                     
    /EDUC  1 'NONE' 2 'SOME PRIMARY' 3 'COMPL PRIM' 4 'JUNIOR HIGH'             
     5 'SENIOR HIGH' 6 'TERTIARY'                                               
    /AGE1 1 '15-29' 2 '30-44'                                                   
    /AGE2 1 '15-19' 2 '20-24' 3 '25-29' 4 '30-34' 5 '35-39' 6 '40-44'           
    /MIG 0 'NOMIG' 1 'MIG'.                                                      
                                                                            
*MISSING VALUES MIG FAMILY EDUC (9)/CEB  (99)/HOCC (1020).                  

select if (age ge 15 and age le 49).
SELECT IF (KABUP LE 285).
 
SORT CASES BY KABUP.

MATCH FILES TABLE='y:\indonesia\data\contextuals\icon90.sav'
 /FILE=* /BY KABUP.


EXPORT OUTFILE='y:\indonesia\data\census90\indo90std.por'/
 KEEP PROVIN KABUP URBAN HSIZE	
 AGE RELHH MARSTAT RELIGION HILEVEL LIT SCATT POB PRESIDEN CEB CS OCC IND WORK 
 WKSTAT MATCH HAGE HHILEVEL HLIT HSCATT HOCC HIND HWORK HWKSTAT NKIDS 
 C1 C2 C3 C4 C5 C6 C7 C8 UC1 TO UC16 YEAR WT OWN AGEMAR TIMESMAR MARDURY
 MARDURM EVERUSE CURUSE MPROP WEPROP CWPROP2.
EXECUTE.                                        
                   
SAVE OUTFILE='y:\indonesia\data\census90\indo90std.sav'/
 KEEP PROVIN KABUP URBAN HSIZE	
 AGE RELHH MARSTAT RELIGION HILEVEL LIT SCATT POB PRESIDEN CEB CS OCC IND WORK 
 WKSTAT MATCH HAGE HHILEVEL HLIT HSCATT HOCC HIND HWORK HWKSTAT NKIDS 
 C1 C2 C3 C4 C5 C6 C7 C8 UC1 TO UC16 YEAR WT OWN AGEMAR TIMESMAR MARDURY
 MARDURM EVERUSE CURUSE MPROP WEPROP CWPROP2.
EXECUTE.