/* THAILAND: HUSBAND QUESTIONNAIRE Last updated 5/9/98 */ /* CRITICAL STEP 1. This creates 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'; /* CRITICAL STEP 2: There were two observations in the husband questionnaire which had a typo in the mue variable. The error has been detected. The following step corrects the error */ if hid = 734 then wifeid = 999; if hid = 803 then wifeid = 1097; /* CRITICAL STEP 3: Renaming variables The names of ASSIS variables are the same in both the wife and husband questionnaires, leading to confusion at the time of merger. Therefore, these are being renamed in the husband case as follows: */ HASSI1A = ASSIS1A; HASSI1B = ASSIS1B; HASSI1C = ASSIS1C; HASSI1D = ASSIS1D; HASSI1E = ASSIS1E; HASSI2A = ASSIS2A; HASSI2B = ASSIS2B; HASSI2C = ASSIS2C; HASSI2D = ASSIS2D; HASSI2E = ASSIS2E; HASSI3A = ASSIS3A; HASSI3B = ASSIS3B; HASSI3C = ASSIS3C; HASSI3D = ASSIS3D; HASSI3E = ASSIS3E; HASSI4A = ASSIS4A; HASSI4B = ASSIS4B; HASSI4C = ASSIS4C; HASSI4D = ASSIS4D; HASSI4E = ASSIS4E; HASSI5A = ASSIS5A; HASSI5B = ASSIS5B; HASSI5C = ASSIS5C; HASSI5D = ASSIS5D; HASSI5E = ASSIS5E; HASSI6A = ASSIS6A; HASSI6B = ASSIS6B; HASSI6C = ASSIS6C; HASSI6D = ASSIS6D; HASSI6E = ASSIS6E; HASSI7A = ASSIS7A; HASSI7B = ASSIS7B; HASSI7C = ASSIS7C; HASSI7D = ASSIS7D; HASSI7E = ASSIS7E; drop ASSIS1A ASSIS1B ASSIS1C ASSIS1D ASSIS1E ASSIS2A ASSIS2B ASSIS2C ASSIS2D ASSIS2E ASSIS3A ASSIS3B ASSIS3C ASSIS3D ASSIS3E ASSIS4A ASSIS4B ASSIS4C ASSIS4D ASSIS4E ASSIS5A ASSIS5B ASSIS5C ASSIS5D ASSIS5E ASSIS6A ASSIS6B ASSIS6C ASSIS6D ASSIS6E ASSIS7A ASSIS7B ASSIS7C ASSIS7D ASSIS7E ; /* Questions 1, 2. Page 1 */ if hq1<50 then hagefm=hq1;else hagefm=.; label hagefm='hus. first marriage age'; if hq2_1=1 then hurbliv=1;else if hq2_1=2 then hurbliv=0; else hurbliv=.; label hurbliv='hus. in urban more than 6 months'; /* Questions 8, 9 Page 4 */ if hq8=1 then haddcdes=1;else haddcdes=0; label haddcdes='Husb: Do you want more chldn?'; if hq8=1 & hq8a=1 then haddsdes=1;else haddsdes=0; label haddsdes='Husb: No. added sons desired'; if hq8=1 & hq8b=1 then haddddsh=1;else haddddsh=0; label haddddsh='Husb: No. added daughters desired'; if hq8=1 & hq8c=1 then haddedsh=1;else haddedsh=0; label haddedsh='Husb: No. added son or daug desired'; husbmore = sum (haddsdes, haddddsh, haddedsh); if hq8=2 then enchd=1;else enchd=0; label enchd='have enough chd'; if hq9=1 then etalkedh=1;else etalkedh=0; label etalkedh='Husb: ever talked # of chld w/ wife'; if etalkedh=1 & hq9_1=1 then talkbmh=1;else talkbmh=0; label talkbmh='Husb: talked before marri.'; if hq9_2a=. then nddshdsh=0;else nddshdsh=hq9_2a; label nddshdsh='Husb: No. added sons desired by wife'; if hq9_2b=. then naddhdsh=0;else naddhdsh=hq9_2b; label naddhdsh='Husb: No. added daug desired by wife'; if hq9_2c=. then nddehdsh=0;else nddehdsh=hq9_2c; label nddehdsh='Husb: No. added chld desired by wife'; haddch = sum (nddshdsh, naddhdsh, nddehdsh); label haddch = 'Husb: Number of add. chld des. by wife'; /* Questions 16, 17 Page 6*/ if hq16=1 then paradvsh=1;else paradvsh=0; label paradvsh='Husb: Par advise no. of chld'; if hq16_1=1 then parwmorh=1;else parwmorh=0; label parwmorh='Husb: Par want more'; if hq16_1=2 then parwlesh=1;else parwlesh=0; label parwlesh='Husb: Par want less'; if hq16_2=1 & hq16_1=1 then prinfmch=1;else prinfmch=0; label prinfmch='Husb: Par influence more chld'; if hq16_2=1 & hq16_1=2 then parinfch=1;else parinfch=0; label parinfch='Husb: Par influence less chld'; if hq17a<90 then hidelmas=hq17a;else hidelmas=.; label hidelmas='Husb: ideal marriage age of son'; if hq17b<90 then hidelmad=hq17b;else hidelmad=.; label hidelmad='Husb: ideal marriage age of daughter'; /* OLD AGE SUPPORT FROM CHILDREN */ /* Question 18, Page 8 */ if hassi1a=1 then hopmonyh=1;else hopmonyh=0; label hopmonyh='Husb expect money from chld'; if hassi2a=1 then hopworkh=1;else hopworkh=0; label hopworkh='Husb expect own work from chld'; if hassi3a=1 then hophworh=1;else hophworh=0; label hophworh='Husb expect housework from chld'; if hassi4a=1 then hopcareh=1;else hopcareh=0; label hopcareh='Husb expect care from chld when ill'; if hassi5a=1 then hopcomph=1;else hopcomph=0; label hopcomph='Husb expect companionship from chld'; if hassi6a=1 then hopordh=1;else hopordh=0; label hopordh='Husb expect ordination from chld'; if hassi7a=1 then hopafunh=1;else hopafunh=0; label hopafunh='Husb expect funeral from chld'; if hassi1b=1 | hopmonyh=1 then phopmonh=1;else phopmonh=0; label phopmonh='hopmonyh with prompting'; if hassi2b=1 | hopworkh=1 then phopworh=1;else phopworh=0; label phopworh='hopworkh with prompting'; if hassi3b=1 | hophworh=1 then phphworh=1;else phphworh=0; label phphworh='hophworh with prompting'; if hassi4b=1 | hopcareh=1 then phopcarh=1;else phopcarh=0; label phopcarh='hopcareh with prompting'; if hassi5b=1 | hopcomph=1 then phopcomh=1;else phopcomh=0; label phopcomh='hopcomph with prompting'; if hassi6b=1 | hopordh=1 then phopordh=1;else phopordh=0; label phopordh='hopordh with prompting'; if hassi7b=1 | hopafunh=1 then phpafunh=1;else phpafunh=0; label phpafunh='hopfuneh with prompting'; if hassi1c = 1 then hmmimp = 1; else hmmimp = 0; label hmmimp = 'Husb: Financial help is most imp'; if hassi2c = 1 then howmimp = 1; else howmimp = 0; label howmimp = 'Husb: Help in own work/farm most imp'; if hassi3c = 1 then hhwmimp = 1; else hhwmimp = 0; label hhwmimp = 'Husb: Help in housework most imp'; if hassi4c = 1 then hcimimp = 1; else hcimimp = 0; label hcimimp = 'Husb: Care when ill most imp'; if hassi5c =1 then hcmpmimp = 1; else hcmpmimp = 0; label hcmpmimp = 'Husb: Companionship most imp'; if hassi6c = 1 then hordmimp = 1; else hordmimp = 0; label hordmimp = 'Husb: Orination most important'; if hassi7c = 1 then hfprmimp = 1; else hfprmimp = 0; label hfprmimp = 'Husb: Funeral most imp'; if hordmimp = 1 | hcmpmimp = 1 | hfprmimp = 1 then elsemimh = 1; else elsemimh = 0; label elsemimh = 'Husb: Ord + Cmp + Fpr + Othare mimp'; if howmimp = 1 | hhwmimp = 1 then workassh = 1; else workassh = 0; label workassh = 'Husb: assitance in work most imp'; if hmmimp ne 1 & howmimp ne 1 & hhwmimp ne 1 & hcimimp ne 1 & hcmpmimp ne 1 & hordmimp ne 1 & hfprmimp ne 1 then hassires = .; else hassires = 1; label hassires = 'Response to the rankings'; if hassi1d=1 | phopmonh=1 then whopmonh=1;else whopmonh=0; label whopmonh='asked if phopmonh is needed'; if hassi2d=1 | phopworh=1 then whopworh=1;else whopworh=0; label whopworh='asked if phopworh is needed'; if hassi3d=1 | phphworh=1 then whphworh=1;else whphworh=0; label whphworh='asked if phphworh is needed'; if hassi4d=1 | phopcarh=1 then whopcarh=1;else whopcarh=0; label whopcarh='asked if phopcarh is needed'; if hassi5d=1 | phopcomh=1 then whopcomh=1;else whopcomh=0; label whopcomh='asked if phopcomh is needed'; if hassi6d=1 | phopordh=1 then whopordh=1;else whopordh=0; label whopordh='asked if phopordh is needed'; if hassi7d=1 | phpafunh=1 then whpafunh=1;else whpafunh=0; label whpafunh='asked if phopfunh is needed'; if hassi1e=1 | whopmonh=1 then bmonyh=1;else bmonyh=0; label bmonyh='chld would bestow whopmonh'; if hassi2e=1 | whopworh=1 then bworkh=1;else bworkh=0; label bworkh='chld would bestow whopworh'; if hassi3e=1 | whphworh=1 then bhworkh=1;else bhworkh=0; label bhworkh='chld would bestow whphworh'; if hassi4e=1 | whopcarh=1 then bcareh=1;else bcareh=0; label bcareh='chld would bestow whopcarh'; if hassi5e=1 | whopcomh=1 then bcomph=1;else bcomph=0; label bcomph='chld would bestow whopcomh'; if hassi6e=1 | whopordh=1 then bordh=1;else bordh=0; label bordh='chld would bestow whopordh'; if hassi7e=1 | whpafunh=1 then bafuneh=1;else bafuneh=0; label bafuneh='chld would bestow whopfunh'; /* Questions 19, 20 Page 9 */ if HQ19=1 then finan60h=1;else finan60h=0; label finan60h='Husb: thought on finan. situ. at 60'; if exp1a = 1 then sonsupph = 1; else sonsupph = 0; label sonsupph = 'Husb: son exp to support in old age'; if exp2a=1 then dausupph=1;else dausupph=0; label dausupph='Husb: daug exp to supp in old age'; if exp3a=1 then sibsupph=1;else sibsupph=0; label sibsupph ='Husb: bro./sis. exp to support'; if exp4a=1 then orelsuph=1;else orelsuph=0; label orelsuph='Husb: other rel. exp to support'; if exp5a=1 then frnesuph=1;else frnesuph=0; label frnesuph='Husb: fri./neigb. exp to supp in old age'; if exp6a=1 then farmsuph=1;else farmsupp=0; label farmsuph='Husb: farm exp to supp in old age'; if exp7a=1 then animsuph=1;else animsuph=0; label animsuph='Husb: animals exp to supp in old age'; if exp8a=1 then ownwsuph=1;else ownwsuph=0; label ownwsuph='Husb: ownwork exp. to supp in old age'; if exp9a=1 then spwksuph=1;else spwksuph=0; label spwksuph='Husb: spouse work exp to supp in old age'; if exp10a=1 then busicsph=1;else busicsph=0; label busicsph='Husb: busness exp to supp in old age'; if exp11a=1 then oincsuph=1;else oincsuph=0; label oincsuph='Husb: other work exp to supp in old age'; if exp12a=1 then savsuph=1;else savsuph=0; label savsuph='Husb: savings exp to supp in old age'; if exp13a=1 then penssuph=1;else penssuph=0; label penssuph='Husb: pension exp to supp in old age'; if exp14a=1 then inssuph=1;else inssuph=0; label inssuph='Husb: insurance exp to supp in old age'; if exp15a=1 then rentsuph=1;else rentsuph=0; label rentsuph='Husb: rent exp to supp in old age'; sonrakh=0; if exp1b=1 then sonrakh=3; if exp1b=2 then sonrakh=2; if exp1b=3 then sonrakh=1; label sonrakh='Husb: rank of sons support'; daurakh=0; if exp2b=1 then daurakh=3; if exp2b=2 then daurakh=2; if exp2b=3 then daurakh=1; label daurakh='Husb: rank of daugs support'; sibrakh=0; if exp3b=1 then sibrakh=3; if exp3b=2 then sibrakh=2; if exp3b=3 then sibrakh=1; label sibrakh='Husb: rank of bro/sis support'; orelrakh=0; if exp4b=1 then orelrakh=3; if exp4b=2 then orelrakh=2; if exp4b=3 then orelrakh=1; label orelrakh='Husb: rank of oth. rela. support'; frnerakh=0; if exp5b=1 then frnerakh=3; if exp5b=2 then frnerakh=2; if exp5b=3 then frnerakh=1; label frnerakh='Husb: rank of friend/neig support'; farmrakh=0; if exp6b=1 then farmrakh=3; if exp6b=2 then farmrakh=2; if exp6b=3 then farmrakh=1; label farmrakh='Husb: rank of farm support'; animrakh=0; if exp7b=1 then animrakh=3; if exp7b=2 then animrakh=2; if exp7b=3 then animrakh=1; label animrakh='Husb: rank of animals support'; ownwrakh=0; if exp8b=1 then ownwrakh=3; if exp8b=2 then ownwrakh=2; if exp8b=3 then ownwrakh=1; label ownwrakh='Husb: rank of own work support'; spwrakh=0; if exp9b=1 then spwrakh=3; if exp9b=2 then spwrakh=2; if exp9b=3 then spwrakh=1; label spwrakh='Husb: rank of spouse work support'; busirakh=0; if exp10b=1 then busirakh=3; if exp10b=2 then busirakh=2; if exp10b=3 then busirakh=1; label busirakh='Husb: rank of business support'; oincrakh=0; if exp11b=1 then oincrakh=3; if exp11b=2 then oincrakh=2; if exp11b=3 then oincrakh=1; label oincrakh='Husb: rank of other work support'; savrakh=0; if exp12b=1 then savrakh=3; if exp12b=2 then savrakh=2; if exp12b=3 then savrakh=1; label savrakh='Husb: rank of savings support'; pensrakh=0; if exp13b=1 then pensrakh=3; if exp13b=2 then pensrakh=2; if exp13b=3 then pensrakh=1; label pensrakh='Husb: rank of pension support'; insrakh=0; if exp14b=1 then insrakh=3; if exp14b=2 then insrakh=2; if exp14b=3 then insrakh=1; label insrakh='Husb: rank of insurance support'; rentrakh=0; if exp15b=1 then rentrakh=3; if exp15b=2 then rentrakh=2; if exp15b=3 then rentrakh=1; label rentrakh='Husb: rank of rent support'; /* top rank only */ if (sonsupph = 1 | dausupph = 1) and (sonrakh = 3 | daurakh =3) then chldsiph = 1; else chldsiph =0; label chldsiph = 'Husb: Importance of children as support'; if (exp3a = 1 | exp4a = 1 | exp5a = 1) and (sibrakh =3 | orelrakh =3 | frnerakh =3) then relsuph=1; else relsuph= 0; label relsuph= 'Husb: Importance of relatives as support'; if (exp6a = 1 | exp7a = 1 | exp8a = 1 | exp9a = 1 | exp10a = 1 | exp11a = 1) and (farmrakh =3 | animrakh =3 | ownwrakh =3 | spwrakh =3 | busirakh =3 | oincrakh =3) then worksuph= 1; else worksuph= 0; label worksuph= 'Husb: Importance of work as support'; if (exp12a = 1 | exp13a = 1 | exp14a = 1 | exp15a = 1) and (savrakh =3| pensrakh =3| insrakh =3| rentrakh =3) then savpsuph= 1; else savpsuph= 0; label savpsuph= 'Husb: Savings, pension, insurance as support'; /* SURECHNH */ if (sonrakh = 2 | daurakh =2) and hq22 = 1 then surechnh = 7; if (sonrakh = 3 | daurakh =3) and hq22 = 1 then surechnh = 9; if (sonrakh >= 2 | daurakh >=2) and hq22 = 2 then surechnh = 5; if (sonrakh >= 2 | daurakh >=2) and hq22 = 3 then surechnh = 3; if (sonrakh <2 and daurakh<2) and (hq21a = 1 | hq21f = 1 | hq21g = 1 | hq21h = 1) then surechnh = .; if (sonrakh <2 and daurakh <2) and (hq21c = 1 | hq21d = 1 | hq21e = 1) then surechnh = 1; surelogh = log(surechnh); suresqh = surechnh*surechnh; /* Questions 21, 22 Page 11 */ if hq21a=1 then noneedh=1;else noneedh=0; label noneedh='Husb: noneed on chld s help'; if hq21b=1 then chpoorh=1;else chpoorh=0; label chpoorh='Husb: chld are poor'; if hq21c=1 then lefthomh=1;else lefthomh=0; label lefthomh='Husb: chld left home'; if hq21d=1 then notloylh=1;else notloylh=0; label notloylh='Husb:chld not so filial'; if hq21e=1 then notrliah=1;else notrliah=0; label notrliah='Husb: can never count on chld'; if hq21f=1 then ch2fewh=1;else ch2fewh=0; label ch2fewh='Husb: not enough chld'; if hq21g=1 then chchldrh=1;else chchldrh=0; label chchldrh='Husb: chld have too many chld'; if hq21h=1 then othrexch=1;else othrexch=0; label othrexch='Husb: other reasons'; /* NOT USED surechnh=0; if (sonrankh>=2 | daurankh>=2) & hq22=1 then surechnh=3; if (sonrankh>=2 | daurankh>=2) & hq22=2 then surechnh=2; if (sonrankh>=2 | daurankh>=2) & hq22=3 then surechnh=1; label surechnh='Husb: certainty index on chld s support'; */ /* Question 23, 24 Page 12 */ if hq23=1 then doasureh=1;else doasureh=0; label doasureh='Husb: Anything to assure child support'; if hq23_1a=1 | hq23_1b=1 | hq23_1c=1 then dowhinhh=1; else dowhinhh=0; label dowhinhh='Husb: withhold inheritance'; if hq23_1a=2 | hq23_1b=2 | hq23_1c=2 then doteachh=1; else doteachh=0; label doteachh='Husb: teach to be good'; if hq23_1a=3 | hq23_1b=3 | hq23_1c=3 then hdntcomp=1; else hdntcomp=0; label hdntcomp='Husb: not strict/complaining'; if hq23_1a=4 | hq23_1b=4 | hq23_1c=4 then dogoodh=1; else dogoodh=0; label dogoodh='Husb:good example'; if hq23_1a=5 | hq23_1b=5 | hq23_1c=5 then hhlpgchi=1; else hhlpgchi=0; label hhlpgchi='Husb: raise chld/care for grchil'; if hq23_1a=6 | hq23_1b=6 | hq23_1c=6 then doeduch=1; else doeduch=0; label doeduch='Husb:give highest educ'; if hq23_1a=7 | hq23_1b=7 | hq23_1c=7 then doloveh=1; else doloveh=0; label doloveh='Husb: give love/warth'; if hq23_1a=8 | hq23_1b=8 | hq23_1c=8 | hq23_1a=9 | hq23_1b=9 | hq23_1c=9 then dootherh=1; else dootherh=0; label dootherh='Husb: other/ dk/dr'; if hq23_2=1 then inhelpsh=1;else inhelpsh=0; label inhelpsh='Husb: Inheritance help assured'; if hq24=1 then hadchbet=1;else hadchbet=0; label hadchbet='Husb: added child better'; if hq24=3 then hadchwor=1;else hadchwor=0; label hadchwor='Husb: added child worse'; /* Questions 25, 26 Page 13 */ if hq25=3 then lescworh=1;else lescworh=0; label lescworh='Husb: less child worse'; if hq25=1 then lescbeth=1;else lescbeth=0; label lescbeth='Husb: less child better'; if hq26=1 then hanyhlpt=1;else hanyhlpt=0; label hanyhlpt=' Husb: ever assisted par?'; if hq26=1 & hq26_1a=1 then finhlpth=1;else finhlpth=0; label finhlpth='Husb: financial help to par'; if hq26=1 & hq26_1b=1 then worhlpth=1;else worhlpth=0; label worhlpth='Husb: own work/farming help to par'; if hq26=1 & hq26_1c=1 then hwhhelpt=1;else hwhhelpt=0; label hwhhelpt='Husb: housework help to par'; if hq26=1 & hq26_1d=1 then carhhlpt=1;else carhhlpt=0; label carhhlpt='Husb: care help to par when ill'; if hq26=1 & hq26_1e=1 then hcmhelpt=1;else hcmhelpt=0; label hcmhelpt='Husb: companionship help to par'; if hq26=1 & hq26_1f=1 then ordhlpth=1;else ordhlpth=0; label ordhlpth='Husb: ordination help to par'; if hq26=1 & hq26_1g=1 then hafnhlpt=1;else hafnhlpt=0; label hafnhlpt='Husb: arrange funeral help to par'; if hq26=1 & hq26_1h=1 then ohelpth=1;else ohelpth=0; label ohelpth='Husb: other help to par'; /* PERCEPTION OF INCOME ADEQUACY */ /* Questions 27, 28, 29 Page 14 */ if hq27=1 then finfbtrh=1;else finfbtrh=0; label finfbtrh='Husb: finan. better in 10 yrs'; if hq27=3 then finfwrsh=1;else finfwrsh=0; label finfwrsh='finan. worse in 10 yrs'; if hq28=1 | hq28=2 then hfn60adq=1;else hfn60adq=0; label hfn60adq='Husb: living std adequate in 60'; if hq28=3 then fn60inah=1;else fn60inah=0; label fn60inah='living std inadequate'; /* INHERITANCE */ /* Questions 30 Page 15 */ if hq30=1 then inherith=1;else inherith=0; label inherith='Husb: expect inheritance'; if hq30_1d=. then hq30_1d=0; if inherith=1 & hq30_1a=1 then inhfrmfh=1; /* ??? */ else if inherith=1 & hq30_1a ne 1 then inhfrmfh=0; else inhfrmfh=.; label inhfrmfh='Husb: inheritance exp from father'; if inherith=1 & hq30_1b=1 then inhfrmmh=1; else if inherith=1 & hq30_1b ne 1 then inhfrmmh=0; else inhfrmmh=.; label inhfrmmh='Husb: inheritance exp from mother'; if inherith=1 & hq30_1c=1 then inhfrmph=1; else if inherith=1 & hq30_1c ne 1 then inhfrmph=0; else inhfrmph=.; label inhfrmph='Husb: inheritance exp from parent'; if inherith=1 & hq30_1d=1 then inhfrmoh=1; else if inherith=1 & hq30_1d ne 1 then inhfrmoh=0; else inhfrmoh=.; label inhfrmoh='Husb: inheritance exp from other'; if inhfrmfh=1 then inhdfrfh=1;else inhdfrfh=0; label inhdfrfh='Husb: redef of inhfrmfh, .=0'; if inhfrmmh=1 then inhdfrmh=1;else inhdfrmh=0; label inhdfrmh='Husb: redef of inhfrmmh, .=0'; /* if inhtdfrf=1 | inhtdfrm=1 then inhtdrp=1;else inhtdfrp=0; label inhtdfrp=' inhtdfrf=1 or inhtdfrm=1'; */ if inherith=1 & hq30_2a>0 then linherh=1; else if inherith=1 & hq30_2a=0 then linherh=0; else linherh=.; label linherh='Husb: land will be inherited'; if linherh=1 then linherdh=1; else linherdh=.; label linherdh='Husb: land inherited(.=0)'; if inherith=1 & hq30_2b>0 then pinherh=1; else if inherith=1 & hq30_2b=0 then pinherh=0; else pinherh=.; label pinherh='Husb: other properties to be inherited'; if pinherh=1 then pinherdh=1; else pinherdh=.; label pinherdh='Husb: other properties to be inherited(.=0)'; if inherith=1 & hq30_2c>0 then minherh=1; else if inherith=1 & hq30_2c=0 then minherh=0; else minherh=.; label minherh='Husb: money inherited'; if minherh=1 then minhered=1; else minhered=0; label minhered='money inherited(.=0)'; if inherith=1 & hq30_2d>0 then oinherh=1; else if inherith=1 & hq30_2d=0 then oinherh=0; else oinherh=.; label oinherh='Husb: money inherited'; if oinherh=1 then oinhered=1; else oinhered=0; label oinhered='other inherited(.=0)'; if inherith=1 & hq30_3a>0 then inherbdh=1; else if inherith=1 & hq30_3a=0 then inherbdh=0; else inherbdh=.; label inherbdh='Husb: passed before dead'; if inherith=1 & hq30_3b>0 then inheradh=1; else if inherith=1 & hq30_3b=0 then inheradh=0; else inheradh=.; label inheradh='Husb:passed before dead'; if inherith=1 & hq30_4=1 then inmdiveh=1; else if inherith=1 & hq30_4 ne 1 then inmdiveh=0; else inmdiveh=.; label inmdiveh='Husb: equally divided'; if inherith=1 & hq30_4=2 then inmrecmh=1; else if inherith=1 & hq30_4 ne 2 then inmrecmh=0; else inmrecmh=.; label inmrecmh='Husb: received larger share'; if inherith=1 & hq30_4=3 then inmreclh=1; else if inherith=1 & hq30_4 ne 3 then inmreclh=0; else inmreclh=.; label inmreclh='Husb: received smaller share'; /** LABEL ??? **/ if inherith=1 & hq30_4a=1 then inmobhlh=1; else if inherith=1 & hq30_4a ne 1 then inmobhlh=0; else inmobhlh=.; label inmobhlh = 'needs label'; if inherith=1 & hq30_4a=2 then inmobldh=1; else if inherith=1 & hq30_4a ne 2 then inmobldh=0; else inmobldh=.; label inmobldh = 'needs label'; if inherith=1 & hq30_4a=3 then inmobynh=1; else if inherith=1 & hq30_4a ne 3 then inmobynh=0; else inmobynh=.; label inmobynh = 'needs lablel'; if inherith=1 & hq30_4a=4 then inmobosh=1; else if inherith=1 & hq30_4a ne 4 then inmobosh=0; else inmobosh=.; label inmobosh = 'needs label'; if inherith=1 & hq30_4a=5 then inmoboch=1; else if inherith=1 & hq30_4a ne 5 then inmoboch=0; else inmoboch=.; label inmoboch = 'needs label'; if inherith=1 & hq30_4a=6 then inmobldh=1; else if inherith=1 & hq30_4a ne 6 then inmobldh=0; else inmobldh=.; label inmobldh = 'needs label'; if inherith=1 & hq30_4a=7 then inmoblfh=1; else if inherith=1 & hq30_4a ne 7 then inmoblfh=0; else inmoblfh=.; label inmoblfh = 'needs label'; if inherith=1 & hq30_4a=8 then inmbswoh=1; else if inherith=1 & hq30_4a ne 8 then inmbswoh=0; else inmbswoh=.; label inmbswoh = 'needs label'; /* Question 31 Page 16 */ if hq31=1 then giveinhh=1; else giveinhh=0; label giveinhh='Husb: expect to give inheritace'; if giveinhh=1 & hq31_1=1 then givhinth=1; else if giveinhh=1 & hq31_1 ne 1 then givhinth=0; else giveinth=.; label givhinth='Husb: expect to give to hus. first'; if giveinhh=1 & hq31_1=2 then givhintc=1; else if giveinhh=1 & hq31_1 ne 2 then givhintc=0; else givhintc=.; label givhintc='Husb: expect to give to chld first'; if hq31_2=1 | hq31_2=3 then makewilh=1;else makewilh=0; label makewilh='Husb:made/will make a will'; /* FAMILY / KIN NETWORK */ /* Questions 32,33,34 Page 17 */ if hq33b=1 then exlivwsh=1;else exlivwsh=0; label exlivwsh='expect to live with son'; if hq33c=1 then exlvwslh=1;else exlvwslh=0; label exlvwslh='expect to live with lson'; if hq33d=1 then exlivwdh=1;else exlivwdh=0; label exlivwdh='Husb: expect to live with daug'; if hq33e=1 then exlvwdlh=1;else exlvwdlh=0; label exlvwdlh='Husb: expect to live with ldaug'; if hq33f=1 then exlvworh=1;else exlvworh=0; label exlvworh='Husb: expect to live with oth. rel.'; if hq33g=1 then exlivoth=1;else exlivoth=0; label exlivoth='Husb: expect to live with other'; /* something is missing here label exlival='expect to live alone'; */ if hq34=1 then otrelinv=1;else otrelinv=0; label otrelinv=' Others rel. in villege'; if hq34=1 & hq34_1=1 then otrlchph=1;else otrlchph=0; label otrlchph='Husb: Oth rel. in vill. who could help'; /* SAVINGS AND DEBT */ /* Questions 36 Page 18 */ if hq36=1 | hq36=2 then savimph=1;else savimph=0; label savimph='Husb: savings are important'; if savimph=1 & hq36_1=. then savfchh=1; else if savimph=1 & hq36_1 ne . then savfchh=0; else savfchh=0; label savfchh ='Husb: savings for chld'; if savimph=1 & hq36_1=1 then savfsesh=1; else if savimph=1 & hq36_1 ne 1 then savfsesh=0; else savfsesh=0; label savfsesh='Husb:savings for ses.'; if savimph=1 & (hq36_1=2 | hq36_1=3) then savfsibh=1; else if savimph=1 & hq36_1 ne 2 & hq36_1 ne 3 then savfsibh=0; else savfsibh=0; label savfsibh='Husb: savings for sis.and bros.'; if savimph=1 & hq36_2=1 then savfedch=1; else if savimph=1 & hq36_2 ne 1 then savfedch=0; else savfedch=0; label savfedch='Husb: savings for educ'; if savimph=1 & hq36_3=1 then svfoldah=1; else if savimph=1 & hq36_3 ne 1 then svfoldah=0; else svfoldah=0; label svfoldah='Husb: savings for old age'; /* Question 37 Page 19 */ if hq37 >=3 then dregsave=0; else if hq37=1 then dregsave=1; else if hq37=2 then dregsave=0.5;else dregsave=0; label dregsave='index for save money regularly'; if hq37=1 then regsave=1;else regsave=0; label regsave='save money regularly';