COMMENT SWURCC SPSS PROGRAMS FOR HUNGARY 1966 AND HUNGARY 1977 COMMENT CREATING "EURO" ARCHIVE FILES FOR BOTH & MATCHING/LABELLING THEM. COMMENT COMMENT COMBINED FILES WERE LATER TRANSFERRED TO OX.VAX AND WEIGHTED ETC COMMENT FOR USE IN "WORLD" COMPARATIVE ARCHIVE FILE SZALAI DATA FILES } 05 & 06 } -> SZALHUNG.EUROX } } -> EURO.HUNGARYX HUNGARY 1977 SMALL } -> EUROHUNG.HUNG77X } (25% SAMPLE FILE) } COMMENT HUNGARY 1966 (SZALAI DATA) COMMENT CARD TYPES 00, 01 AND 21 INDICATE A 'MODULE CARD', COMMENT TYPES 02-20, AND 22-40, ARE RESERVED FOR ACTIVITY CARDS. COMMENT Hungarian data is stored in files coded 05 and 06. FILE HANDLE SZALDATA /NAME="SZALTEMP" COMMENT JOB TO CHECK HOW MANY PEOPLE THERE ARE IN THE FILE(S) DATA LIST FILE=SZALDATA NOTABLE / TESTCNO 1-4 CARDTYP 79-80 SURVEY 83-84 FILE LABEL "EDITED HUNGARIAN DATA FROM SZALAI-MNAT SURVEYS" COMPUTE ID=SURVEY * 10000 + TESTCNO CROSSTABS SURVEY BY CARDTYP RECODE CARDTYP (0,1,21=1) (2 THRU 20=2) (22 THRU 40=2) (ELSE=9) SORT CASES BY ID AGGREGATE OUTFILE=* /BREAK=ID /MODULE=PIN(CARDTYP,1,1) / ACTIVITY=PIN(CARDTYP,2,2) / OTHER=PIN(CARDTYP,9,9) /HOWMANY=NU(TESTCNO) COMPUTE MODULE=RND(MODULE*HOWMANY)/100 COMPUTE ACTIVITY=RND(ACTIVITY*HOWMANY)/100 COMPUTE OTHER=RND(OTHER*HOWMANY)/100 VARIABLE LABELS MODULE 'HOW MANY MODULES' / ACTIVITY 'HOW MANY ACTIVITY CARDS' / OTHER 'N OF OTHER CARDS - WILD TYPED' FORMATS MODULE ACTIVITY (F3) TABLES FORMAT=LIGHT / TABLE=MODULE BY ACTIVITY FREQUENCIES VAR=OTHER TEMPORARY SELECT IF (MODULE EQ 0) /* No module cards but case has activities LIST /CASES 20 TEMPORARY SELECT IF (ACTIVITY EQ 0) /* A module card but no activities LIST /CASES 20 COMMENT SETUP TO READ THE DATA FROM THE 1965/6 MULTINATIONAL PROJECT TAPE, COMMENT WORKING ON EDITED VERSIONS OF THE DATA FILES. COMMENT PROJECT FILE CONSISTS OF 'MODULE CARDS' PLUS ACTIVITY CARDS COMMENT CARD TYPES DEFINED ON COLUMNS 79-80. COMMENT TYPES 00, 01 AND 21 INDICATE A 'MODULE CARD' COMMENT TYPES 02-20, AND 22-40, ARE RESERVED FOR ACTIVITY CARDS. FILE HANDLE SZALDATA /NAME="SZALTEMP" COMMENT SZALTEMP NOW HOLDS HUNGARIAN DATA (FRESH & FOUNDED) INPUT PROGRAM VECTOR #DUR(6) / #PRIME(6) / #SEC(6) / #WHOWIT(6) / #WHERE(6) NUMERIC CM1 (F4) / CM5 (F2) / CM7 TO CM45 (F1) / SURVEY (F2) VECTOR MAIN(41) /* 40-cat. main activity aggregates. NUMERIC DURSUM MAINSUM (F4) / LASTDUR (F3) / #TESTQNO (F4) LEAVE MAIN1 TO MAIN41 DURSUM /* Note automatically initialised 0. DATA LIST FILE=SZALDATA / #TESTQNO 1-4 #CTYPE 79-80 /* Get hold of a card, decide which type it is, act accordingly. DO IF (RANGE(#CTYPE,2,20,22,40) AND #TESTQNO NE CM1) /* misplaced activities .COMPUTE MAINSUM=SUM(MAIN1 TO MAIN41) .END CASE .PRINT /'TROUBLE - ACTIVITY CARDS WITHOUT MATCHING MODULE CARD: ' #TESTQNO .DO REPEAT R=CM1 TO CM45 MAIN1 TO MAIN41 DURSUM MAINSUM SURVEY .COMPUTE R=0 /* Reinitialise everything */ .END REPEAT END IF DO IF ANY(#CTYPE,00,01,21) /* INPUT FOR MODULE (DEMOGRAPHIC DATA) CARDS */ /* Reading new module card: first write out 'old' data as a case */ .COMPUTE MAINSUM=SUM(MAIN1 TO MAIN41) .END CASE .DO REPEAT R=CM1 TO CM45 MAIN1 TO MAIN41 DURSUM MAINSUM SURVEY .COMPUTE R=0 /* reinitialise everything! normal endcase routine */ .END REPEAT /* Then read card again, this time taking in the fresh data .REREAD .DATA LIST NOTABLE / CM1 1-4 CM5 5-6 CM7 TO CM45 7-45 SURVEY 83-84 .LEAVE CM1 TO CM45 SURVEY /* To make the demographic info. available after activities summed.*/ ELSE IF RANGE(#CTYPE,2,20,22,40) /* ACTIVITY RECORD MATERIAL: AGGREGATE DURATIONS INTO NEW VARS. */ /* NB. ACTIVITY KEYS RUN FROM 01.00 TO 24.00, DURATION ONLY, IN MINS. */ .REREAD .DATA LIST NOTABLE / #DUR1 7-9 #PRIME1 10-11 #SEC1 13-14 #WHOWIT1 16-17 #WHERE1 18 #DUR2 19-21 #PRIME2 22-23 #SEC2 25-26 #WHOWIT2 28-29 #WHERE2 30 #DUR3 31-33 #PRIME3 34-35 #SEC3 37-38 #WHOWIT3 40-41 #WHERE3 42 #DUR4 43-45 #PRIME4 46-47 #SEC4 49-50 #WHOWIT4 52-53 #WHERE4 54 #DUR5 55-57 #PRIME5 58-59 #SEC5 61-62 #WHOWIT5 64-65 #WHERE5 66 #DUR6 67-69 #PRIME6 70-71 #SEC6 73-74 #WHOWIT6 76-77 #WHERE6 78 .LOOP #K=1 TO 6 .COMPUTE #TOTDUR=DURSUM + #DUR(#K) .IF (#TOTDUR GT 1440) #DUR(#K)=#DUR(#K) - (#TOTDUR-1440) .COMPUTE DURSUM=DURSUM + #DUR(#K) .COMPUTE LASTDUR=#DUR(#K) .IF ANY(#PRIME(#K),0,2,3,4,6,7,8) MAIN1=MAIN1 + #DUR(#K) .IF ANY(#PRIME(#K),1) MAIN2=MAIN2 + #DUR(#K) .IF ANY(#PRIME(#K),5) MAIN3=MAIN3 + #DUR(#K) .IF ANY(#PRIME(#K),50,51,52,53,56,57,58) MAIN4=MAIN4 + #DUR(#K) .IF ANY(#PRIME(#K),9,59) MAIN5=MAIN5 + #DUR(#K) .IF ANY(#PRIME(#K),10,11) MAIN6=MAIN6 + #DUR(#K) .IF ANY(#PRIME(#K),12,14) MAIN7=MAIN7 + #DUR(#K) .IF ANY(#PRIME(#K),13,15,16,18,19,42) MAIN8=MAIN8 + #DUR(#K) .IF ANY(#PRIME(#K),17) MAIN9=MAIN9 + #DUR(#K) .IF ANY(#PRIME(#K),30,31,34,35,36,37) MAIN10=MAIN10 + #DUR(#K) .IF ANY(#PRIME(#K),20,21,22,23,24,25,26,27,28) MAIN11=MAIN11 + #DUR(#K) .IF ANY(#PRIME(#K),29,39,49) MAIN12=MAIN12 + #DUR(#K) .IF ANY(#PRIME(#K),40,41) MAIN13=MAIN13 + #DUR(#K) .IF ANY(#PRIME(#K),32,33) MAIN14=MAIN14 + #DUR(#K) .IF ANY(#PRIME(#K),43) MAIN15=MAIN15 + #DUR(#K) .IF ANY(#PRIME(#K),45,46,47,48) MAIN16=MAIN16 + #DUR(#K) /* Sleep .IF ANY(#PRIME(#K),69,79,89,99) MAIN17=MAIN17 + #DUR(#K) .IF ANY(#PRIME(#K),38,74,81) MAIN18=MAIN18 + #DUR(#K) .IF ANY(#PRIME(#K),80) MAIN19=MAIN19 + #DUR(#K) .IF ANY(#PRIME(#K),70) MAIN20=MAIN20 + #DUR(#K) .IF ANY(#PRIME(#K),82) MAIN21=MAIN21 + #DUR(#K) .IF ANY(#PRIME(#K),65) MAIN22=MAIN22 + #DUR(#K) .IF ANY(#PRIME(#K),60,61,62,63,64,66,67,68) MAIN23=MAIN23 + #DUR(#K) .IF ANY(#PRIME(#K),71,72,73) MAIN24=MAIN24 + #DUR(#K) .IF ANY(#PRIME(#K),76,78,86) MAIN25=MAIN25 + #DUR(#K) /* Parties etc. * Note will also add on later time spent with friends outside both homes. .IF ANY(#PRIME(#K),87) MAIN26=MAIN26 + #DUR(#K) .IF ANY(#PRIME(#K),77) MAIN27=MAIN27 + #DUR(#K) /* nothing clear for pubs! .IF ANY(#PRIME(#K),44) MAIN28=MAIN28 + #DUR(#K) .IF (#PRIME(#K) EQ 75 AND #WHERE(#K) EQ 3) MAIN29=MAIN29 + #DUR(#K) /* with friends in someone else's dwelling .IF ANY(#PRIME(#K),90) MAIN30=MAIN30 + #DUR(#K) .IF ANY(#PRIME(#K),91) MAIN31=MAIN31 + #DUR(#K) .IF ANY(#PRIME(#K),92) MAIN32=MAIN32 + #DUR(#K) .IF ANY(#PRIME(#K),54,55) MAIN33=MAIN33 + #DUR(#K) .IF ANY(#PRIME(#K),93) MAIN34=MAIN34 + #DUR(#K) .IF ANY(#PRIME(#K),94,95) MAIN35=MAIN35 + #DUR(#K) .IF ANY(#PRIME(#K),98) MAIN36=MAIN36 + #DUR(#K) /* Relaxing .IF ANY(#PRIME(#K),96) MAIN37=MAIN37 + #DUR(#K) .IF (#PRIME(#K) EQ 75 AND ANY(#WHERE(#K),0,2)) MAIN38=MAIN38 + #DUR(#K) .IF ANY(#PRIME(#K),84) MAIN39=MAIN39 + #DUR(#K) .IF ANY(#PRIME(#K),83,85,88,97) MAIN40=MAIN40 + #DUR(#K) .IF (#PRIME(#K) EQ 75 AND NOT(ANY(#WHERE(#K),0,2,3))) MAIN41=MAIN41 + #DUR(#K) /* socialising with friends in neither groups' home - add to MAIN25) */ .END LOOP IF (DURSUM GT 1439) /* Diary day fully accounted for. END IF END INPUT PROGRAM SELECT IF (CM1 GT 0) /* Rule out phantoms CONDESCRIPTIVE CM1 LASTDUR STATISTICS 10,1,11 FREQUENCIES VAR=DURSUM MAINSUM /FORMAT=NOTABLE/STATISTICS=ALL/HBAR COMPUTE MAIN25=SUM(MAIN25,MAIN41) /* Adding in "with friends in neither's home". */ COMPUTE MAIN41=0 TABLES FORMAT=LIGHT / OBS=MAIN1 MAIN6 MAIN11 MAIN25 MAIN38 /TABLE=MAIN1+MAIN6+MAIN11+MAIN25+MAIN38 BY CM7 /* Split by sex */ TEMPORARY SELECT IF (DURSUM NE MAINSUM) LIST VAR=SURVEY CM1 DURSUM MAINSUM / CASES 25 TEMPORARY SELECT IF (MAINSUM LE 1439) LIST VAR=SURVEY CM1 CM5 CM7 DURSUM MAINSUM / CASES 25 VARIABLE LABELS CM1 'QNO: FOUR DIGITS' CM5 'WITHIN-COUNTRY GROUPING' CM7 'GENDER' CM8 'AGEGROUP' CM9 'OCCUPATION TYPE' CM10 'OCCUPATIONAL SKILL' CM11 'BRANCH OF OCCUPATION' CM12 'ECUCATIONAL LEVEL' CM13 'TRAINING COURSES' CM14 'CIVIC STATUS' CM15 'POS. IN HOUSEHOLD' CM16 'POS. OF HEAD OF HH' CM17 'OCC SKILL HEAD OF HH' CM18 'BRANCH OF HoHH' CM19 'TOTAL NO IN HH' CM20 'NO CHILDREN IN HH' CM21 'NO IN HH WORKING' CM22 'HELP IN HOUSEHOLD' CM23 'TYPE OF DWELLING' CM24 'PRIVATE GARDEN' CM25 'ECOLOGY OF DWELLING' CM26 'DISTANCE TO CITY CENTRE' CM27 'HH AMENITIES' CM28 'TELEPHONE' CM29 'RADIO, TELEVISION' CM30 'BOOKS IN HOUSEHOLD' CM31 'WATCHES, CLOCKS' CM32 'RESP PERSONAL BICYCLE' CM33 'RESP MOTORCYCLE' CM34 'RESP OR HH CAR' CM35 'DISTANCE TO WORK' CM36 'TRANSPORT TO WORK' CM37 'WORKING HOURS, SHIFTS' CM38 'HOURS PAIDWORK LAST WEEK' CM39 'HOURS PAIDWORK PER DAY' CM40 'INTERVIEW DAY OF WEEK' CM41 'CHARACTERISTICS INT. DAY' CM42 'PAIDWORK INT. DAY' CM43 'POSITION INT. DAY' CM44 'WEATHER INT. DAY' CM45 'CIRCUMSTANCES INT.DAY' SURVEY 'COUNTRY AND SURVEY CODE' DURSUM 'SUMMED ACT. DURATIONS FOR DAY CASE' MAINSUM 'SUMMED AGGREGATE DURATION "MAIN" CATEGORIES' LASTDUR 'DURATION OF LAST USED PRIME ACTIVITY' VARIABLE LABELS MAIN1 'PAID WORK' MAIN2 'PAIDWORK AT HOME' MAIN3 'SECOND JOB' MAIN4 'SCHOOL/CLASSES' MAIN5 'TRAVEL TO/FROM WORK' MAIN6 'COOKING WASHUP' MAIN7 'HOUSEWORK' MAIN8 'ODDJOBS' MAIN9 'GARDENING, PETS' MAIN10 'SHOPPING' MAIN11 'CHILD CARE' MAIN12 'DOMESTIC SHOPPING' MAIN13 'DRESSING/TOILET' MAIN14 'PERSONAL SERVICES' MAIN15 'MEALS, SNACKS' MAIN16 'SLEEP' MAIN17 'LEISURE TRAVEL' MAIN18 'EXCURSIONS' MAIN19 'ACTIVE SPORT' MAIN20 'PASSIVE SPORT' MAIN21 'WALKS' MAIN22 'RELIGIOUS ACTIVITIES' MAIN23 'CIVIC DUTIES' MAIN24 'CINEMA, THEATRE' MAIN25 'DANCES, PARTIES' MAIN26 'SOCIAL CLUB' MAIN27 'PUB' MAIN28 'RESTAURANT' MAIN29 'VISITING FRIENDS' MAIN30 'LISTENING TO RADIO' MAIN31 'TELEVISION, VIDEO' MAIN32 'LISTENING TO TAPES ETC' MAIN33 'STUDY' MAIN34 'READING BOOKS' MAIN35 'READING PAPERS, MAGAZINES' MAIN36 'RELAXING' MAIN37 'CONVERSATION' MAIN38 'ENTERTAINING FRIENDS' MAIN39 'KNITTING SEWING ETC' MAIN40 'OTHER HOBBIES AND PASTIMES' VALUE LABELS SURVEY 1 'BULGARIA, FOUNDED' 2 'BULGARIA, FRESH' 3 'CZECH, FOUNDED' 5 'HUNGARY, FOUNDED' 6 ' HUNGARY, FRESH' 7 'MARIBOR,YUG, FOUNDED' 8 'MARIBOR,YUG, FRESH' 9 'KRAG, YUG, FOUNDED' 10 'KRAG, YUG, FRESH' 11 'HUNGARY, FOUNDED' 12 'HUNGARY, FRESH' 13 'FRANCE, FOUNDED' 14 'FRANCE, FRESH' 15 'W.GER.NAT, FOUNDED' 17 'W.GER.OSN, FOUNDED' 18 'W.GER.OSN, FRESH' 19 'USA NATIONAL FOUNDED' 21 'USA JACKSON FOUNDED' 23 'POLAND, FOUNDED' 24 'POLAND, FRESH' 25 'PERU, FOUNDED' 27 'EAST GER, FOUNDED' /* Note SURVEY gets recoded in later job into year when survey was taken */ VALUE LABELS CM7 0 'MALE' 1 'FEMALE' /CM8 0 'AGED UNDER 20 ' 1 '20-24' 2 '25-29' 3 '39-39' 4 '40-49' 5 '50-54' 6 '55-59' 7 '60-64' 8 '65 OR OVER' 9 'NO ANSWER' /CM9 0 'EMP OUTSIDE HOME' 1 'EMP AT HOME' 2 'HOUSEWIFE' 3 'NONEMP - INVALID' 4 'NONEMP - RETIRED' 5 'STUDENT' 6 'UNEMPLOYED' 7 'OTHERS' 8 'FREE CODE' 9 'NO ANSWER' /CM12 0 'ILLITERATE' 1 'PRIMARY INCOMPLETE' 2 'PRIMARY' 3 'SEC. NOT COMPLETE' 4 'SEC GENERAL COMP' 5 'SECONDARY TECH' 6 'HIGHER NOT COMPLETE' 7 'HIGHER COMPLETE' 8 'OTHERS' 9 'NO ANSWER' /CM14 0 'MARRIED' 1 'SINGLE' 2 'WIDOWED' 3 'DIVORCED, SEPARATED' 9 'NO ANSWER' /CM15 0 'HEAD OF HOUSEHOLD' 1 'SPOUSE OF HOH' 2 'DESCENDENT HOH' 3 'ASCENDENT HOH' 4 'OTHER RELATIVE HOH' 5 'SUBTENANT' 6 'SERVANT' 7 'OTHER NOT RELATED' 8 'NOT TO BE USED' 9 'NO ANSWER' /CM19 0 'RESP ONLY IN HH' 1 '2 PEOPLE IN HH' 2 '3 PEOPLE' 3 '4 PEOPLE' 4 '5 PEOPLE' 5 '6 PEOPLE' 6 '7 PEOPLE' 7 '8 PEOPLE' 8 '9 OR MORE PEOPLE' 9 'NO ANSWER' /CM20 0 'NO CHILDREN' 1 '1 CHILD < 4' 2 '1 CHILD 4 OR MORE' 3 '2-3 KIDS 4 OR MORE' 4 '2-3 KIDS INC 1 <4' 5 '4-5 KIDS 4 OR MORE' 6 '4-5 KIDS INC 1 <4' 7 '6+ KIDS, 4 OR MORE' 8 '6+ KIDS, INC 1 < 4' 9 'NO ANSWER' /CM38 0 '1-25 HOURS' 1 '26-35' 2 '36-38' 3 '39-41' 4 '42-44' 5 '45-47' 6 '48-50' 7 '51-55' 8 '55 HOURS PLUS' 9 'NO ANSWER' /CM40 0 'MONDAY' 1 'TUESDAY' 2 'WEDNESDAY' 3 'THURSDAY' 4 'FRIDAY' 5 'SATURDAY' 6 'SUNDAY' 9 'NO ANSWER' 7 'NOT USED' 8 'NOT USED' TABLES FORMAT=LIGHT / TABLE=SURVEY BY CM5 SELECT IF RANGE(MAINSUM,1435,1445) TABLES FORMAT=LIGHT / TABLE=MAINSUM BY CM7 /* total min per day by sex. FILE HANDLE SZOUT /NAME="SZHUNGX" FILE LABEL "AGGREGATED POLISH DATA FROM SZALAI-MNAT SURVEYS" SAVE OUTFILE=SZOUT /DROP = LASTDUR, MAIN41 /MAP SORT CASES BY CM1 AGGREGATE OUTFILE=* /BREAK=CM1 /COUNT=NU(CM1) FREQUENCIES VAR=COUNT FILE HANDLE SZALIN /NAME="SZHUNGX" GET FILE = SZALIN /RENAME=(MAIN1 TO MAIN40=AV1 TO AV40) COMPUTE QNO=SURVEY*10000 + CM1 VARIABLE LABEL QNO "UNIQUE CASE IDENTIFIER" RECODE SURVEY (19,21=7) (15,16,17,18=9) (23,24=10) (5,6=8) (11,12=11) (1,2=12) (3=13) (27=14) (25=15) (8,9,10=16) INTO COUNTRY FORMATS COUNTRY (F1.0) VALUE LABELS COUNTRY 3 'FRANCE' 1 'HALIFAX(CANADA '71)' 8 'HUNGARY' 7 'USA' 9 'WEST GERMANY' 10 'POLAND' 11 'HUNG' 12 'BULGARIA' 13 'CZECH' 14 'EGERMANY DDR' 15 'PERU' 16 'YUGOSLAVIA' TABLES FORMAT=LIGHT / FORMAT=LIGHT / TABLE=COUNTRY BY SURVEY RECODE CM7 (0=1) (1=2) INTO SEX VALUE LABELS SEX 1 'MALE' 2 'FEMALE' RECODE CM20 (0=0) (1,4,6,8=1) (2,3,5,7=2) INTO YCHILD VARIABLE LABEL YCHILD 'AGE OF YOUNGEST CHILD' VALUE LABELS YCHILD 0 'NONE' 1 'LESS THAN 4' 2 '4 - 18' RECODE CM9 (0,1=2) (6=3) (ELSE=4) INTO JOBCAT IF ( (JOBCAT EQ 2 OR CM9 EQ 2 OR CM9 EQ 7) AND CM38 GE 1 AND CM38 LE 8) JOBCAT=1 VALUE LABELS JOBCAT 1 'FULLTIME' 2 'PARTTIME' 3 'UNEMP.' 4 'NONEMP.' COMPUTE TTIME=SUM(AV1 TO AV40) CROSSTABS TTIME BY COUNTRY SELECT IF (RANGE(TTIME,1435,1445)) COMMENT ** sort out the survey variables ** IF RANGE(COUNTRY, 7,7, 9,16) SURVEY=65 /* USA, WGermany, Poland /* Belgium, Bulgaria, Czech /* DDR, Peru, Yugoslavia. IF (COUNTRY EQ 8) SURVEY=65 /* Hungary COMMENT ** set up day variable ** RECODE CM40 (6=1) (0=2) (1=3) (2=4) (3=5) (4=6) (5=7) INTO DAY COMMENT ** work out EMPSTAT ** RECODE JOBCAT (1=1) (2=2) (3,4=3) INTO EMPSTAT VALUE LABELS EMPSTAT 1 'FTE' 2 'PTE' 3 'NE' -1 'DON''T KNOW' COMMENT ** work out YCHILD and FAMSTAT ** COMPUTE FAMSTAT=YCHILD VALUE LABELS FAMSTAT 0 'NO KIDS' 1 'YOUNG CHILD <5 YRS' 2 'OLDER CHILDREN' COMMENT ** Main activities already aggregated into 40 categories ** COMMENT ** but we may also want to produce the "22 category" recoding ** COMPUTE PAIDETC=SUM(AV1 TO AV5) COMPUTE HWORK=AV7 /* housework COMPUTE COOKING=AV6 COMPUTE EATING=AV15 COMPUTE KIDCARE=AV11 COMPUTE SHOPPING=AV10 COMPUTE DTRAVEL=AV12 COMPUTE OTRAVEL=SUM(AV17,AV18) COMPUTE PERSCARE=SUM(AV13,AV16) COMPUTE EATOUT=AV28 COMPUTE PUBCLUBS=SUM(AV26 TO AV27) COMPUTE SPECTAT=SUM(AV20,AV22 TO AV25) COMPUTE ASPORTS=AV19 COMPUTE WALKING=AV21 COMPUTE VISITS=SUM(AV29,AV38) COMPUTE TVRAD=SUM(AV30 TO AV32) COMPUTE READING=SUM(AV33 TO AV35) COMPUTE CHATSETC=SUM(AV36 TO AV37) COMPUTE ODDJOBS=SUM(AV8 TO AV9) /* NB includes gardening COMPUTE HOBBIES=SUM(AV39 TO AV40) COMPUTE MEDICAL=AV14 COMPUTE EDUC=AV4 COMMENT ** Include the additional variables ** COMPUTE ID=QNO /* ie "respondent ID" COMPUTE AGE1=$SYSMIS RECODE CM8 (0=18) (1=22) (2=27) (3=35) (4=45) (5=52) (6=57) (7=62) (8=70) INTO AGE2 RECODE CM14 (0=1) (1,2,3=2) (ELSE=0) INTO CIVSTAT COMPUTE SZALED=CM12 DO REPEAT R=CANED71 CANED81 FRANED NORED71 NORED81 UKED UKED84 USED CANINC81 DANINC64 DANINC75 NORINC UKINC84 USINC NETHED DANED64 DANED75 HUNGED6 COMPUTE R=$SYSMIS END REPEAT COMMENT ** remember the workhours problem ** RECODE CM38 (0=15) (1=31) (2=37) (3=40) (4=43) (5=46) (6=49) (7=53) (8=60) INTO WORKHRS VARIABLE LABEL WORKHRS "HOURS OF PAID WORK IN LAST WEEK" COMMENT ** and the household type ** COMPUTE HHTYPE=-1 /* defaults to don't know value. IF (CM19 EQ 0) HHTYPE=1 /* NB CM19 no in hh starts from code 0 = 1 person */ IF (CM19 EQ 1 AND CM14 EQ 0 AND CM20 EQ 0) HHTYPE=2 /* ie a 2 person hh, resp is married, no children in hh IF (CM19 GT 1 AND CM14 EQ 0) HHTYPE=3 /* married, 3+ people in hh IF (CM19 GT 0 AND CM14 GT 1) HHTYPE=4 /* not single person hh, not married IF (CM19 EQ 1 AND CM14 EQ 0 AND CM20 GT 0) HHTYPE=4 /* resp is married and hh = 2 people but includes a child - so "other" VALUE LABELS HHTYPE -1 'UNKNOWN' 1 'SINGLE PERSON, LIVING ALONE' 2 ' MARRIED COUPLE, NO OTHERS' 3 'MARRIED COUPLE AND OTHERS' 4 'OTHER' TABLES FORMAT=LIGHT / TABLE= CM19 BY HHTYPE BY COUNTRY COMMENT ** and UNEMP ** RECODE CM9 (6=1) (ELSE=0) INTO UNEMP VALUE LABELS UNEMP 1 'UNEMPLOYED' 0 'OTHER CATEGORY' FORMATS UNEMP (F2) COMMENT ** save file ** SELECT IF ANY(SEX,1,2) AND RANGE(DAY,1,7) /* most important vars SORT CASES BY COUNTRY ID DAY FILE LABEL "EUROPEAN SZALAI-DERIVED FILE (INC. 40-CAT ACTIVITIES)" FILE HANDLE SZEUROX /NAME="SZALHUNGEUROX" SAVE OUTFILE=SZEUROX /KEEP=COUNTRY SURVEY ID DAY SEX AGE1 AGE2 FAMSTAT EMPSTAT CIVSTAT CANED71 CANED81 FRANED NORED71 NORED81 UKED UKED84 USED CANINC81 DANINC64 DANINC75 NORINC UKINC84 USINC PAIDETC TO EDUC NETHED WORKHRS DANED64 DANED75 HUNGED6 HHTYPE SZALED AV1 TO AV40 UNEMP /MAP TABLES FORMAT=LIGHT / FTOTAL=TOTAL / TABLE = COUNTRY > SEX BY DAY + TOTAL CONDESCRIPTIVE COUNTRY SURVEY ID DAY SEX AGE1 AGE2 FAMSTAT EMPSTAT CIVSTAT CANED71 CANED81 FRANED NORED71 NORED81 UKED UKED84 USED CANINC81 DANINC64 DANINC75 NORINC UKINC84 USINC NETHED WORKHRS DANED64 DANED75 HUNGED6 HHTYPE SZALED AV1 TO AV40 UNEMP COMMENT HUNGARY 1977 REVISED (25% SAMPLE) VERSION SET WIDTH=132 /FORMATS=F8 FILE HANDLE HUNG77 /NAME=':BHSL90.HUNGARY.SMALL77X' FILE HANDLE EH77 /NAME='EUROHUNG.HUNG77X' /* 25% file, to include 40-cat acts. GET FILE=HUNG77 COMPUTE SERIAL=$CASENUM /* casenumber from small77x /* but I think the original file must already /* have been sorted, inappropriately COMPUTE GOOD99=SUM(TEVID1 TO TEVID98) BREAKDOWN GOOD99 BY NAPOK /* ie by day SELECT IF RANGE(GOOD99,1430,1450) /* only those cases who originally were "good diarists", discard all the rest SELECT IF RANGE(NAPOK,1,7) AND ANY(NEM,1,2) /* diary day and sex known, at least BREAKDOWN GOOD99 BY NAPOK /* ie by day SAMPLE .25 /* because this survey has so many more cases than the other surveys DISPLAY LABELS /VAR=HAZTSZAM NAPOK TO HAZTIP GYERSZAM TO GYERX2 COMPUTE ID=SERIAL VARIABLE LABELS ID "IDENTIFYING VARIABLE" COMPUTE COUNTRY=8 ADD VALUE LABELS COUNTRY 8 'HUNGARY' COMPUTE SURVEY=77 RECODE NAPOK (7=1) (1=2) (2=3) (3=4) (4=5) (5=6) (6=7) (ELSE=0) INTO DAY VALUE LABELS DAY 1 'SUNDAY' 2 'MON' 3 'TUES' 4 'WED' 5 'THUR' 6 'FRI' 7 'SAT' COMPUTE SEX=NEM VARIABLE LABEL SEX "RESPONDENT'S GENDER" VALUE LABELS SEX 1 'MALE' 2 'FEMALE' COMPUTE AGE1=977-SZULEV /* SZULEV = birthdate, 3 digits. Note that the survey lasted 1976/77 /* so this is only an approximate grouping FREQUENCIES VAR=AGE1 /HBAR / STATISTICS=ALL RECODE AGE1 (1 THRU 10=SYSMIS) (ELSE=COPY) COMPUTE AGE2=AGE1 VARIABLE LABELS AGE1 "CONTINUOUS AGE VARIABLE" / AGE2 "AGE, INCLUDING FUDGED AGES" COMPUTE FAMSTAT=$SYSMIS /* build variable from GYER info - see below VARIABLE LABELS FAMSTAT "FAMILY STATUS" VALUE LABELS FAMSTAT 0 'YNG,NO YNG KIDS' 1 'CHILD UNDER 5' 2 'CHILD UNDER 15' 3 'OLDR,NO YNG KIDS' COMPUTE YKID=99 /* famstat work starts here DO REPEAT R=GYERI2 GYERII2 GYERIII2 GYERIV2 GYERX2 IF (R LT YKID) YKID=R END REPEAT VARIABLE LABELS YKID "AGE OF YOUNGEST CHILD" VALUE LABELS YKID 1 'UNDER 1 YR' 2 '1 - 5 YRS' 3 '6 - 14 YRS' 4 '15 - 18 YRS' 5 '19 - 24 YRS' 6 '25 OR MORE' 9 'UNKNOWN' DISPLAY DICTIONARY /VAR=GYERSZAM RECODE GYERSZAM (1 THRU 4=1) (ELSE=99) VALUE LABELS GYERSZAM 1 'HAS CHILDREN' 99 'NOT CHILDREN' CROSSTABS YKID BY GYERSZAM IF (AGE1 LE 39 AND GYERSZAM NE 9) FAMSTAT=0 /* yng no kids IF (AGE1 GT 39 AND GYERSZAM NE 9) FAMSTAT=3 /* older no kids IF RANGE(YKID,1,3) FAMSTAT=2 /* child under 15 IF ANY(YKID,1,2) FAMSTAT=1 /* child up to 5 CROSSTABS FAMSTAT BY SEX DISPLAY DICTIONARY /VAR=MUNKID1 /* empstat starts here RECODE MUNKID1 (1=1) (2,3=2) (4=3) (MISSING=3) (ELSE=0) INTO EMPSTAT RECODE CSALL (2=1) (1,3,4=2) (ELSE=0) INTO CIVSTAT VARIABLE LABELS EMPSTAT "EMPLOYMENT STATUS" / CIVSTAT "CIVIC STATUS" VALUE LABELS CIVSTAT 1 'MARRIED' 2 'SINGLE, APPROX' / EMPSTAT 1 'FULL TIME' 2 'PART TIME' 3 'OTHER, NON EMP.' 0 'WRONG, D/K' CROSSTABS EMPSTAT CIVSTAT BY SEX DISPLAY DICTIONARY /VAR=LISKV /*COMPUTE HUNGED7=LISKV COMPUTE UNEMP=$SYSMIS /* can't find an official unemployment variable COMPUTE HHTYPE=$SYSMIS /* though of course the untranslated vars might COMPUTE SZALED=$SYSMIS /* hold some useful info for UNEMP and HHTYPE. COMPUTE WORKHRS=$SYSMIS COMPUTE ACT1=SUM(TEVID1,TEVID2) /* main paid job COMPUTE ACT2=$SYSMIS /* paid work at home prob subsumed in ACT3 COMPUTE ACT3=SUM(TEVID3 TO TEVID8) /* second job, supplementary work COMPUTE ACT4=SUM(TEVID50 TO TEVID53) /* schooling, education. COMPUTE ACT5=$SYSMIS COMPUTE ACT6=SUM(TEVID9 TO TEVID11) /* food prep, washing up COMPUTE ACT7=SUM(TEVID12,TEVID15,TEVID21) COMPUTE ACT8=SUM(TEVID13,TEVID14,TEVID16 TO TEVID20,TEVID47,TEVID64) COMPUTE ACT9=$SYSMIS /* gardening, subsumed in supplementary work? See TEVID6. COMPUTE ACT10=SUM(TEVID22,TEVID23,TEVID25,TEVID27,TEVID28) COMPUTE ACT11=SUM(TEVID35 TO TEVID40) COMPUTE ACT12=$SYSMIS COMPUTE ACT13=SUM(TEVID30,TEVID31) COMPUTE ACT14=SUM(TEVID24,TEVID26) COMPUTE ACT15=SUM(TEVID33) COMPUTE ACT16=SUM(TEVID29,TEVID32,TEVID34) COMPUTE ACT17=$SYSMIS COMPUTE ACT18=SUM(TEVID70,TEVID75,TEVID77,TEVID78) COMPUTE ACT19=SUM(TEVID79 TO TEVID83) COMPUTE ACT20=SUM(TEVID74) COMPUTE ACT21=SUM(TEVID76,TEVID84) COMPUTE ACT22=SUM(TEVID48,TEVID93) COMPUTE ACT23=SUM(TEVID46,TEVID49) COMPUTE ACT24=SUM(TEVID69,TEVID71 TO TEVID73) COMPUTE ACT25=SUM(TEVID44) COMPUTE ACT26=$SYSMIS COMPUTE ACT27=SUM(TEVID94) COMPUTE ACT28=$SYSMIS COMPUTE ACT29=$SYSMIS COMPUTE ACT30=SUM(TEVID59) COMPUTE ACT31=SUM(TEVID60) COMPUTE ACT32=SUM(TEVID61) COMPUTE ACT33=SUM(TEVID54,TEVID55) COMPUTE ACT34=SUM(TEVID58) COMPUTE ACT35=SUM(TEVID56,TEVID57) COMPUTE ACT36=SUM(TEVID96,TEVID98) COMPUTE ACT37=SUM(TEVID41,TEVID42) COMPUTE ACT38=$SYSMIS COMPUTE ACT39=SUM(TEVID66) COMPUTE ACT40=SUM(TEVID45,TEVID62,TEVID63,TEVID65,TEVID67,TEVID68) COMPUTE ACT41=SUM(TEVID99) /*unknown activity COMPUTE VISITS=TEVID43 /* not divisible in/outside home. COMPUTE TRAVEL=SUM(TEVID85 TO TEVID92,TEVID95,TEVID97) /* travel by 'how travelled', not 'why?'. COMPUTE GOOD40=SUM(ACT1 TO ACT40,VISITS,TRAVEL) RECODE ACT1 TO GOOD40 (MISSING=0) (ELSE=COPY) TABLES FORMAT=LIGHT/ TABLE=GOOD99 BY GOOD40 COMPUTE PAIDETC=SUM(ACT1 TO ACT5) COMPUTE HWORK=ACT7 /* housework COMPUTE COOKING=ACT6 COMPUTE EATING=ACT15 COMPUTE KIDCARE=ACT11 COMPUTE SHOPPING=ACT10 COMPUTE DTRAVEL=ACT12 COMPUTE OTRAVEL=SUM(TRAVEL,ACT18) /* usual coding: OTRAVEL=SUM(ACT17,ACT18) COMPUTE PERSCARE=SUM(ACT13,ACT16) COMPUTE EATOUT=ACT28 COMPUTE PUBCLUBS=SUM(ACT26 TO ACT27) COMPUTE SPECTAT=SUM(ACT20,ACT22 TO ACT25) COMPUTE ASPORTS=ACT19 COMPUTE WALKING=ACT21 * COMPUTE VISITS=SUM(ACT29,ACT38) COMPUTE TVRAD=SUM(ACT30 TO ACT32) COMPUTE READING=SUM(ACT33 TO ACT35) COMPUTE CHATSETC=SUM(ACT36 TO ACT37) COMPUTE ODDJOBS=SUM(ACT8 TO ACT9) /* NB includes gardening COMPUTE HOBBIES=SUM(ACT39 TO ACT40) COMPUTE MEDICAL=ACT14 COMPUTE EDUC=ACT4 COMPUTE TOTTIME=SUM(PAIDETC TO MEDICAL,VISITS) /* note VISITS is out of order! TABLES FORMAT=LIGHT /TABLE=TOTTIME BY GOOD99 FILE LABEL EURO-ARCHIVE, HUNGARY 76/77 FORMATS COUNTRY SURVEY DAY SEX AGE1 AGE2 FAMSTAT EMPSTAT CIVSTAT (F2) / TOTTIME PAIDETC TO WALKING VISITS TVRAD TO EDUC (F6.1) / HHTYPE SZALED (F2) / WORKHRS (F3) / ACT1 TO ACT40 (F6.1) VARIABLE LABELS TOTTIME "TOTAL DIARY TIME ACCOUNTED FOR" / HHTYPE "HOUSEHOLD TYPE" / WORKHRS "HOURS PAID WORK PER WEEK (WHERE KNOWN)" FORMATS LISKV (F2) /* Educational-level variable FILE LABEL EURO-ARC: HUNGARY 77 (25% SAMPLE) INC. 40-CAT ACTIVITIES SORT CASES BY ID DAY SAVE OUTFILE=EH77 /RENAME=(LISKV=HUNGED7) (ACT1 TO ACT40=AV1 TO AV40) /KEEP=COUNTRY SURVEY ID DAY SEX AGE1 AGE2 FAMSTAT EMPSTAT CIVSTAT HHTYPE WORKHRS UNEMP PAIDETC TO WALKING VISITS TVRAD TO EDUC SZALED HUNGED7 AV1 TO AV40 /MAP GET FILE=EH77 DISPLAY VARIABLES AGGREGATE OUTFILE=* /PRESORTED /BREAK=ID DAY /COUNT=NU FREQUENCIES VAR=COUNT COMMENT MATCHING HUNGARY 77 AND HUNGARY 66 EURO-ARCHIVE FILES /* H7 = HUNGARY 1977 EURO FILE (25% SAMPLE) /* H6 = HUNGARY 1965 EURO FILE GET FILE=H7 /KEEP=AGE2 DISPLAY DICTIONARY RECODE AGE2 (LO THRU 15=1) (16 THRU 85=2) (85 THRU HI=3) INTO AGECHECK FREQUENCIES VAR=AGECHECK GET FILE=H6 /KEEP=COUNTRY SURVEY ID DAY SEX AGE1 AGE2 FAMSTAT EMPSTAT CIVSTAT HHTYPE WORKHRS UNEMP PAIDETC TO EDUC SZALED AV1 TO AV40 COMPUTE HUNGED7=$SYSMIS FORMATS HUNGED7 (F2) SAVE OUTFILE=TEMP /KEEP=COUNTRY TO SZALED HUNGED7 AV1 TO AV40 /MAP ADD FILES FILE=H7 /FILE=TEMP /MAP FILE LABEL EURO-ARCHIVE FILES: HUNGARY '65(100%), '77(25%) DROP DOCUMENTS COMPUTE TOTTIME=SUM(PAIDETC TO MEDICAL) FREQUENCIES VAR=SURVEY CROSSTABS DAY BY SEX BY SURVEY FORMATS COUNTRY SURVEY DAY SEX FAMSTAT HHTYPE EMPSTAT (F2) / WORKHRS (F4) / PAIDETC TO EDUC AV1 TO AV40 TOTTIME (F6.1) MISSING VALUES EMPSTAT (0) / HHTYPE (-1) FORMATS SZALED HUNGED7 (F2) VALUE LABELS SZALED 0 'Illiterate' 1 'Primary, not completed' 2 'Primary' 3 'Secondary, not completed' 4 'Secondary, general, completed' 5 'Seconday technical/vocational' 6 'Higher, not completed' 7 'Higher, completed' 8 'Others' 9 'No answer' MISSING VALUES SZALED (9) VARIABLE LABELS HUNGED7 'HUNGARY 77: HIGHEST SCHOOL ATTAINMENT' VALUE LABELS HUNGED7 0 'DID NOT GO' 1 'CLASS 1-3' 2 'CLASS 4-5' 3 'CLASS 6-7' 4 'CLASS 6-7' 5 'EIGHT' 6 '1-4 SECONDARY' 7 'ERETTSEGI' 8 '1-6 FFOKU EVF.' 9 'UNIVERSITY' 10 'FOISK. VEGBIZ.' 11 'EGYEB VEGBIZ.' 12 'EGYETEMI OKL.' 13 'FOISK. OKL.' 14 'EGYEB OKL' CROSSTABS SZALED HUNGED7 BY SURVEY DO IF MISSING(FAMSTAT) OR (FAMSTAT EQ 0) IF (AGE2 GE 40 OR AGE1 GE 40) FAMSTAT=3 IF (AGE2 LT 40 OR AGE1 LT 40) FAMSTAT=0 END IF ADD VALUE LABELS FAMSTAT 0 'YOUNG NO KIDS' 3 'OLDER NO KIDS' CROSSTABS FAMSTAT BY SURVEY DO REPEAT R=PAIDETC TO EDUC TOTTIME AV1 TO AV40 RECODE R (MISSING=0) (ELSE=COPY) END REPEAT MEANS PAIDETC KIDCARE TOTTIME BY SURVEY VALUE LABELS COUNTRY 1 'CANADA' 2 'DENMARK' 3 'FRANCE' 4 'NETHERLANDS' 5 'NORWAY' 6 'UK' 7 'USA' 8 'HUNGARY' 9 'WEST GERMANY' 10 'POLAND' 11 'BELGIUM' 12 'BULGARIA' 13 'CZECH' 14 'E.GERMANY (DDR)' 15 'PERU' 16 'YUGOSLAVIA' 17 'FINLAND' 18 'ITALY(TURIN)' VARIABLE LABELS SURVEY 'SURVEY YEAR' VARIABLE LABELS ID "PERSON I.D." VALUE LABELS DAY 1 'SUNDAY' 2 'MONDAY' 3 'TUESDAY' 4 'WEDNESDAY' 5 'THURSDAY' 6 'FRIDAY' 7 'SATURDAY' 8 'WEEK-AVERAGE' VARIABLE LABEL SEX "DIARIST'S GENDER" VALUE LABELS SEX 1 'MALE' 2 'FEMALE' VARIABLE LABELS AGE1 "CONTINUOUS AGE VARIABLE" / AGE2 "AGE, INCLUDING FUDGED AGES" VARIABLE LABELS FAMSTAT "FAMILY STATUS" VARIABLE LABELS EMPSTAT "EMPLOYMENT STATUS" / CIVSTAT "CIVIC STATUS" VALUE LABELS CIVSTAT 1 'MARRIED' 2 'SINGLE' / EMPSTAT 1 'FULL TIME' 2 'PART TIME' 3 'OTHER, NON EMP.' VARIABLE LABELS HHTYPE "HOUSEHOLD TYPE" / WORKHRS "HOURS PAID WORK LAST WEEK" / TOTTIME "TOTAL DIARY TIME ACCOUNTED FOR" VALUE LABELS HHTYPE -1 'DON''T KNOW' 1 'SINGLE ALONE' 2 'M.COUPLE ALONE' 3 'M.COUPLE + OTHERS' 4 'OTHER HH TYPES' VARIABLE LABELS UNEMP "FORMALLY UNEMPLOYED" VARIABLE LABELS PAIDETC 'PAID WORK & EDUCATION ETC' HWORK 'ROUTINE HOUSEWORK' COOKING 'FOOD PREPARATION & COOKING' EATING 'MEALS AND SNACKS' KIDCARE 'CHILD CARE' SHOPPING 'SHOPPING (ALL SORTS)' DTRAVEL 'DOMESTIC-RELATED TRAVEL' OTRAVEL 'OTHER NON-WORK TRAVEL' PERSCARE 'PERSONAL CARE ACTIVITIES' EATOUT 'EATING OUT' PUBCLUBS 'AT PUBS, CLUBS' SPECTAT 'SPECTATOR' ASPORTS 'ACTIVE SPORTING ACTIVITY' WALKING 'WALKING' VISITS 'VISITING OR ENTERTAINING FRIENDS' TVRAD 'TELEVISION, RADIO, ETC.' READING 'READING BOOKS, PAPERS OR MAGAZINES' CHATSETC 'TALKING, RELAXING' ODDJOBS 'NON-ROUTINE DOMESTIC WORK' HOBBIES 'OTHER AT-HOME LEISURE' MEDICAL 'MEDICALLY-RELATED PERSONAL CARE' EDUC 'EDUCATION (NOTE INCLUDED IN PAIDETC)' FORMATS COUNTRY SURVEY DAY SEX AGE1 AGE2 FAMSTAT EMPSTAT CIVSTAT (F2) / HHTYPE (F2) / UNEMP (F1) / TOTTIME PAIDETC TO WALKING VISITS TVRAD TO EDUC (F7.2) MISSING VALUES CIVSTAT (0) / EMPSTAT HHTYPE (-1) SORT CASES BY SURVEY ID DAY FILE HANDLE NEW /NAME='EURO.HUNGARYX' SAVE OUTFILE=NEW COMMENT "FIX-UP" JOB IE FORMATS LABELS ETC SET WIDTH=80 FILE HANDLE OLD /NAME='EURO.HUNGARYX' FILE HANDLE NEW /NAME='EURO.NEWHUNGX' FILE HANDLE POR /NAME='EURO.HUNGPOR' GET FILE=OLD COMPUTE TOTTIME=SUM(PAIDETC TO MEDICAL) SELECT IF RANGE(AGE2,16,85) SELECT IF RANGE(SURVEY,60,70) OR (TOTTIME EQ 1440) FREQUENCIES VAR=SURVEY DO IF (SURVEY EQ 77) SAMPLE .25 END IF FILE LABLE EURO-ARCHIVE FILES: HUNGARY '65(100%), '77(25%) FREQUENCIES VAR=SURVEY CROSSTABS DAY BY SEX BY SURVEY FORMATS SEX FAMSTAT HHTYPE EMPSTAT (F2) / WORKHRS TOTTIME (F7.2) MISSING VALUES EMPSTAT (0) / HHTYPE (-1) FORMATS SZALED HUNGED7 (F2) VALUE LABELS SZALED 0 'Illiterate' 1 'Primary, not completed' 2 'Primary' 3 'Secondary, not completed' 4 'Secondary, general, completed' 5 'Seconday technical/vocational' 6 'Higher, not completed' 7 'Higher, completed' 8 'Others' 9 'No answer' MISSING VALUES SZALED (9) VARIABLE LABELS HUNGED7 'HUNGARY 77: HIGHEST SCHOOL ATTAINMENT' VALUE LABELS HUNGED7 0 'DID NOT GO' 1 'CLASS 1-3' 2 'CLASS 4-5' 3 'CLASS 6-7' 4 'CLASS 6-7' 5 'EIGHT' 6 '1-4 SECONDARY' 7 'ERETTSEGI' 8 '1-6 FFOKU EVF.' 9 'UNIVERSITY' 10 'FOISK. VEGBIZ.' 11 'EGYEB VEGBIZ.' 12 'EGYETEMI OKL.' 13 'FOISK. OKL.' 14 'EGYEB OKL' CROSSTABS SZALED HUNGED7 BY SURVEY DO IF MISSING(FAMSTAT) OR (FAMSTAT EQ 0) IF (AGE2 GE 40 OR AGE1 GE 40) FAMSTAT=3 IF (AGE2 LT 40 OR AGE1 LT 40) FAMSTAT=0 END IF ADD VALUE LABELS FAMSTAT 0 'YOUNG NO KIDS' 3 'OLDER NO KIDS' CROSSTABS FAMSTAT BY SURVEY MEANS TOTTIME BY SURVEY DISPLAY VARIABLES SAVE OUTFILE=NEW EXPORT OUTFILE=POR SET WIDTH=100 FILE HANDLE NEW /NAME='EURO.NEWHUNGX' GET FILE=NEW /DROP=PAIDETC TO EDUC FREQUENCIES VAR=ALL /FORMAT=NOTABLE /STAT=MIN MAX /HBAR FINISH