* This program reads the 1991 Indonesian Census file *
* DATE: August 26, 1998
* NAME: Yih-Jin Young
* PURPOSE:  THIS PROGRAM READS THE 1991 INDONESIAN CENSUS FILE
* DATA SOURCE: indo90.dat (SEE REFERENCE GUIDE FOR DETAILS)
* AND CREATES CONTEXTUAL FILES FOR THE 90 DATA.
* OUTPUT FILE: ICON90.POR.
* NUMBER OF VALID KABUP: 280.

* 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\indo90.dat'
 /P1		1-2 
  P2		3-4 
  kabup           1-4 
  P3		5 
 P4		6-8 
 P5		9-11 
 P6		12             
 P7		13-14
 P8		15-18 
 P9		19-21 
 P10		22-23 
 P11		27
 P12		28-29 
 P13		30 
 P14 		31
 P15		32-33 
 P16		34-35 
 P17		36-37
 P18 		38-39 
 P19 		40
 P20 		41            
 P21 		42 
 P22 		43-44 
 P23 		45
 P24		46-47 
 P25		48-49            
 P26		50
 P27 		51-52              
 P28		53-54 
 P29 		55 
 P30 		56 
 P31 		57 
 P32 		58 
 P33		59-60 
 P34		61-63 
 P35		64-66 
 P36		67 
 P37 		68       
 P38 		69 
 P39 		70 
 P40 		71 
 P41 		72 
 P42 		73          
 P43 		74-75 
 P44 		76-77   
 P45 		78-80 
 P46		81-82 
 P47 		83-84 
 P48		85-86 
 P49 		87 
 P50		88 
 P51 		89 
 P52 		90 
 P53 		91 
 P54 		92 
 P55 		93-94 
 P56		95-96 
 P57		97-98 
 P58		99-100 
 P59		101-102 
 P60		103 
 P61		104-105 
 P62		106-107 
 P63		108-109 
 P64		110-111 
 P65		112-113 
 P66		114-115 
 P67		116-117 
 P68		118-119 
 P69		120-121 
 P70		122-123 
 P71		124-125 
 P72		126-127 
 P73		128 
 P74		129-133
 P75		134-138
 P76		139
 P77		140
 P78		141
 P79	 	142-143
 P80		144-145
 P81		144-145
 P82		148
 P83		149-150
 P84		151-152
 P85		153-154
 P86		155
 P87		156
 P88		157
 P89		158
 P90		159
 P91		160
 P92		161-162
 P93		163
 P94		164-165
 P95		166-167
 P96		168-169
 P97		170-171
 P98		172-173
 P99		174-175
 P100		176-177
 P101		178
 P102		179-180
 P103		181-182
 P104		183
 P105		184
 P106		185-186
 P107  	187.

VARIABLE LABELS
 P1	'PROVINCE' 
 P2		'KABUPATEN/KOTAMADYA'
 P3		'URBAN/RURAL'
 P4		'SAMPLE CODE NUMBER' 
 P5	'SAMPLING SERIAL  NUMBER'
 P6		'HOUSEHOLD TYPE'                                   
 P7	'NUMBER OF HOUSEHOLD MEMBER'
 P8	'NUMBER OF HH MEMBER IN INST.HH'
 P9		'NUMBER OF HH IN ENUMERATION AREA'
 P10		'NUMBER OF INST.HH IN ENUMERATION AREA'
 P11		'RECORD TYPE'
 P12		'SERIAL NUMBER OF HOUSEHOLD MEMBER'                                    
 P13		'RELATIONSHIP TO HEAD OF HOUSEHOLD' 
 P14		'SEX'                         
 P15		'DATE OF BIRTH'
 P16		'MONTH OF BIRTH'
 P17		'YEAR OF BIRTH'
 P18		'AGE' 
 P19		'MARITAL STATUS' 
 P20		'RELIGION' 
 P21		'CITIZENSHIP' 
 P22		'PROVINCE OF BIRTH'                 
 P23		'EVER LIVED IN OTHER PROVINCE' 
 P24		'PROVINCE OF  PREVIOUS RESIDENCE'
 P25		'DURATION OF RESIDENCE IN CURRENT PROVINCE' 
 P26		'OWN MOTHER  LIVING IN HOUSEHOLD'
 P27		'SERIAL NUMBER OF OWN MOTHER'
 P28		'PROVINCE OF RESIDENCE  5 YEARS AGO'
 P29		'CURRENT SCHOOL ATTENDANCE'              
 P30		'HIGHEST TYPE OF SCHOOLING EVER ATTENDED OR CURRENTLY ATTENDING'
 P31		'HIGHEST GRADE/LEVEL ATTENDED OR CURRENTLY ATTENDING'
 P32		'HIGHEST LEVEL OF EDUCATION COMPLETED' 
 P33		'FIELD OF STUDY'
 P34		'MOTHER TONGUE LANGUAGE'
 P35		'LANGUAGE SPEAK AT HOME DAILY'
 P36		'DO YOU SPEAK INDONESIAN?'
 P37		'ABILITY TO READ AND WRITE' 
 P38		'PRIMARY ACTIVITY DURING PREVIOUS WEEK' 
 P39		'WORKED AT LEAST 1 HOUR LAST WEEK'                           
 P40		'HAS JOB BUT DID NOT WORK LAST WEEK'
 P41		'EVER WORKED BEFORE'
 P42		'NUMBER OF DAYS WORKED LAST WEEK' 
 P43		'TOTAL NUMBER OF HOURS WORKED LAST WEEK'
 P44	'NUMBER OF HOURS WORKED IN MAIN JOB LAST WEEK'
 P45	'MAIN OCCUPATION LAST WEEK' 
 P46	'DIGIT CHECK OF MAIN OCCUPATION'
 P47	'INDUSTRY OF MAIN OCCUPATION LAST WEEK' 
 P48	'DIGIT CHECK OF INDUSTRY OF MAIN OCCUPATION' 
 P49	'EMPLOYMENT  STATUS IN MAIN JOB LAST WEEK'
 P50 		'ADDITIONAL JOB'                   
 P51	'INDUSTRY OF ADDITIONAL JOB' 
 P52	'LOOKED FOR WORK DURING THE PREVIOUS WEEK' 
 P53	'MAIN REASON FOR NOT LOOKING FOR WORK DURING THE PREVIOUS WEEK' 
 P54	'WORKED LAST YEAR'
 P55	'INDUSTRY OF WORK LAST YEAR'                                
 P56	'DIGIT CHECK OF INDUSTRY OF WORK LAST YEAR' 
 P57	'MONTH OF FIRST MARRIAGE' 
 P58	'YEAR  OF FIRST MARRIAGE' 
 P59	'AGE AT FIRST MARRIAGE'
 P60	'NUMBER OF MARRIAGES'
 P61	'NUMBER OF MALE CHILDREN EVER BORN'
 P62	'NUMBER OF FEMALE CHILDREN EVER BORN'
 P63	'NUMBER OF LIVING MALE CHILDREN'
 P64	'NUMBER OF LIVING FEMALE CHILDREN'
 P65	'NUMBER OF MALE CHILDREN LIVING AT HOME' 
 P66	'NUMBER OF FEMALE CHILDREN LIVING AT HOME' 
 P67	'NUMBER OF MALE CHILDREN LIVING ELSEWHERE'        
 P68	'NUMBER OF FEMALE CHILDREN LIVING ELSEWHERE'        
 P69	'NUMBER OF MALE CHILDREN WHO HAVE DIED' 
 P70	'NUMBER OF FEMALE CHILDREN WHO HAVE DIED' 
 P71	'MONTH OF BIRTH OF LAST CHILD' 
 P72	'YEAR OF BIRTH OF LAST CHILD'
 P73	'IS LAST CHILD STILL ALIVE?'
 P74	'HOUSEHOLD INFLATION FACTOR'
 P75	'POPULATION INFLATION FACTOR'                                                                               
 P76	'ISLAND OF BIRTH (RECODED)'
 P77	'ISLAND OF  PREVIOUS RESIDENCE (RECODED)'
 P78	'ISLAND OF RESIDENCE  5 YEARS AGO (RECODED)'
 P79	'PROVINCE OF BIRTH (RECODED)'
 P80	'PROVINCE OF  PREVIOUS RESIDENCE (RECODED)'
 P81	'PROVINCE OF RESIDENCE  5 YEARS AGO (RECODED)'
 P82	'AGE GROUP I (RECODED)'
 P83	'AGE GROUP II (RECODED)'	 
 P84	'HIGHEST LEVEL OF EDUCATION COMPLETED  (RECODED)' 
 P85	'LANGUAGE SPEAK AT HOME DAILY (RECODED)'
 P86	'PRIMARY ACTIVITY DURING PREVIOUS WEEK (RECODED)'
 P87	'NUMBER OF DAYS WORKED LAST WEEK (RECODED)'
 P88	'TOTAL NUMBER OF HOURS WORKED LAST WEEK   (RECODED)'
 P89	'HOURS WORKED IN MAIN JOB LAST WEEK  (RECODED)'
 P90	'HOURS WORKED IN ADDITIONAL JOB LAST WEEK  (RECODED)'	 
 P91	'MAIN OCCUPATION LAST WEEK (RECODED)' 
 P92	'INDUSTRY OF MAIN OCCUPATION LAST WEEK (RECODED)' 
 P93	'EMPLOYMENT  STATUS IN MAIN JOB LAST WEEK  (RECODED)' 
 P94	'INDUSTRY OF ADDITIONAL JOB LAST WEEK (RECODED)'	 
 P95	'INDUSTRY OF WORK LAST YEAR (RECODED)'  	 
 P96	'AGE AT FIRST MARRIAGE (RECODED)' 	 
 P97		'NUMBER OF  CHILDREN EVER BORN  (RECODED)'   	 
 P98	'NUMBER OF LIVING  CHILDREN (RECODED)'    
 P99	'YEAR OF BIRTH OF LAST CHILD (RECODED)'
 P100	'PROVINCE  (RECODED)'
 P101	'ISLAND   (RECODED)'
 P102	'PROVINCE/ISLAND  (RECODED)'
 P103	'NUMBER OF HH MEMBERS (RECODED)'
 P104	'TYPE OF BUILDING  (RECODED)'
 P105	'NUMBER OF HOUSEHOLDS IN CENSUS BUILDING  (RECODED)'
 P106	'SIZE OF FLOOR AREA  (RECODED)'
 P107	'TOTAL HOLDING LAND  (RECODED)'.

VALUE LABELS 
 P1 P22 P24 P28
      	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'/
 P3     1 'Urban' 2 'Rural'/
 P6     1  'Private Household'
          2  'Institutional Household'/
 P11    1 'Household Record Type' 2 'Person Record Type'/
 P13	
	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'/
 P14
	1	'Male'
	2	'Female'/
 P18
	00	'Less than 1 year old'
	01	'1 year old or more but less than 2 year old'
	98	'98 years and above'
	99	'No Answer'/
 P19
	1	'Single (Never Married)'
	2	'Married'
	3	'Widowed'
	4	'Divorced'/
 P20
	1	'Islam'
	2	'Catholic'
	3	'Protestant/Other Christian'
	4	'Hindu'
	5	'Buddhist'
	6	'Other'/
 P21
	1  'Indonesian'
	2  'Chinese (PRC, Taiwan, Stateless)'
	3  'Other foreigner'
	9  'No answer'/
 P23 P26 P36 P39 P41 P52 P54
 	1  'Yes' 2 'No'/
 P25
	00	'Less than 1 year'
	01	'1 Year'
	98	'98 years or more'
	99	'No answer'/
 P29
	1	'Never attended or has not yet started schooling'
	2	'Attending school'
	3	'Not attending anymore'/
 P30
	1	'Primary School (6 years)'
	2	'General Junior High School'
	3	'General Senior High School'
	4	'Vocational Junior High School'
	5	'Vocational Senior High School'
	6	'Diploma I/II (1 or 2 years)'
	7	'Academy/Diploma III'
	8	'University/Diploma IV'
	9       'No Answer'/
 P31    
        0	'None'
	1	'One Year'
	7	'7 Years'
	8	'Completed'
	9   	'No Answer'/  
 P32
        1       'None/Less than Primary School (6 years)'
        2       'Primary School'           
        3       'General Junior High School' 
        4       'General Senior High School'
        5       'Vocational Junior High School'
        6       'Vocational Senior High School'
        7       'Diploma I/II (1 or 2 years)'
        8       'Academy/Diploma III'
        9       'University/Diploma IV'
        0       'No Answer'/     
 P34 P35
 01        'INDONESIA'                
 03        'Asing (Foreign)'          
 04        'Aceh'                     
 05        'Gayo'                     
 06        'Batak'                    
 07        'Minangkabau'              
 08        'Melayu'                   
 09        'Rejang Lebong'            
 10        'Melayu Tengah'            
 11        'Lampung'                  
 12        'Lom'                      
 13        'Basa Loncong'             
 14        'Simeulu'                  
 15        'Nias'                     
 16        'Mentawai'                 
 17        'Enggano'                  
 18        'Jawa'                     
 19        'Sunda'                    
 20        'Madura'                   
 21        'Kalimantan'               
 22        'Ot Danum'                 
 23        'Kenya Bahau'              
 24        'Tidung'                   
 25        'Bali'                     
 26        'Sasak'                    
 27        'Sumbawa'                  
 28        'Bima'                     
 29        'Manggarai'                
 30        'Ngada Endeh'              
 31        'Sumba'                    
 32        'Hawu'                     
 33        'Muna Butung'              
 34        'Bungku Laki'              
 35	'Sulawesi Selatan'
 36     'Toraja'
 37     'Tomino'
 38     'Gorontalo'
 39     'Loinang'
 40     'Banggai'
 41     'Roti'
 42     'Kupang'
 43     'Timor Barat'
 44     'Timor'
 45     'Timor Timur'
 46     'Wetar'
 47     'Roma'
 48     'Kisar'
 49     'Leti'
 50     'Literi Lagona'
 51     'Tanimbar'
 52     'Damar'
 53     'Kai'
 54     'Jueri'
 55     'Kimnavo'
 56     'Ambelam'
 57     'Seram Barat'
 58     'Seram Timur'
 59     'Goram'
 60     'Banda'
 61     'Sula Bagan'
 62     'HalmaherSelatan'
 63     'Sangir'
 64     'Talaud'
 65     'Minahasa'
 66     'Halmahera Utara'
 67     'MunaButungMelayu'
 68     'Numfor'
 69     'Biak'
 70     'Windesi'
 71     'Irian Barat'
 72     'Melanesia'
 888	'Other'
 999	'No Answer'/
 P37
 	1	'Yes, Latin Alphabet'
	2	'Yes, Other Alphabet'
	3	'No'
	9	'No Answer'/
 P38
	1	'Working'
	2	'Attending School'
	3	'Housekeeping'
	4	'Other'/
 P40   
        1  'Yes' 2 'No' 3 'Not Applicable'/
 P42
	0	'Did not work'
	1	'1 Day'
	2	'2 Days'
	7	'7 Days'
	9	'No Answer But Had Worked'/
 P43
	0	'Did not work'
	1	'1 Hour'
	2	'2 Hours'
	98	'98 Hours'
	99	'No Answer But Had Worked'/
 P49
	1	'Self Employed'
	2	'Self Employed, assisted by family members'
	3	'Employer'
	4	'Employee'
	5	'Family Worker'
	9	'No Answer'/
 P50 P73
	1	'Yes' 2	'No' 9	'No Answer'/
 P51
        1       'Agriculture, Forestry, Hunting and Fishing'
        2       'Mining and Quarrying'
        3       'Manufacturing'
        4       'Electricity, Gas and Water'
        5       'Construction'
        6       'Wholesale and Retail Trade, Restaurant, Hotels'
        7       'Transport, Storage and Communication'
        8       'Financing, Insurance, Real Estate and Busi Service'
        9       'Community, Social and Personal Services'
	10	'Other/Not Classifiable'
	99	'No Answer'/
 P53
	1	'Did not need work'
	2	'Gave up Trying'
	3	'Attending School'
	4	'Housekeeping'
	5	'Not Able to work'
	6	'Other'
	9	'No Answer'/
 P16 P57 P71 
	01	'January'
	02	'February'
        03      'March'
        04      'April'
        05      'May'
        06      'June'
        07      'July'
        08      'August'
        09      'September'
        10      'October'
        11      'November'
        12      'December'
	99	'No Answer'/
 P17 P58 P72
	00	'1900'
	01	'1901'
	80	'1980'
	99	'No Answer'/
 P59	10	'10 Years Old'
	11	'11 Years Old'
	98	'98 Years and Above'
	99	'No Answer'/
 P60
	1	'Once'
	2	'Twice'
	8	'8 Times or More'
	9	'No Answer'/
 P76  P77 P78 P101
	1	'SUMATERA'
	2	'JAWA'
	3	'KALIMANTAN'
	4	'SULAWESI'
	5	'EASTERN INDONESIA'
        6 	'OVERSEAS'
	7       'NO ANSWER'/ 		
 P79 P80 P81 P100
          0 'Not Applicable'
      	 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'
        17 'Timor Timur'
        18 'Kalimantan Barat'
        19 'Kalimantan Tengah'
        20 'Kalimantan Salatan'
        21 'Kalimantan Timur'
        22 'Sulawesi Utara'
        23 'Sulawesi Tengah'
	24 'Sulawesi Selatan'
	25 'Sulawesi Tenggara'
	26 'Maluku'
	27 'Irian Jaya'
        28 'Overseas'
        29 'No Answer'/
 P82
	1 '0-4' 2 '5-6' 3 '7-12' 4 '13-15' 5 '16-18' 
 	6 '19-24' 7 '25 +' 8 'No answer'/
 P83
	 1 '0-4' 2 '5-9' 3 '10-14' 4 '15-19' 5 '20-24' 6 '25-29'
	 7 '30-34' 8 '35-39' 9 '40-44' 10 '45-49' 11 '50-54'
	 12 '55-59' 13 '60-64' 14 '65-69' 15 '70-74'
 	 16 '75+' 17 'No answer'/
 P84  00      'Not Applicable' 10 '0'/
 P85   10 'Lainnya'/     
 P87	00 'Not Applicable'
	01 '0'
	02 '1'
	03 '2'
	04 '3'
	05 '4'
	06 '5'
	07 '6'
	08 '7'
	09 'No answer'/	
 P88 P89
 	0 'Not Applicable' 1 '0' 2 '1-9' 3 '10-24' 4 '25-34' 
	5 '35-44'
 	6 '45-59' 7 '60-79' 8 '80+' 9 'No answer'/
 P90
 	0 'Not Applicable' 1 '1-9' 2 '10-24' 3 '25-34' 
	4 '35-59' 5 '60+' 6 'No answer'/   
 P91
        1       'Government Officials'   
        2       'Professionals'
        3       'Technicians'
        4       'Clerical and Related Workers'
        5       'Sales and Service Workers'
        6       'Agricultural/Forestry Workers'
        7       'Craft Related Workers'
        8       'Machine Equipment Operators and Laborers'
        9       'Elementary Occupation'     
        0       'Not Applicable'/
 P92 P94 P95
        0       'Not Applicable'
        1       'Agriculture, Forestry, Hunting and Fishing'
        2       'Mining and Quarrying'
        3       'Manufacturing'
        4       'Electricity, Gas and Water'
        5       'Construction'
        6       'Wholesale and Retail Trade, Restaurant, Hotels'
        7       'Transport, Storage and Communication'
        8       'Financing, Insurance, Real Estate and Busi Service'
        9       'Community, Social and Personal Services'
        10      'Other/Not Classifiable'  
        99      'No Answer'/
 P93
        1       'Self Employed'
        2       'Self Employed, assisted by family members'
        3       'Employer'
        4       'Employee'
        5       'Family Worker'
        6       'No Answer'/ 
 P96
	00	'Not Applicable'
	01 	'less than 14'
	02 	'14'
	03 	'15'
	04 	'16'
	05 	'17'
	06 	'18'
	07 	'19'
	08 	'20-21'
	09 	'22-24'
	10 	'25-29'
	11 	'30 and older'
	12	'No answer'/
 P97 P98
	00 'Not Applicable'
	01 '0'
	02 '1'
	03 '2'
	04 '3'
	05 '4'
	06 '5'
	07 '6'
	08 '7'
	09 '8'
	10 '9'
	11 '10 or more'
	12 'No answer'/
 P99
	00 'Not applicable'
	01 '1990'
	02 '1989'
	03 '1988'
	04 '1987'
	05 '1986'
	06 '1985'
	07 '1980-84'
	08 '1976-79'
	09 '1910-75'
	10 'No answer'/
 P102
 	2 'D.K.I. Jarkarta'       
        3 'Jawa Barat'
        4 'Jawa Tengah'
        5 'D.I. Yogyakarta'
        6 'Jawa Timur'
	7 'SUMATERA'     
        8  'KALIMANTAN'
        9  'SULAWESI'
	10 'EASTERN INDONESIA' /
 P104
 	1       'Ind Bld with 1 dwelling unit & Multifloor'      
        2       'Ind Bld with 2 dwelling units & Multifloor'
        3       'Ind Bld with 3 or more dwelling unit2 & Multifloor'
        4       'No answer and multifloor'
        5       'Ind Bld with 1 dwelling unit & singlefloor'
        6       'Ind Bld with 2 dwelling units & singlefloor'
        7       'Ind Bld with 3 or more dwelling units & singlefloor'
        8       'No answer and singlefloor'
        9       'No answer and do not know'/ 
 P106
        01     '< 20  sq. meters'
        02     '20-29 sq. meters'
        03     '30-39   sq. meters'
        04      '40-49 sq. meters'
        05      '50-69 sq. meters'
        06      '70-99 sq. meters'
        07    '100-149 sq. meters'
        08    '150-199 sq. meter'
        09    '200-299 sq. meters'
        10    '300 + sq. meters'
        11    'No Answer'/
 P107
        01     'No land'
        02     '<0.25 Ha'
        03     '0.25-0.49 Ha'
        04     '0.50-0.74 Ha'
        05     '0.75-0.99 Ha'
        06     '1.00-1.24 Ha'
        07     '1.25-1.99 Ha'
        08     '2.0 + Ha'
        09     'No Answer'.
 
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'.


*MISSING VALUES P1 TO P107 (-9).
COMPUTE WT =p75 * (912544/179247783).

WEIGHT BY WT.

SELECT IF (P11 EQ 2).                                                      

COMPUTE EDU490=0.
IF (P32 GE 3 AND P32 LE 9) EDU490=1.
 
COMPUTE MARRY190=0.
IF (P19=1) MARRY190=1.

COMPUTE CWORK=0.
IF (P38=1 OR P40=1) CWORK=1.

TEMPORARY.
SELECT IF (P18 GE 10 AND P18 LE 14).
AGGREGATE OUTFILE='y:\indonesia\data\contextuals\chwk190.sav'
 /BREAK=KABUP
 /CHWK190 = MEAN (CWORK).

* PROP. OF WOMEN 15-34 GT PRIMARY EDUCATION *
TEMPORARY.
SELECT IF (P18 GE 15 AND P18 LE 34 AND P14=2).
AGGREGATE OUTFILE= 'y:\indonesia\data\contextuals\e490.sav'
 /BREAK=KABUP
 /E490 = MEAN (EDU490).

* proportion of women 15-24 who are single 15-24.
TEMPORARY.
SELECT IF (P18 GE 15 AND P18 LE 24 AND P14=2).
AGGREGATE OUTFILE= 'y:\indonesia\data\contextuals\mar190.sav'
 /BREAK=KABUP
 /MAR190 = MEAN (MARRY190).

GET FILE='y:\indonesia\data\contextuals\e490.sav'.
EXECUTE.
* SELECT ONLY KNOWN KABUP BOUNDARY.  
SELECT IF (KABUP LE 300).
SORT CASES BY KABUP.
SAVE OUTFILE='y:\indonesia\data\contextuals\e490.sav'.

GET FILE='y:\indonesia\data\contextuals\mar190.sav'.
EXECUTE.
* SELECT ONLY KNOWN KABUP BOUNDARY.  
SELECT IF (KABUP LE 300).
SORT CASES BY KABUP.
SAVE OUTFILE='y:\indonesia\data\contextuals\mar190.sav'.


GET FILE='y:\indonesia\data\contextuals\chwk190.sav'.
EXECUTE.
* SELECT ONLY KNOWN KABUP BOUNDARY.  
SELECT IF (KABUP LE 300).
SORT CASES BY KABUP.
SAVE OUTFILE='y:\indonesia\data\contextuals\chwk190.sav'.


GET FILE='y:\indonesia\data\contextuals\mar190.sav'.
EXECUTE.

MATCH FILES /FILE=*
 /FILE='Y:\Indonesia\DATA\contextuals\chwk190.sav'
 /RENAME (kabup = d0)
 /DROP= d0.
EXECUTE.

MATCH FILES /FILE=*
 /FILE='Y:\Indonesia\DATA\contextuals\e490.sav'
 /RENAME (kabup = d0)
 /DROP= d0.
EXECUTE.


EXPORT OUTFILE='y:\indonesia\data\contextuals\icon90.por'.

des var all.