/* LAST UPDATED 5/22/98 oldvar.sas: list of comparable / created variables for THAILAND OLDER QUESTIONNAIRE (including the child2 portion but excluding the older household questionnaire since it has the SAME variable names as older2) Note: Respondents here are couples in the older age group 60-70+ Note: Since the variable names in older1 and older 2 are the same, though these often mean different things, DO NOT merge older1 and older2 tryout *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= PART I: AN ATTEMPT HAS BEEN MADE TO NAME THESE CREATED VARIABLES EXACTLY AS THEY ARE IN THE COSTA-RICAN GREEN QUESTIONNAIRE. In Part II, those variables that are not comparable, will be listed =*=*=*=*=*=*=*=*=*==*=*=*==*=*==*==*=*==*=*==*=*=*==*=*==*==**/ /* This step is CRITICAL: do not erase. It will create a villid variable for each questionnaire/observation Note: You might have to change the path appropriately if the programs are shifted to another machine */ %include '~/THAI/VAR/villid.sas'; /****************************************************** BACKGROUND INFORMATION CHART ******************************************************/ if province=1 then provkanc=1;else provkanc=0; label provkanc='Province Kanchanaburi'; if province=2 then provchai=1;else provchai=0; label provchai='Province chainat'; if province=3 then provkhon=1;else provkhon=0; label provkhon='Province Khon Kaen'; if province=4 then provnong=1;else provnong=0; label provnong='province Nong Khai'; /* Questions 1, 2 at Page 2 */ if hoq1b=1 then oldmalhh=1;else oldmalhh=0; label oldmalhh='old male househead'; if hoq1c=1 then oldfemhh=1;else oldfemhh=0; label oldfemhh='old female househead'; if hoq2a=1 then parinhh=1;else parinhh=0; label parinhh='par in household'; if hoq2c=1 then marchinh=1;else marchinh=0; label marchinh='married chld in household'; if hoq2d=1 then sibinh=1;else sibinh=0; label sibinh='bros/sis. in household'; if hoq2e=1 then gchinh=1;else gchinh=0; label gchinh='grandchld in household'; if hoq2f=1 then orelinh=1;else orelinh=0; label orelinh='other rel. in household'; if hoq2g=1 then othinh=1;else othinh=0; label othinh='others in household'; /* Questions 3, .. at Page 3 */ nboysinh=hmpop1; label nboysinh='# of boys in hh'; ngirlinh=hfpop1; label ngirlinh='# of girls in hh'; naduminh=hmpop2 + hmpop3 + hmpop4 + hmpop5; label naduminh='# of adult male in hh'; nadufinh=hfpop2 + hfpop3 + hfpop4 + hfpop5; label nadufinh='# of adult female in hh'; nchilinh=nboysinh+ngirlinh; label nchilinh='# of total chld in hh'; nadulinh=naduminh+nadufinh; label nadulinh='# of total adult in hh'; nmembhh=nchilinh+nadufinh; label nmembhh='# of total member in hh'; /* Questions 4,5,6 Page 3 */ if hoq4=1 then farmhh=1;else farmhh=0; label farmhh='hh earning from farming'; if hoq4=2 then wagehh=1;else wagehh=0; label wagehh='hh earning from wage'; if hoq4=3 then bushh=1;else bushh=0; label bushh='hh earning from business'; if hoq4=4 then tradehh=1;else tradehh=0; label tradehh='hh earning from trade'; if hoq4=0 | hoq4=5 then otherhh=1;else otherhh=0; label otherhh='hh earning from other'; if hoq6=1 then buddhist=1;else buddhist=0; if hoq6=2 then islam=1;else islam=0; if hoq6=3 then x_tian=1;else x_tian=0; if hoq6=4 | hoq6=5 | hoq6=6 | hoq6=7 | hoq6=8 | hoq6=9 then other=1; else other=0; /****************************************************** HOUSING AND CONSUMER GOODS ******************************************************/ /* Question 7, Page 3 */ if hoq7=2 then ownhouse=1;else ownhouse=0; label ownhouse='h owned by someone in hh'; if hoq7a=3 then hoownpar=1;else hoownpar=0; label hoownpar='h owned by par in hh'; if hoq7a=4 then hownparl=1;else hownparl=0; label hownparl='h owned by lpar in hh'; /* Question 8, Page 4 */ if hoq8=2 then landown=1;else landown=0; label landown='land owned by someone in hh'; if hoq8a=3 then lownpar=1;else lownpar=0; label lownpar=' land owned by par in hh'; if hoq8a=4 then lownparl=1;else lownparl=0; label lownparl='land owned by lpar in hh'; /* Questions 12, 13, Page 5 */ if hoq13=1 then helect=1;else helect=0; label helect='have electricity'; /* Questions 14 Page 6 */ if tv1=1 then tvbw=1;else tvbw=0; label tvbw='black-white TV'; if tv2=1 then tvc=1;else tvc=0; label tvc='color TV'; if vdo=1 then video=1;else video=0; if refrig=1 then refrige=1;else refrige=0; if radio1=1 then radio=1;else radio=0; if radio2=1 then taperec=1;else taperec=0; if stereo=1 then stereo=1 ;else stereo=0; if fan=1 then fan=1;else fan=0; if iron=1 then iron=1;else iron=0; if cooker=1 then cooker=1;else cooker=0; if pump1=1 then pumpelec=1;else pumpelec=0; if gasstove=1 then gasstove=1;else gasstove=0; if bicycle=1 then bike=1;else bike=0; if motorcy=1 then mcycle=1;else mcycle=0; if pickup=1 then pickup=1;else pickup=0; if car=1 then car=1;else car=0; if pump2=1 then pumpgas=1;else pumpgas=0; if tractor=1 then tractor=1;else tractor=0; if vehicle=1 then vehicle=1;else vehicle=0; cntdur=tvbw+tvc+video+refrige+radio+taperec+stereo+fan+iron+ cooker+pumpelec+gasstove+bike+mcycle+pickup+ car+pumpgas+tractor+vehicle; label cntdur = '# of durables in hh'; /* Questions 16,17,18, Page 7 */ if hoq16=3 | hoq16=4 | hoq16=5 then househq1=1; else househq1=0; label househq1='2 floor w/ wood/cement, or separte cem.'; if hoq17=1 | hoq17=3 then househq2=1; else househq2=0; label househq2='wall is cement/wood'; if hoq18=1 | hoq18=2 then househq3=1; else househq3=0; label househq3='roof is cement/tile'; /* Questions 19 Page 8 */ if hoq19=4 | hoq19=5 then floorhq=1; else floorhq=0; label floorhq=' floor is wooden/tile'; if hoq20=1 | hoq20=2 then toilethq=1; else toilethq=0; label toilethq='toilet lab.with tank'; /****************************************************** INCOME AND PRODUCTIVE ASSETS ******************************************************/ /* Questions 21,22 at Page 9 */ if hoq21=1 then cultivat=1; else cultivat=0; label cultivat='hh cultivates any land'; farm = cultivat; label farm = 'HH cultivates land'; areacult=hoq21_1; label areacult='Area of land cultivated'; areaown=hoq22; label areaown='area of land owned'; irrlown=hoq22_1; label irrlown='area irrigated'; flandown = hoq22; if hoq21 = 2 then flandown = 0; if hoq22 = 999 then flandown = .; label flandown = 'Land owned by family'; /* Questions 22, 23 at Page 10 */ if hoq22_5=2 then rentolan=1; else rentolan=0; label rentolan='rent any land to others'; tsalcrop=sold1+sold2+sold3; label tsalcrop='total sales of crop'; if crop1 ne 1 | crop2 ne 1 | crop3 ne 1 then percrice=0; if crop1 = 1 | crop2 ne 1 | crop3 ne 1 then percrice=sold1/tsalcrop*100; if crop1 ne 1 | crop2 = 1 | crop3 ne 1 then percrice=sold2/tsalcrop*100; if crop1 ne 1 | crop2 ne 1 | crop3 = 1 then percrice=sold3/tsalcrop*100; label percrice='% of rice sales out of total'; if crop1 ne 2 | crop2 ne 2 | crop3 ne 2 then percsug=0; if crop1 = 2 | crop2 ne 2 | crop3 ne 2 then percsug=sold1/tsalcrop*100; if crop1 ne 2 | crop2 = 2 | crop3 ne 2 then percsug=sold2/tsalcrop*100; if crop1 ne 2 | crop2 ne 2 | crop3 = 2 then percsug=sold3/tsalcrop*100; label percsug='% of sugar cane sales out of total'; if crop1 ne 3 | crop2 ne 3 | crop3 ne 3 then perctap=0; if crop1 = 3 | crop2 ne 3 | crop3 ne 3 then perctap=sold1/tsalcrop*100; if crop1 ne 3 | crop2 = 3 | crop3 ne 3 then perctap=sold2/tsalcrop*100; if crop1 ne 3 | crop2 ne 3 | crop3 = 3 then perctap=sold3/tsalcrop*100; label perctap='% of tapioca sales out of total'; if crop1 ne 4 | crop2 ne 4 | crop3 ne 4 then perctob=0; if crop1 = 4 | crop2 ne 4 | crop3 ne 4 then perctob=sold1/tsalcrop*100; if crop1 ne 4 | crop2 = 4 | crop3 ne 4 then perctob=sold2/tsalcrop*100; if crop1 ne 4 | crop2 ne 4 | crop3 = 4 then perctob=sold3/tsalcrop*100; label perctob='% of tobacco sales out of total'; percoth=100-percrice-percsug-perctap-perctob; label percoth='% of other sales out of total'; /* Question 24 Page 11 */ if hoq24=1 then livestoc=1; else livestoc=0; if cows ne . then ncows=cows; else ncows=0; if buffalo ne . then nbuf=buffalo; else nbuf=0; label nbuf='no. of buffalo'; if pigs ne . then npig=pigs; else npig=0; if geese ne . then ngeese=geese; else ngeese=0; if ducks ne . then nducks=ducks; else nducks=0; if hens ne . then nhens=hens; else nhens=0; if other ne . then nother=other; else nother=0; /* Question 25, Page 12 */ if trade1>0 then havebus=1; else havebus=0; label havebus='have business'; bus = havebus; label bus = 'Have a business in last 12 mths'; nbus=trade1+trade2+trade3;if trade1=. then nbus=0; if trade1=1 | trade2=1 | trade3=1 then store=1;else store=0; if trade1=2 | trade2=2 | trade3=2 then restaur=1;else restaur=0; label restaur='restaurant'; if trade1=3 | trade2=3 | trade3=3 then dressbea=1;else dressbea=0; label dressbea='dressmaker/beauty salon'; if trade1=4 | trade2=4 | trade3=4 then crafts=1;else crafts=0; label crafts='handicrafts'; if trade1=5 | trade2=5 | trade3=5 then constre=1;else constre=0; label constre='construction/real estate'; if trade1=6 | trade2=6 | trade3=6 then sellcatt=1;else sellcatt=0; label sellcatt='sell cattle'; if trade1=7 | trade2=7 | trade3=7 then services=1;else services=0; if trade1=8 | trade2=8 | trade3=8 then otherbus=1;else otherbus=0; if crop1 ne 1 | crop2 = 1 | crop3 ne 1 then percrice=sold2/tsalcrop*100; if crop1 ne 1 | crop2 ne 1 | crop3 = 1 then percrice=sold3/tsalcrop*100; label percrice='% of rice sales out of total'; if crop1 ne 2 | crop2 ne 2 | crop3 ne 2 then percsug=0; if crop1 = 2 | crop2 ne 2 | crop3 ne 2 then percsug=sold1/tsalcrop*100; if crop1 ne 2 | crop2 = 2 | crop3 ne 2 then percsug=sold2/tsalcrop*100; if crop1 ne 2 | crop2 ne 2 | crop3 = 2 then percsug=sold3/tsalcrop*100; label percsug='% of sugar cane sales out of total'; if crop1 ne 3 | crop2 ne 3 | crop3 ne 3 then perctap=0; if crop1 = 3 | crop2 ne 3 | crop3 ne 3 then perctap=sold1/tsalcrop*100; if crop1 ne 3 | crop2 = 3 | crop3 ne 3 then perctap=sold2/tsalcrop*100; if crop1 ne 3 | crop2 ne 3 | crop3 = 3 then perctap=sold3/tsalcrop*100; label perctap='% of tapioca sales out of total'; if crop1 ne 4 | crop2 ne 4 | crop3 ne 4 then perctob=0; if crop1 = 4 | crop2 ne 4 | crop3 ne 4 then perctob=sold1/tsalcrop*100; if crop1 ne 4 | crop2 = 4 | crop3 ne 4 then perctob=sold2/tsalcrop*100; if crop1 ne 4 | crop2 ne 4 | crop3 = 4 then perctob=sold3/tsalcrop*100; label perctob='% of tobacco sales out of total'; percoth=100-percrice-percsug-perctap-perctob; label percoth='% of other sales out of total'; /* Question 24 Page 11 */ if hoq24=1 then livestoc=1; else livestoc=0; if cows ne . then ncows=cows; else ncows=0; if buffalo ne . then nbuf=buffalo; else nbuf=0; label nbuf='no. of buffalo'; if pigs ne . then npig=pigs; else npig=0; if geese ne . then ngeese=geese; else ngeese=0; if ducks ne . then nducks=ducks; else nducks=0; if hens ne . then nhens=hens; else nhens=0; if other ne . then nother=other; else nother=0; /* Question 25, Page 12 */ if trade1>0 then havebus=1; else havebus=0; label havebus='have business'; nbus=trade1+trade2+trade3;if trade1=. then nbus=0; if trade1=1 | trade2=1 | trade3=1 then store=1;else store=0; if trade1=2 | trade2=2 | trade3=2 then restaur=1;else restaur=0; label restaur='restaurant'; if trade1=3 | trade2=3 | trade3=3 then dressbea=1;else dressbea=0; label dressbea='dressmaker/beauty salon'; if trade1=4 | trade2=4 | trade3=4 then crafts=1;else crafts=0; label crafts='handicrafts'; if trade1=5 | trade2=5 | trade3=5 then constre=1;else constre=0; label constre='construction/real estate'; if trade1=6 | trade2=6 | trade3=6 then sellcatt=1;else sellcatt=0; label sellcatt='sell cattle'; if trade1=7 | trade2=7 | trade3=7 then services=1;else services=0; if trade1=8 | trade2=8 | trade3=8 then otherbus=1;else otherbus=0; /************************************************ 1. DATA OF THE PERSON *************************************************/ /* Thai Page 13, Q 4 */ if oq1 = 1 then sex = 1; else sex = 0; label sex = '1 if male 0 if female'; mstat = oq4; if oq4 = 1 then cohabit = 1; else cohabit = 0; if oq4 = 2 then married = 1; else married = 0; if oq4 = 3 then divorced = 1; else divorced = 0; if oq4 = 4 then widow = 1; else widow = 0; /* Note: Cohabit = single */ /* Thai Page 13, Q.2 */ ageb = oq2; label ageb = 'Age of older respondent'; if ageb<=64 then agegrp=1; if 64<= ageb <= 70 then agegrp=2; if ageb >= 70 then agegrp=3; label agegrp = 'Group 60_64, 65_69 or 70+'; mage = oq2a; /* Thai Page 15, Q. 11 */ agediff = mage - ageb; label agediff = 'Age differnece between husband and wife'; g03 = oq11; if g03 = 1 then pbirth = 1; if g03 = 2 then pbirth = 0; if g03 > 2 then pbirth=.; label pbirth='dummy: 1 if born here'; urbrth=0; if pbirth=0 and oq11_2 = 1 then urbrth=1; if pbirth=. and oq11_2 = 1 then urbrth=1; label urbrth='dummy urban birth'; /* The next one is not comparable for Thailand and Costa-Rica since we do not know the years in community in Thailand if pbirth=1 then yrscom=age; if pbirth=0 then yrscom=????; label yrscom='years in community'; */ if (oq11_2 = 1) or (oq11 = 1 and oq11_1 = 1) then urbliv = 1; else urbliv = 0; label urbliv= 'if ever lived >6 mos. in a city'; /* you might have to use wurbliv */ /************************************************ 2. UNION (MARRIAGES) ************************************************/ /* Page Thai 13, Q. 5 */ u02 = oq5; /* compare with Green at Page 3, Q. 202 */ if u02>90 then u02=. ; agefm=u02; if oq5 < 50 then agefm= oq5;else agefm=.; label wagefm='age at first union'; /* Note: there is oq7_2 which is age at marriage to present spouse */ yearsm=age-agefm; label yearsm='years married'; agediff = mage - age; label agediff = 'age difference between husband and wife'; edu = oq8; label edu ='years educ of R'; if edu= 0 then nosch = 1; else nosch = 0; label nosch='R: 1 if no school'; if 0< edu <=6 then prim=1;else prim=0; label prim= 'R: 1 if 0-6 yrs school. '; if 69 then children=7; label children='No. of children category'; c00 = lc; if c00=0 then child0=1; else child0=0; label child0='zero children'; if c00=1 then child1=1; else child1=0; label child1='one child'; if c00=2 then child2=1; else child2=0; label child2='two children'; if c00=3 then child3=1; else child3=0; label child3='three children'; if c00=4 then child4=1; else child4=0; label child4='four children'; if 49 then child10=1; else child10=0; label child10='ten or more children'; if age ne agefm then fertil=(c00)/(age - agefm); else fertil=.; label fertil='No. of chldn per year after marr'; /* compare with Pinkw at Page 6a, Q. ...*/ /* check the next codes if col7 = 1, then co4a = col9; if col7 = 2, then co4a = col12; if col7 = 3, then col4a = 0;*/ /************************************************ 5. IDEAL REPRODUCTIVITY (OWN) ************************************************/ /************************************************ 6. IDEAL REPRODUCTIVITY (CHILDREN) ************************************************/ /************************************************ 7. OTHER FAMILY MEMBERS ************************************************/ /************************************************ 8. EMPLOYMENT ************************************************/ /* Question 1,2,3,4,5 at page 13 */ /* Question 15 at p.18 */ if work1a=1 then owfarm=1;else owfarm=0; label owfarm='Older: farming for family'; if work2a=1 then owfemp=1;else owfemp=0; label owfemp='Older: farming for wages'; if work3a=1 | work4=1 then owanimh=1;else owanimh=0; label owanimh='Older: animal hus.ary and raising'; if work5a=1 then owcloth=1;else owcloth=0; label owcloth='Older: sewing clothes,knitting'; if work6a=1 then owbus=1;else owbus=0; label owbus='Older: own business'; if work7a=1 then owemp=1;else owemp=0; label owemp='Older: non-agriculture or salary emp.'; if work8a=1 then owprof=1;else owprof=0; label owprof='Older: prof like doctor and lawyer etc.'; if work9a=1 then owother=1;else owother=0; label owother='Older: gathering fuel/ water'; /* Index of work level */ if (owfarm = 1 | owfemp = 1 | owanimh = 1) then owlevel = 1; else owlevel = 0; if (owcloth = 1 | owbus = 1) then owlevel = 2; if (owemp = 1 | owprof = 1) then owlevel = 3; /* Index of regularity of work*/ ownjobs=owfarm+owfemp+owanimh+owcloth+owbus+owemp+owprof+owother; label ownjobs='# of jobs taken in past 12 mon.'; if nature1b=1 then regow1=3; else if nature1b=2 then regow1=2; else if nature1b=3 then regow1=1; label regow1='Older: work regularity index for work1'; if nature2b=1 then regow2=3; else if nature2b=2 then regow2=2; else if nature2b=3 then regow2=1; label regow2='Older: work regularity index for work2'; if nature3b=1 then regow3=3; else if nature3b=2 then regow3=2; else if nature3b=3 then regow3=1; label regow3='Older: work regularity index for work3'; if nature4b=1 then regow4=3; else if nature4b=2 then regow4=2; else if nature4b=3 then regow4=1; label regow4='Older: work regularity index for work4'; if nature5b=1 then regow5=3; else if nature5b=2 then regow5=2; else if nature5b=3 then regow5=1; label regow5='Older: work regularity index for work5'; if nature6b=1 then regow6=3; else if nature6b=2 then regow6=2; else if nature6b=3 then regow6=1; label regow6='Older: work regularity index for work6'; if nature7b=1 then regow7=3; else if nature7b=2 then regow7=2; else if nature7b=3 then regow7=1; label regow7='Older: work regularity index for work7'; if nature8b=1 then regow8=3; else if nature8b=2 then regow8=2; else if nature8b=3 then regow8=1; label regow8='Older: work regularity index for work8'; if nature9b=1 then regow9=3; else if nature9b=2 then regow9=2; else if nature9b=3 then regow9=1; label regow9='Older: work regularity index for work9'; if natur10b=1 then regow10=3; else if natur10b=2 then regow10=2; else if natur10b=3 then regow10=1; label regow10='Older: work regularity index for work10'; treginow=sum(regow1,regow2,regow3,regow4,regow5,regow6,regow7,regow8, regow9,regow10); label treginow='Older: total regularity of wife work'; /* Index of work status (whether paid or not) */ if ws1a=1 then oempstw1=3; else if ws1a=2 then oempstw1=2; else if ws1a=3 then oempstw1=1; label oempstw1='Older: work status index for work1'; if ws2a=1 then oempstw2=3; else if ws2a=2 then oempstw2=2; else if ws2a=3 then oempstw2=1; label oempstw2='Older: work status index for work2'; if ws3a=1 then oempstw3=3; else if ws3a=2 then oempstw3=2; else if ws3a=3 then oempstw3=1; label oempstw3='Older: work status index for work3'; if ws4a=1 then oempstw4=3; else if ws4a=2 then oempstw4=2; else if ws4a=3 then oempstw4=1; label oempstw4='Older: work status index for work4'; if ws5a=1 then oempstw5=3; else if ws5a=2 then oempstw5=2; else if ws5a=3 then oempstw5=1; label oempstw5='Older: work status index for work5'; if ws6a=1 then oempstw6=3; else if ws6a=2 then oempstw6=2; else if ws6a=3 then oempstw6=1; label oempstw6='Older: work status index for work6'; if ws7a=1 then oempstw7=3; else if ws7a=2 then oempstw7=2; else if ws7a=3 then oempstw7=1; label oempstw7='Older: work status index for work7'; if ws8a=1 then oempstw8=3; else if ws8a=2 then oempstw8=2; else if ws8a=3 then oempstw8=1; label oempstw8='Older: work status index for work8'; if ws9a=1 then oempstw9=3; else if ws9a=2 then oempstw9=2; else if ws9a=3 then oempstw9=1; label oempstw9='Older: work status index for work9'; if ws10a=1 then oempst10=3; else if ws10a=2 then oempst10=2; else if ws10a=3 then oempst10=1; label oempst10='Older: work status index for work10'; tostatw=sum(oempstw1,oempstw2,oempstw3,oempstw4,oempstw5,oempstw6,oempstw7, oempstw8, oempstw9,oempst10); label tostatw='total regularity of wife work'; /************************************************ 9. SAVINGS ************************************************/ /* Thai page 41 */ if oq55a = 1 or oq55b = 1 or oq55c = 1 or oq55d = 1 or oq55e =1 or oq55f = 1 then savings = 1; else savings = 0; label savings = 'Have savings?'; /* Page 41. Q. 55 */ if oq55a=1 then bankdep=1;else bankdep=0; label bankdep='bank deposits savings'; if oq55b=1 then lifeins=1;else lifeins=0; label lifeins='life insurance savings'; if oq55c=1 then pension=1;else pension=0; label pension='receive pension'; if oq55d=1 then coopsh=1;else coopsh=0; label coopsh='cooperatives or shares'; if oq55e=1 then landinv=1;else landinv=0; if oq55f=1 then funfund=1;else funfund=0; label funfund='funeral fund'; if oq55_1a > 0 then rpension = 1; else rpension = 0; label rpension = 'Repondent receives pension'; if oq55_1b > 0 then spension = 1; else spension = 0; label spension = 'Spouse receives pension'; /* Page 42 */ if oq56=3 | oq56=4 then boutland=1;else boutland=0; label boutland='bought land in last 10 yrs'; if oq56=2 | oq56=4 then soldland=1;else soldland=0; label soldland='sold land in last 10 yrs'; /************************************************ 10. DEBTS ************************************************/ if oq57=1 then debts=1;else debts=0; label debts=' have debts'; /************************************************ 11. LAND ************************************************/ /************************************************ 12. INHERITANCE ************************************************/ /* Questions 52, at p. 38 */ /************************************************ 13. MAINTENANCE IN OLD AGE BY CHILDREN ************************************************/ /****************************************************** OLD AGE SUPPORT FROM CHILDREN ******************************************************/ /* Questions 40 at p. 30 */ if assis1a = 1 or assis2a = 1 or assis3a = 1 or assis4a = 1 or assis5a = 1 then c09=1; else c09=0; if c09=1 then anyhelp=1; if c09=2 then anyhelp=0; if c09=. then anyhelp=0; label anyhelp='get any help from children'; if assis4a = 1 then careill = 1; else careill = 0; label careill = 'Receive care when ill from chldrn'; if assis1a = 1 then recmoney = 1; else recmoney = 0; label recmoney = 'Receive money from children'; if (assis2a = 2 and assi2b = 1) then noasis2 = 1; else noasis2 = 0; if (assis3a = 2 and assi3b = 1) then noasis3 = 1; else noasis3 = 0; if (assis4a = 2 and assi4b = 1) then noasis4 = 1; else noasis4 = 0; if (assis5a = 2 and assi5b = 1) then noasis5 = 1; else noasis5 = 0; if (noasis2 = 1 | noasis3 = 1 | noasis4 = 1 | noasis5 = 1) then noasis = 1; else noasis = 0; label noasis = 'did not get help on a non-financial variable'; if assis4a = 2 then nocaril = 1; else nocaril = 0; label nocaril = 'did not receive care when ill'; /* Thai page 23 */ /*if assis1c = 2 or (assis1d = 2 or assis1d = 3) and if assis2c = 2 or (assis2d = 2 or assis2d = 3) and f assis3c = 2 or (assis3d = 2 or assis3d = 3) and if assis4c = 2 or (assis4d = 2 or assis4d = 3) and if assis5c = 2 or (assis5d = 2 or assis5d = 3) and then nocare = 1; else nocare = 0; label nocare = 'expects no one to take care';*/ /* STRATEGIC BEHAVIOR */ if (oq25 = 3 | oq25 = 4) then notinhr = 1 ; else notinhr = 0; label notinhr = 'Not given most/all of inheritance'; if (oq25_1 = 0) then donoth = 1 ; else donoth = 0; label donoth = 'Do nothing about inheritance'; if notinhr = 1 and (oq25_2 = 1 | oq25_2 = 4 | oq25_2 = 3) then equalch = 1; else equalch = 0; label equalch = 'Bequest equally to children'; if notinhr = 1 and (oq25_2 = 5) then lastch = 1; else lastch = 0; label lastch = 'Bequest to last child'; if notinhr = 1 and (oq25_2 = 1 | oq25_2 = 4 | oq25_2 = 3) then equalch = 1; else equalch = 0; label equalch = 'Bequest equally to all children'; if notinhr = 1 and oq25_2 = 2 then strbeqes = 1; else strbeqes = 0; label strbeqes = 'Bequest used for strategic purposes'; if notinhr = 0 and oq25_2 = 2 then pstrbeq = 1; else pstrbeq = 0; label pstrbeq = 'Bequest partially used strategically'; if oq25_2 = 2 or oq25_6 = 2 then strat = 1; else strat = 0; if oq25 = . then strat = .; label strat = 'use of bequests for strategic purposes'; /************************************************ 14. HEALTH ************************************************/ /************************************************ 15. OPINION ON ECONOMIC CONDITIONS ************************************************/ /* Thai page 29 */ if sit1c = 1 then fbetter5 = 1; else fbetter5 =0; label fbetter = 'if better 5 yrs from now'; if sit1c = 3 then fworse5 = 1; else fworse5 = 0; label fworse5 = 'if worse 5 yrs from now'; /* Thai page 30 */ if source1 = 1 then sonsupp = 1; else sonsupp = 0; label sonsupp = 'son exp to support in old age'; if source2=1 then dausupp=1;else dausupp=0; label dausupp='daug exp to supp in old age'; if source3=1 then sibsupp=1;else sibsupp=0; label sibsupp='bro./sis. exp to support'; if source4=1 then orelsupp=1;else orelsupp=0; label orelsupp='other rel. exp to support'; if source5=1 then frnesupp=1;else frnesupp=0; label frnesupp='fri./neigb. exp to supp in old age'; if source6=1 then farmsupp=1;else farmsupp=0; label farmsupp='farm exp to supp in old age'; if source7=1 then animsupp=1;else animsupp=0; label animsupp='animals exp to supp in old age'; if source8=1 then ownwsupp=1;else ownwsupp=0; label ownwsupp='ownwork exp. to supp in old age'; if source9=1 then spwksupp=1;else spwksupp=0; label spwksupp='spouse work exp to supp in old age'; if source10=1 then busincsp=1;else busincsp=0; label busincsp='busness exp to supp in old age'; if source11=1 then oincsupp=1;else oincsupp=0; label oincsupp='other work exp to supp in old age'; if source12=1 then savsupp=1;else savsupp=0; label savsupp='savings exp to supp in old age'; if source13=1 then penssupp=1;else penssupp=0; label penssupp='pension exp to supp in old age'; if source14=1 then inssupp=1;else inssupp=0; label inssupp='insurance exp to supp in old age'; if source15=1 then rentsupp=1;else rentsupp=0; label rentsupp='rent exp to supp in old age'; sonrank=0; if rank1=1 then sonrank=3; if rank1=2 then sonrank=2; if rank1=3 then sonrank=1; label sonrank='rank of sons support'; daurank=0; if rank2=1 then daurank=3; if rank2=2 then daurank=2; if rank2=3 then daurank=1; label daurank='rank of daugs support'; sibrank=0; if rank3=1 then sibrank=3; if rank3=2 then sibrank=2; if rank3=3 then sibrank=1; label sibrank='rank of bro/sis support'; orelrank=0; if rank4=1 then orelrank=3; if rank4=2 then orelrank=2; if rank4=3 then orelrank=1; label orelrank='rank of oth. rela. support'; frnerank=0; if rank5=1 then frnerank=3; if rank5=2 then frnerank=2; if rank5=3 then frnerank=1; label frnerank='rank of friend/neig support'; farmrank=0; if rank6=1 then farmrank=3; if rank6=2 then farmrank=2; if rank6=3 then farmrank=1; label farmrank='rank of farm support'; animrank=0; if rank7=1 then animrank=3; if rank7=2 then animrank=2; if rank7=3 then animrank=1; label animrank='rank of animals support'; ownwrank=0; if rank8=1 then ownwrank=3; if rank8=2 then ownwrank=2; if rank8=3 then ownwrank=1; label ownwrank='rank of own work support'; spwrank=0; if rank9=1 then spwrank=3; if rank9=2 then spwrank=2; if rank9=3 then spwrank=1; label spwrank='rank of spouse work support'; busirank=0; if rank10=1 then busirank=3; if rank10=2 then busirank=2; if rank10=3 then busirank=1; label busirank='rank of business support'; oincrank=0; if rank11=1 then oincrank=3; if rank11=2 then oincrank=2; if rank11=3 then oincrank=1; label oincrank='rank of other work support'; savrank=0; if rank12=1 then savrank=3; if rank12=2 then savrank=2; if rank12=3 then savrank=1; label savrank='rank of savings support'; pensrank=0; if rank13=1 then pensrank=3; if rank13=2 then pensrank=2; if rank13=3 then pensrank=1; label pensrank='rank of pension support'; insrank=0; if rank14=1 then insrank=3; if rank14=2 then insrank=2; if rank14=3 then insrank=1; label insrank='rank of insurance support'; rentrank=0; if rank15=1 then rentrank=3; if rank15=2 then rentrank=2; if rank15=3 then rentrank=1; label rentrank='rank of rent support'; /* if source1 = 1 then sonsupo = 1; else sonsupo = 0; label sonsupo = 'Older: son supporting'; if source2=1 then dausupo=1;else dausupo=0; label dausupo='Older:daug supporting'; if source3=1 then sibsupo=1;else sibsupo=0; label sibsupo='Older:bro./sis. supporting'; if source4=1 then orelsupo=1;else orelsupo=0; label orelsupo='Older:other rel. supporting'; if source5=1 then frnesupo=1;else frnesupo=0; label frnesupo='Older:fri./neigb. supporting'; if source6=1 then farmsupo=1;else farmsupo=0; label farmsupo='Older:farm supporting '; if source7=1 then animsupo=1;else animsupo=0; label animsupo='Older:animals supporting'; if source8=1 then ownwsupo=1;else ownwsupo=0; label ownwsupo='Older:ownwork supporting'; if source9=1 then spwksupo=1;else spwksupo=0; label spwksupo='Older:spouse work supporting'; if source10=1 then busincso=1;else busincso=0; label busincso='Older:busness supporting'; if source11=1 then oincsupo=1;else oincsupo=0; label oincsupo='Older:other work supporting'; if source12=1 then savsupo=1;else savsupo=0; label savsupo='Older:savings supporting'; if source13=1 then penssupo=1;else penssupo=0; label penssupo='Older:pension supporting'; if source14=1 then inssupo=1;else inssupo=0; label inssupo='Older:insurance supporting'; if source15=1 then rentsupo=1;else rentsupo=0; label rentsupo='Older:rent supporting'; sonrnko=0; if rank1=1 then sonrnko=3; if rank1=2 then sonrnko=2; if rank1=3 then sonrnko=1; label sonrnko='Older: rank of sons support'; daurnko=0; if rank2=1 then daurnko=3; if rank2=2 then daurnko=2; if rank2=3 then daurnko=1; label daurnko='Older: rank of daugs support'; sibrnko=0; if rank3=1 then sibrnko=3; if rank3=2 then sibrnko=2; if rank3=3 then sibrnko=1; label sibrnko='Older: rank of bro/sis support'; orelrnko=0; if rank4=1 then orelrnko=3; if rank4=2 then orelrnko=2; if rank4=3 then orelrnko=1; label orelrnko='Older: rank of oth. rela. support'; frnernko=0; if rank5=1 then frnernko=3; if rank5=2 then frnernko=2; if rank5=3 then frnernko=1; label frnernko='Older: rank of friend/neig support'; farmrnko=0; if rank6=1 then farmrnko=3; if rank6=2 then farmrnko=2; if rank6=3 then farmrnko=1; label farmrnko='Older: rank of farm support'; animrnko=0; if rank7=1 then animrnko=3; if rank7=2 then animrnko=2; if rank7=3 then animrnko=1; label animrnko='Older: rank of animals support'; ownwrnko=0; if rank8=1 then ownwrnko=3; if rank8=2 then ownwrnko=2; if rank8=3 then ownwrnko=1; label ownwrnko='Older: rank of own work support'; spwrnko=0; if rank9=1 then spwrnko=3; if rank9=2 then spwrnko=2; if rank9=3 then spwrnko=1; label spwrnko='Older: rank of spouse work support'; busirnko=0; if rank10=1 then busirnko=3; if rank10=2 then busirnko=2; if rank10=3 then busirnko=1; label busirnko='Older: rank of business support'; oincrnko=0; if rank11=1 then oincrnko=3; if rank11=2 then oincrnko=2; if rank11=3 then oincrnko=1; label oincrnko='Older: rank of other work support'; savrnko=0; if rank12=1 then savrnko=3; if rank12=2 then savrnko=2; if rank12=3 then savrnko=1; label savrnko='Older: rank of savings support'; pensrnko=0; if rank13=1 then pensrnko=3; if rank13=2 then pensrnko=2; if rank13=3 then pensrnko=1; label pensrnko='Older: rank of pension support'; insrnko=0; if rank14=1 then insrnko=3; if rank14=2 then insrnko=2; if rank14=3 then insrnko=1; label insrnko='Older: rank of insurance support'; rentrnko=0; if rank15=1 then rentrnko=3; if rank15=2 then rentrnko=2; if rank15=3 then rentrnko=1; label rentrnko='Older: rank of rent support'; */ /* If top rank only */ if (sonsupp = 1 | dausupp = 1) and (sonrank = 3 | daurank =3) then chldsimp = 1; else chldsimp =0; label chldsimp = 'Importance of children as support'; if (source3 = 1 | source4 = 1 | source5 = 1) and (sibrank =3 | orelrank =3 | frnerank =3) then relsup=1; else relsup = 0; label relsup = 'Importance of relatives as support'; if (source6 = 1 | source7 = 1 | source8 = 1 | source9 = 1 | source10 = 1 | source11 = 1) and (farmrank =3 | animrank =3 | ownwrank =3 | spwrank =3 | busirank =3 | oincrank =3) then worksup = 1; else worksup = 0; label worksup = 'Importance of work as support'; if (source12 = 1 | source13 = 1 | source14 = 1 | source15 = 1) and (savrank =3| pensrank =3| insrank =3| rentrank =3) then savpsup = 1; else savpsup = 0; label savpsup = 'Savings, pension, insurance as support'; if wq31a=1 then noneed=1;else noneed=0; label noneed='noneed on chld s help'; if wq31b=1 then chpoor=1;else chpoor=0; label chpoor='chld are poor'; if wq31c=1 then lefthome=1;else lefthome=0; label lefthome='chld left home'; if wq31d=1 then notloyal=1;else notloyal=0; label notloyal='chld not so filial'; if wq31e=1 then notrelia=1;else notrelia=0; label notrelia='can never count on chld'; if wq31f=1 then chtoofew=1;else chtoofew=0; label chtoofew='not enough chld'; if wq31g=1 then chchildr=1;else chchildr=0; label chchildr='chld have too many chld'; if wq31h=1 then otherexc=1;else otherexc=0; label otherexc='other reasons'; if (source1 = 2 | source1 = 3) and (source2 = 2 | source2 = 3) then exp_not = 1; else exp_not = 0; label exp_not = 'Do not expect children to help when old'; /* Who takes care */ if (oq32 = 1 | oq32 = 2 | oq32 = 3) then chldcare = 1; else chldcare = 0; label chldcare = 'Actual care being received from children'; /* Whom do you want to be taken care of by? */ if (oq52 = 3 | oq52 = 4 | oq52 = 7 | oq52 = 8 | oq52 = 9 | oq52 = 10 | oq52 = 16) then ilchpref= 1; else ilchpref = 0; label ilchpref = 'Prefer children to take care when ill'; /************************************************ 16. MEMBERSHIP ************************************************/ /************************************************ 17. MIXED VARIABLES ************************************************/ /************************************************ 16. OTHER OPINIONS ************************************************/ /************************************************ 17. STRATEGIC BEHAVIOR ************************************************/