* DATE: JULY 5, 1999.
* NAME: YIH-JIN YOUNG.
* PURPOSE:  THIS PROGRAM READS THE 1980 MATCHED WOMAN-CHILD DATASET .
*           AND OUTPUTS AN SPSS ANALYSIS FILE.  THE PROGRAM RECODES.
*           THE WEIGHT VARIABLE, PUTS VALUE LABELS ON VARIABLES,.
*           COMPUTES AN AGE AT FIRST MARRIAGE, AND ADDS A VARIABLE.
*           FOR YEAR OF CENSUS.
* DATA SOURCE: indo80std.dat (SEE REFERENCE GUIDE FOR DETAILS).
* OUTPUT FILE: indo80std.por.
* NUMBER OF CASES IN OUTPUT FILE WITHOUT ANY SAMPLING: 1,771,883.
* NUMBER OF CASES IN OUTPUT FILE AFTER SAMPLE OF .18 :319,432 .

set blanks=sysmis/undefined=nowarn /mxwarns=6000000.
file handle new /name='y:\indonesia\data\census80\indo80std.dat'
 /mode=image
 /lrecl=200.
DATA LIST FILE=new FIXED
 /HH              1-  7
 PROVIN 	        8- 11 
 KABUPAT 	       12- 15 
 URBAN 		       24- 24
 HSIZE 		       25- 27 
 WEIGHT 	       28- 32 
 AGE 		       33- 34 
 RELHH                 35- 36
 MARSTAT               37- 38 
 RELIGION              45- 47
 HILEVEL               56- 57
 LIT                   58- 59
 SCATT                 60- 61
 POB                   64- 67
 PRESIDEN              72- 75
 AGEMAR                86- 87
 MARDURY               88- 89
 TIMESMAR              90- 91
 MARDURM               92- 93 
 EVERUSE               94- 95
 CURUSE                95- 96
 CS                   104-105
 CD                   110-111
 OCC 		      120-123  
 IND 		      124-125
 ACT                  128-128
 DAYSWK               132-132
 WKSTAT               133-133
 EVERWK 132-133
 MATCH                140-140 
 HAGE                 141-142 
 HHILEVEL             148-149
 HLIT                 150-151
 HSCATT               152-153
 HOCC                 154-157 
 HIND                 158-159
 HACT                 162-162
 HDAYSWK              166-166
 HWKSTAT              167-167
 HEVERWK 166-167
 NKIDS                174-174 
 C1 TO C8             175-182 
 NUKIDS               183-184 
 UC1 TO UC16          185-200.

SAMPLE 0.18.

COMPUTE KABUP = PROVIN * 100 + KABUPAT.

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

RECODE KABUP (187=186)(251=142)(254=244)(193=194)(198=195)(168= 169)
	(152=153)(174=176)(059=034)(234,236=235)(258,259=260)
	(263,264,269,270=267)(265=266)(268=262)(212=213)(223=225)
	(224=221)(216=217)(218=219)(275=273)(185=184)
	(228=229)(210,211=213)(214=215)(274=273)(278 thru 285=277).


COMPUTE YEAR=1980.

DO IF (SCATT EQ 2).
RECODE SCATT (2=1).
ELSE. 
RECODE SCATT (1,3=2).
END IF.

COMPUTE WT=WEIGHT/20.288.

RECODE POB (11=01)(12=02)(13=03)(14=04)(15=05)(16=06)(17=07)
	   (18=08)(31=09)(32=10)(33=11)(34=12)(35=13)(51=14)
	   (52=15)(53=16)(61=17)(62=18)(63=19)(64=20)
	   (71=21)(72=22)(73=23)(74=24)(81=25)(82=26)(98=29)
	   (99=27).


DO IF (PROVIN EQ PRESIDEN).
COMPUTE PRESIDEN=97.
END IF.

RECODE PRESIDEN 
	   (11=01)(12=02)(13=03)(14=04)(15=05)(16=06)(17=07)
	   (18=08)(31=09)(32=10)(33=11)(34=12)(35=13)(51=14)
           (52=15)(53=16)(61=17)(62=18)(63=19)(64=20)
           (71=21)(72=22)(73=23)(74=24)(81=25)(82=26)(98=29)
           (99=27). 

RECODE HILEVEL (SYSMIS=0).
RECODE CS (SYSMIS=99).
RECODE CD (SYSMIS=99).
COMPUTE CEB=CS+CD.
RECODE CEB (198=99).

COMPUTE YEAR=1980.
COUNT OWN=C1 TO C8(1,2,3).
RECODE OCC (SYSMIS=0).
RECODE IND (SYSMIS=0).

RECODE EVERWK (SYSMIS=0).
RECODE WKSTAT (1=1) (2=1)(3=2)(4=3)(5=4)(SYSMIS=0).

COMPUTE WORK=2.
DO IF (ACT EQ 1).
COMPUTE WORK=1.
ELSE IF (DAYSWK GE 2 AND DAYSWK LE 7).
COMPUTE WORK=1.
ELSE IF (DAYSWK EQ 9).
COMPUTE WORK=9.
END IF.

DO IF (MATCH EQ 1).
RECODE HHILEVEL (SYSMIS=0).
RECODE HIND (SYSMIS=0).
RECODE HDAYSWK (SYSMIS=99).
RECODE HEVERWK (SYSMIS=0).
RECODE HWKSTAT (SYSMIS=0).
END IF.

COMPUTE HWORK=2.
DO IF (MATCH=0).
COMPUTE HWORK=100.
ELSE IF (HACT EQ 1).
COMPUTE HWORK=1.
ELSE IF (HDAYSWK GE 2 AND HDAYSWK LE 7).
COMPUTE HWORK=1.
ELSE IF (HDAYSWK EQ 9).
COMPUTE HWORK=9.
END IF.

RECODE HWORK (100=SYSMIS).
RECODE HWKSTAT (1,2=1)(3=2)(4=3)(5=4).

DO IF (HSCATT EQ 2).
RECODE HSCATT (2=1).
ELSE.
RECODE HSCATT (1,3=2).
END IF.

RECODE PROVIN 
	   (11=01)(12=02)(13=03)(14=04)(15=05)(16=06)(17=07)
	   (18=08)(31=09)(32=10)(33=11)(34=12)(35=13)(51=14)
           (52=15)(53=16)(61=17)(62=18)(63=19)(64=20)
           (71=21)(72=22)(73=23)(74=24)(81=25)(82=26).
         

COMPUTE INM71P=0.
IF (PROVIN EQ 1) INM71P=0.141.
IF (PROVIN EQ 2) INM71P=0.120.
IF (PROVIN EQ 3) INM71P=0.151.
IF (PROVIN EQ 4) INM71P=0.141.
IF (PROVIN EQ 5) INM71P=0.155.
IF (PROVIN EQ 6) INM71P=0.151.
IF (PROVIN EQ 7) INM71P=0.166.
IF (PROVIN EQ 8) INM71P=0.147.
IF (PROVIN EQ 9) INM71P=0.126.
IF (PROVIN EQ 10) INM71P=0.165.
IF (PROVIN EQ 11) INM71P=0.143.
IF (PROVIN EQ 12) INM71P=0.098.
IF (PROVIN EQ 13) INM71P=0.119.
IF (PROVIN EQ 14) INM71P=0.127.
IF (PROVIN EQ 15) INM71P=0.219.
IF (PROVIN EQ 16) INM71P=0.151.
IF (PROVIN EQ 17) INM71P=0.143.
IF (PROVIN EQ 18) INM71P=0.128.
IF (PROVIN EQ 19) INM71P=0.165.
IF (PROVIN EQ 20) INM71P=0.151.
IF (PROVIN EQ 21) INM71P=0.114.
IF (PROVIN EQ 22) INM71P=0.146.
IF (PROVIN EQ 23) INM71P=0.159.
IF (PROVIN EQ 24) INM71P=0.191.
IF (PROVIN EQ 25) INM71P=0.145.
IF (PROVIN EQ 26) INM71P=0.113.

COMPUTE INM80P=0.
IF (PROVIN EQ 1) INM80P=0.091.
IF (PROVIN EQ 2) INM80P=0.089.
IF (PROVIN EQ 3) INM80P=0.121.
IF (PROVIN EQ 4) INM80P=0.113.
IF (PROVIN EQ 5) INM80P=0.118.
IF (PROVIN EQ 6) INM80P=0.118.
IF (PROVIN EQ 7) INM80P=0.106.
IF (PROVIN EQ 8) INM80P=0.097.
IF (PROVIN EQ 9) INM80P=0.080.
IF (PROVIN EQ 10) INM80P=0.129.
IF (PROVIN EQ 11) INM80P=0.096.
IF (PROVIN EQ 12) INM80P=0.062.
IF (PROVIN EQ 13) INM80P=0.099.
IF (PROVIN EQ 14) INM80P=0.088.
IF (PROVIN EQ 15) INM80P=0.187.
IF (PROVIN EQ 16) INM80P=0.124.
IF (PROVIN EQ 17) INM80P=0.116.
IF (PROVIN EQ 18) INM80P=0.100.
IF (PROVIN EQ 19) INM80P=0.121.
IF (PROVIN EQ 20) INM80P=0.099.
IF (PROVIN EQ 21) INM80P=0.094.
IF (PROVIN EQ 22) INM80P=0.128.
IF (PROVIN EQ 23) INM80P=0.108.
IF (PROVIN EQ 24) INM80P=0.114.
IF (PROVIN EQ 25) INM80P=0.124.
IF (PROVIN EQ 26) INM80P=0.106.

VALUE LABELS  PROVIN POB PRESIDEN 
 01 'D.I. ACEH' 
 02 'SUMATRA UTARA' 
 03 'SUMATRA BARAT' 
 04 'RIAU' 
 05 'JAMBI' 
 06 'SUMATRA SELATAN' 
 07 'BENGKULU'
 08 'LAMPUNG' 
 09 'DKI JAKARTA' 
 10 'JAWA BARAT' 
 11 'JAWA TENGAH'
 12 'D.I. JOGYAKARTA' 
 13 'JAWA TIMUR' 
 14 'BALI ' 
 15 'NUSA TENGGARA BARAT' 
 16 'NUSA TENGGARA TIMUR' 
 54 'TIMOR TIMUR'
 17 'KALIMANTAN BARAT'
 18 'KALIMANTAN TENGAH' 
 19 'KALIMANTAN SELATAN'
 20 'KALIMANTAN TIMUR'
 21 'SULAWESI UTARA'
 22 'SULAWESI TENGAH'
 23 'SULAWESI SELATAN'
 24 'SULAWESI TENGGARA'
 25 'MALUKU'
 26 'IRIAN JAYA' 
 27 'UNKNOWN'
 29 'ABROAD'
 97 'NON-MIGRANT'
 /KABUP  
 001 'K.Jakarta Pusat' 
 002 'K.Jakarta Selatan' 
 003 'K.Jakarta Barat' 
 004 'K.Jakarta  Utara' 
 005 'K.Jakarta Timur'
 006 'Pandeglang' 
 007 'Serang' 
 008 'Lebak' 
 009 'Krawang'
 010 'Purwakarta' 
 011 'Bogor' 
 012 'Sukabumi'
 013 'Cianjur'
 014 'Bandung' 
 015 'Sumedang'
 016 'Garut'
 017 'Tasikmalaya'
 018 'Cirebon' 
 019 'Kuningan' 
 020 'Indramayu'
 021 'Majalengka'
 022 'Subang'
 023 'Tanggerang' 
 024 'Bekasi'
 025 'Ciamis'
 026 'K. Bogor' 
 027 'K. Sukabumi'
 028 'K.Cirebon'
 029 'K. Bandung'
 030 'Banyumas' 
 031 'Purbalingga' 
 032 'Cilacap' 
 033 'Banjarnegara'
 034 'Magelang' 
 035 'Temanggung'
 036 'Wonosobo'
 037 'Purworejo'
 038 'Kebumen'
 039 'Pekalongan' 
 040 'Pemalang'
 041 'Tegal'
 042 'Brebes'
 043 'Semarang' 
 044 'Kendal'
 045 'Demak'
 046 'Grobogan'
 047 'Pati'
 048 'Jepara' 
 049 'Rembang'
 050 'Blora' 
 051 'Kudus' 
 052 'Klaten'
 053 'Boyolali'
 054 'Sragen'
 055 'Sukoharjo'
 056 'Karanganyar'
 057 'Wonogiri'
 058 'Batang'
 059 'K. Magelang' 
 060 'K. Pekalongan'
 061 'K.Tegal' 
 062 'K.Semarang'
 063 'K.Salatiga'
 064 'K.Surakarta' 
 065 'Bantul'
 066 'Sleman'
 067 'Gunung Kidul' 
 068 'Kulon Progo'
 069 'K. Jogyakarta'
 070 'Gresik' 
 071 'Sidoharjo' 
 072 'Mojokerto' 
 073 'Jombang'
 074 'Bojonegoro'
 075 'Tuban' 
 076 'Lamongan' 
 077 'Madiun'
 078 'Ngawi'
 079 'Magetan' 
 080 'Ponorogo' 
 081 'Pacitan' 
 082 'Kediri'
 083 'Nganjuk' 
 084 'Blitar' 
 085 'Trenggalek'
 086 'Malang' 
 087 'Pasuruan' 
 088 'Probolinggo' 
 089 'Lumajang' 
 090 'Bondowoso'
 091 'Situbondo'
 092 'Jember'
 093 'Banyuwangi'
 094 'Pamekasan'
 095 'Sampang'
 096 'Sumenep' 
 097 'Bangkalan'
 098 'Tulungagung'
 099 '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 Pandang' 
 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 'Rejang Lebong'
 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 Koto'
 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 'Buol 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. Pematang Siantar'
 251 'K. Tanjung Balai' 
 252 'K. Binjai'
 253 'K. Tebing Tinggi'
 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 Selatan'
 275 'Maluku Utara'
 276 'K. Ambon'
 277 'Jayapura'
 /RELHH 
  1 'Head of Household' 
  2 'Wife' 
  3 'Child' 
  4 'Child-in-Law'
  5 'Grandchild' 
  6 'Parent or Parent-in-Law' 
  7 'Other Family'
  8 'Servant'
  9 'Others' 
 11 'Not Stated' 
 /MARSTAT 
  1 'Never Married'
  2 'Married'
  3 'Divorced'
  4 'Widowed'
 /URBAN
  1 'Urban' 
  2 'Rural'
 /RELIGION 
  1 'Islam' 
  2 'Protestant or other Christian'
  3 'Catholic'
  4 'Hinduism'
  5 'Budhism'
  6 'Other'
 /HILEVEL HHILEVEL
  1 'No Edu or Some Primary'
  2 'Complette Primary'
  3 'Junior High School'
  4 'Senior High School' 
  5 'Vocational Junior High'
  6 'Vocational Senior High' 
  7 'Academy'
  8 'University'
  9 'No Answer'
  0 'No Education'
 /LIT HLIT 
  1 'Latin Characters'
  2 'Others' 
  3 'No' 
  9 'No Answer'
 /SCATT HSCATT
  1 'Attending School'
  2 'Not Attending School'
 /POB
  27 'Unknown'
  29 'Abroad'
/PRESIDEN
  27 'Unknown'
  29 'Abroad'
  97 'Non-migrant'
 /IND HIND 
  0 'Not Applicable'
 /EVERWK HEVERWK
  0 'Not Applicable' 
  1 'Yes'
  2 'No'
  9 'Unknown'
 /WORK HWORK
  1 'Worked Last Week'
  2 'Did not Work Last Week'
  9 'Unknown'
 /WKSTAT HWKSTAT
  1 'Own Account Worker'
  2 'Employer'
  3 'Employee'
  4 'Unpaid Family Worker'
  0 'Not Applicable'
  9 'Unknown'
 /MATCH
  0 'No Husband Match'
  1 'Husband Match'.

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'
 /INM71P 'Infant Mortality 1968 at Province Level'
 /INM80P 'Infant Mortality 1977 at Province Level'.


SORT CASES BY KABUP.

MATCH FILES TABLE='y:\indonesia\data\contextuals\icon80.sav'
 /FILE=* /BY KABUP.
SAVE OUTFILE='y:\indonesia\data\census80\indo80std.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  E471 W771 W871 MAR171 MAR371 CHSCH171 
 CHSCH271 CHWK171 E480 W780 W880 MAR180 MAR380 CHSCH180
 CHSCH280 CHWK180 INM80 SDINM80 INM71P INM80P CLINIC71
 WORKER71 SESSIO71 VISIT71 CLINIC80 WORKER80 SESSIO80
 VISIT80.
EXECUTE.

EXPORT OUTFILE='y:\indonesia\data\census80\indo80std.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  E471 W771 W871 MAR171 MAR371 CHSCH171 
 CHSCH271 CHWK171 E480 W780 W880 MAR180 MAR380 CHSCH180
 CHSCH280 CHWK180 INM80 SDINM80 INM71P INM80P CLINIC71
 WORKER71 SESSIO71 VISIT71 CLINIC80 WORKER80 SESSIO80
 VISIT80.
EXECUTE.