**************************************************** *SYNTAX TO CREATE FRANCE 1974-75 WORLD 5.5.2 * * * *adapted by Dr. Kimberly Fisher with contributions * *from Fernando De Maio and Killian Mullen from the * *original MTUS files created by Professor Jonathan * *Gershuny and Sally Jones * *Institute for Social and Economic Research * *University of Essex, Wivenhoe Park, Colchester UK * *15 October 2005 * ****************************************************. get file='Y:\all\France\1974\fran74mini.sav'. compute country = 3. compute period = 2. compute survey = 1974. compute swave=1. compute msamp=0. *test identifiers. sort cases by nmen. compute test=0. if $casenum>1 and nmen=lag(nmen) test=1. freq test. *values of nmen used up to 15 times. sort cases by rp nmen. compute test=0. if $casenum>1 and rp=lag(rp) and nmen=lag(nmen) test=1. freq test. *this is a one diarist per household study. Two variables *serve as identifiers, region and what is called household *but is really the diarist. compute hldid =0. compute persid =rp. compute id = nmen. freq day. recode day (1=2) (2=3) (3=4) (4=5) (5=6) (6=7) (7=1). *******started to here - need to check if possible to get a more detailed original *file from the ascii with more variables - such a file must exist somewhere!. compute month=-5. compute year=-5. compute diary = 1. compute sex=-5. compute age2=-5. compute agegr5y=-5. compute famstat=-5. compute cphome=-5. compute hhtype=-5. compute singpar=-5. compute hhldsize=-5. compute nchild=-5. compute agekid=-5. compute relrefp=-5. compute civstat=-5. compute cohab=-5. compute empstat3=-5. compute emp=-5. compute unemp=-5. compute student=-5. compute retired=-5. compute empsp=-5. compute workhrs=-5. compute incorig=-5. compute income=-5. compute empinclm=-5. compute educa=-5. compute edtry=-5. compute disab=-5. compute urban=-5. compute agegr5y=-5. compute famstat=-5. compute cphome=-5. vector AV(41). compute opopwt=0. compute odaywt=0. compute ocombwt=0. compute popwt2=0. compute daywt2=0. compute propwt=0. apply dictionary from 'y:\all\mtus\mtusw552schema.sav'. execute. **************************. *Time use variables. **************************. compute tottime=sum(time1 to time194). frequencies var=tottime /format=notable/hbar/stat=min max median SELECT IF RANGE(TOTTIME,1435,1445) frequencies var=tottime /format=notable/hbar/stat=min max median compute AV1=sum(time1,time3,time4,time5,time11) compute AV2=sum(time2,time7) compute AV3=sum(time6,time8,time9) compute AV4=sum(time87,time89,time90,time92 to time94) compute AV5=sum(time10, time12 to time18,time95 to time101) compute AV6=sum(time19,time20) compute AV7=sum(time21 to time24,time26,time32) compute AV8=sum(time27,time29,time30,time31,time78) compute AV9=sum(time28) compute AV10=sum(time49 to time54) compute AV11=sum(time33 to time41,time58,time59) compute AV12=sum(time42 to time48,time60 to time66,time80 to time86) compute AV13=sum(time76) compute AV14=sum(time55 to time57,time77,time79) compute AV15=sum(time67,time68,time70,time71,time72) compute AV16=sum(time73,time74,time75) compute AV17=sum(time112 to time118,time135 to time141, time150 to time156,time188 to time194) compute AV18=sum(time120,time123,time126,time145,time147) compute AV19=sum(time142,time143,time144,time149) compute AV20=sum(time119) compute AV21=sum(time146,time148) compute AV22=sum(time102,time103) compute AV23=sum(time104 to time111) compute AV24=sum(time121,time124,time125,time131) compute AV25=sum(time133,time134) compute AV26=sum(time122) compute AV27=$sysmis compute AV28=sum(time69,time132) compute AV29=sum(time127,time128) compute AV30=sum(time172) compute AV31=sum(time171) compute AV32=sum(time173) compute AV33=sum(time88,time91) compute AV34=sum(time157 to time163) compute AV35=sum(time164 to time170) compute AV36=sum(time187) compute AV37=sum(time184,time185) compute AV38=sum(time129,time130,time181) compute AV39=sum(time25,time174) compute AV40=sum(time175 to time179,time182,time183,time186) compute oddbit=time180 compute allAV=sum(AV1 to AV40, oddbit) frequencies var=allAV ******************************. *demographics. ******************************. compute SEX = sex. execute. compute DAY = day. recode day (1=2) (2=3) (3=4) (4=5) (5=6) (6=7) (7=1). execute. compute CIVSTAT = civstat. recode civstat (2=1) (1=2) (3=2) (4=2). execute. compute HHLDSIZE = n0per. execute. compute INCORIG = hhinc. var lab INCORIG Original household income (non-harmonised). val lab INCORIG 1 '<3000 FR' 2 '3000 - 6000 FR' 3 '6000 - 10000 FR' 4 '10000 - 15000 FR' 5 '15000 - 20000 FR' 6 '20000 - 30000 FR' 7 '30000 - 50000 FR' 8 '50000 - 100000 FR' 9 '100,000 FR PLUS' 10 Dont Know. compute WORKHRS = workhrs. execute. compute NCHILD = n02a + n04a + n16a. execute. do if ((n02a = 0) & (n04a = 0) & (n16a = 0)). compute AGEKID = 0. else if (n02a > 0|n04a > 0). compute AGEKID = 1. else if n16a > 0. compute AGEKID = 2. end if. execute. do if empstat = 4. compute STUDENT = 1. else. compute STUDENT = 0. execute. do if empstat = 5. compute RETIRED = 1. else. compute RETIRED = 0.