* Encoding: UTF-8. *--------------------------------------------------------------------------------------------------------------------------. * EU-Labour Force Survey - Data Service - German Microdata Lab * This routine converts EU-LFS 1999 AD HOC data formatted in CSV into SAV * Checked for the September 2017 release of the EU-LFS, as provided by Eurostat * The whole routine consists of two files: * Setup_EULFS_1999_ah.sps * Labels_EULFS_1983-2016.sps * Version 1 of the routine, September 2018 * IBM SPSS Statistics 23.0 * The execution of this label-syntax will produce a warning about string variables with different * length. This warning do not affect the functionality of the syntax. * * (c) GESIS - Leibniz Institute for the Social Sciences * German Microdata Lab * Paul Notheisen, Klaus Pforr, Kathrin Stief * http://www.gesis.org/en/gml/ * Contact: gml@gesis.org * This SPSS code is protected under the creative commons licence *--------------------------------------------------------------------------------------------------------------------------. *--- Set Number of Warnings and Errors very high, as label syntax produces errors ---. SET MXERRS=1000000000. SET MXWARNS=1000000000. *--------------------------------------------- Start Definition Macro ---------------------------------------------. DEFINE readmac (). *--------------- CONFIGURATION HERE ---------------. * Specify list of files you want to convert from csv to sav (without file extension, e.g. 'de1999 dk1999 es1999 fi1999'). !LET !filestublist=''. * Specify path where the csv files are stored (e.g. E:\data\EU-LFS\csv\). !LET !csv_data_path=''. * Specify path where the file "Labels_EULFS_1983-2016.sps" is stored. !LET !label_syntax_path=''. * Specify path where you want the sav files to be stored (e.g. E:\data\EU-LFS\sav\). !LET !spss_data_path=''. * Specify name of file that contain all specified countries and years (e.g. finalfile1999.sav). !LET !finalfile=''. *---------------------------------------------------------. *-------------- Loop over all specified files ------------. !DO !filestub !IN (!filestublist). *--- Read Raw Data ---. GET DATA / TYPE=TXT / FILE=!QUOTE(!CONCAT(!csv_data_path,!filestub,'_y.csv')) / DELCASE=LINE / DELIMITERS="," / QUALIFIER='"' / ARRANGEMENT=DELIMITED / FIRSTCASE=2 / IMPORTCASE=ALL / VARIABLES= QHHNUM A8 COEFF COMMA9.0 QUARTER A2 HHNUM A6 REC F5.0 HHSEQNUM F2.0 REFYEAR F4.0 REFWEEK F2.0 INTWEEK F2.0 COUNTRY_ A2 REGION_ A2 DEGURBA F1.0 HHTYPE F1.0 HHINST F1.0 INTWAVE F1.0 INTQUEST F1.0 REM F2.0 YEAR F4.0 HHPRIV F1.0 HHLINK F1.0 HHSPOU F2.0 HHFATH F2.0 HHMOTH F2.0 SEX F1.0 AGE F2.0 MARSTAT F1.0 NATIONAL_ A3 YEARESID_ A6 COUNTRYB_ A3 PROXY F1.0 WSTATOR F1.0 NOWKREAS F2.0 STAPRO F1.0 SIGNISAL F1.0 SUPVISOR F1.0 SIZEFIRM F2.0 COUNTRYW_ A23 REGIONW_ A2 YSTARTWK F4.0 MSTARTWK F2.0 WAYJFOUN F1.0 FTPT F1.0 FTPTREAS F1.0 TEMP F1.0 TEMPREAS F1.0 TEMPDUR F1.0 TEMPAGCY F1.0 SHIFTWK F1.0 EVENWK F1.0 NIGHTWK F1.0 SATWK F1.0 SUNWK F1.0 HWUSUAL F2.0 HWACTUAL F2.0 HWOVERP F2.0 HWOVERPU F2.0 HOURREAS F2.0 WISHMORE F1.0 WAYMORE F1.0 HWWISH F2.0 HOMEWK F1.0 LOOKOJ F1.0 LOOKREAS F1.0 EXIST2J F1.0 STAPRO2J F1.0 HWACTUA2 F2.0 EXISTPR F1.0 YEARPR F4.0 MONTHPR F2.0 LEAVREAS F2.0 STAPROPR F1.0 ISCOPR3D F1.0 SEEKWORK F1.0 SEEKREAS F1.0 SEEKTYPE F1.0 SEEKDUR F1.0 METHODA F1.0 METHODB F1.0 METHODC F1.0 METHODD F1.0 METHODE F1.0 METHODF F1.0 METHODG F1.0 METHODH F1.0 METHODI F1.0 METHODJ F1.0 METHODK F1.0 METHODL F1.0 METHODM F1.0 WANTWORK F1.0 AVAILBLE F1.0 AVAIREAS F1.0 PRESEEK F1.0 NEEDCARE F1.0 REGISTER F1.0 MAINSTAT F1.0 EDUCSTAT F1.0 EDUCLEVL F1.0 EDUCFILD F3.0 COURATT F1.0 COURLEN F3.0 COURPURP F1.0 COURFILD F3.0 COURWORH F1.0 HAT97LEV F2.0 HATFIELD F3.0 HATYEAR F4.0 WSTAT1Y F1.0 STAPRO1Y F1.0 NA111Y1D_ A1 COUNTR1Y_ A2 REGION1Y_ A2 ILOSTAT F1.0 NA111D_ A1 NA11S F1.0 ISCO1D F1.0 NA112J1D_ A2 NA112JS F1.0 NA11PR1D_ A1 NA11PRS F1.0 ISCOPR1D F1.0 DURUNE F1.0 EDUC4WN F1.0 HATLEV1D_ A1 NA111YS F1.0 METHFW F2.0 LENTR4W F1.0 PURP4W F1.0 HWUSTRAI F1.0 ISCO3D F1.0 STARTIME F3.0 LEAVTIME F3.0 LEAVCLAS F1.0 AHM1999_AWNUMBR F2.0 AHM1999_AWMONTH F2.0 AHM1999_AWINJ F2.0 AHM1999_AWWKSTAT F2.0 AHM1999_AWBACKW F2.0 AHM1999_AWJOB F2.0 AHM1999_WHPNUMBR F2.0 AHM1999_WHPTYPEP F2.0 AHM1999_WHPDOFF F2.0 AHM1999_WHPJOB F2.0 AHM1999_WHPNACE_ A1 IS881D F3.0 IS88PR3D F3.0 IS88PR1D F3.0 IS883D F3.0. EXECUTE. *--- Add Release-Variable ---. STRING RELEASE (A9). RECODE RELEASE (ELSE='SEPT 2017'). *--- Recode Alphanumeric Variables ---. * Variables which remain alphanumeric: HHNUM, QHHNUM (too many values); QUARTER (only one value); REGION, REGIONW and REGION1Y (values have country-specific meaning); * COUNTRY. NUMERIC COUNTRY (F2.0). RECODE COUNTRY_ ('AT'=1) ('BE'=2) ('BG'=3) ('CH'=4) ('CY'=5) ('CZ'=6) ('DE'=7) ('DK'=8) ('EE'=9) ('ES'=10) ('FI'=11) ('FR'=12) ('GR'=13) ('HR'=14) ('HU'=15) ('IE'=16) ('IS'=17) ('IT'=18) ('LT'=19) ('LU'=20) ('LV'=21) ('MT'=22) ('NL'=23) ('NO'=24) ('PL'=25) ('PT'=26) ('RO'=27) ('SE'=28) ('SI'=29) ('SK'=30) ('UK'=31) INTO COUNTRY. * REGION. STRING REGION (A27). COMPUTE REGION=CONCAT(COUNTRY_,REGION_). EXECUTE. IF (REGION_='00') REGION='-5 No information delivered'. * NATIONAL. NUMERIC NATIONAL (F3.0). RECODE NATIONAL_ ('000'=0) ('001'=1) ('002'=2) ('003'=3) ('004'=4) ('005'=5) ('006'=6) ('007'=7) ('008'=8) ('009'=9) ('010'=10) ('011'=11) ('012'=12) ('013'=13) ('014'=14) ('015'=15) ('016'=16) ('017'=17) ('018'=18) ('019'=19) ('020'=20) ('021'=21) ('111'=111) ('800'=800) ('911'=911) ('999'=-1) ('NO '=-1) (' '=-1) INTO NATIONAL. * YEARESID. NUMERIC YEARESID (F2.0). RECODE YEARESID_ ('0'=0) ('00'=0) ('01'=1) ('02'=2) ('03'=3) ('04'=4) ('05'=5) ('06'=6) ('07'=7) ('08'=8) ('09'=9) ('10'=10) ('11'=11) ('01-04'=2) ('05-10'=6) ('11-14'=12) ('15-19'=17) ('20-24'=22) ('25-29'=27) ('30-34'=32) ('35-39'=37) ('40-44'=42) ('45-49'=47) ('50-54'=52) ('50-99'=52) ('55-59'=57) ('60-64'=62) ('65-69'=67) ('70-74'=72) ('75-79'=77) ('80-84'=82) ('85-89'=87) ('90-94'=92) ('95-99'=97) ('75-99'=77) (' '=-1) ('01-Apr'=2) ('05-Oct'=6) ('Nov-14'=12) INTO YEARESID. * COUNTRYB. NUMERIC COUNTRYB (F2.0). RECODE COUNTRYB_ ('000'=0) ('001'=1) ('002'=2) ('003'=3) ('004'=4) ('005'=5) ('006'=6) ('007'=7) ('008'=8) ('009'=9) ('010'=10) ('011'=11) ('012'=12) ('013'=13) ('014'=14) ('015'=15) ('016'=16) ('017'=17) ('018'=18) ('019'=19) ('020'=20) ('021'=21) ('111'=111) ('800'=800) ('911'=911) ('999'=-2) ('NO '=-1) (' '=-1) INTO COUNTRYB. * COUNTRYW. NUMERIC COUNTRYW (F4.0). RECODE COUNTRYW_ ('AD'=01) ('AL'=02) ('AT'=03) ('BA'=04) ('BE'=05) ('BG'=06) ('BY'=07) ('CH'=08) ('CY'=09) ('CZ'=10) ('DE'=11) ('DK'=12) ('EE'=13) ('GR'=14) ('ES'=15) ('FI'=16) ('FO'=17) ('FR'=18) ('GG'=19) ('GI'=20) ('HR'=21) ('HU'=22) ('IE'=23) ('IM'=24) ('IS'=25) ('IT'=26) ('JE'=27) ('LI'=28) ('LT'=29) ('LU'=30) ('LV'=31) ('MC'=32) ('MD'=33) ('ME'=34) ('XM'=34) ('MK'=35) ('MT'=36) ('NL'=37) ('NO'=38) ('PL'=39) ('PT'=40) ('RO'=41) ('RS'=42) ('XS'=42) ('RU'=43) ('SE'=44) ('SI'=45) ('SK'=46) ('SM'=47) ('TR'=48) ('UA'=49) ('UK'=50) ('VA'=51) ('XK'=52) ('CS'=60) ('SU'=61) ('YU'=62) ('NN'=90) ('01'=110) ('02'=120) ('03'=130) ('04'=140) ('15'=150) ('05'=0500) ('DZ'=0501) ('EG'=0502) ('LY'=0503) ('MA'=0504) ('TN'=0505) ('06'=0600) ('AO'=0601) ('BF'=0602) ('BI'=0603) ('BJ'=0604) ('BW'=0605) ('CD'=0606) ('CF'=0607) ('CG'=0608) ('CI'=0609) ('CM'=0610) ('CV'=0611) ('DJ'=0612) ('ER'=0613) ('ET'=0614) ('GA'=0615) ('GH'=0616) ('GM'=0617) ('GN'=0618) ('GQ'=0619) ('GW'=0620) ('KE'=0621) ('KM'=0622) ('LR'=0623) ('LS'=0624) ('MG'=0625) ('ML'=0626) ('MR'=0627) ('MU'=0628) ('MW'=0629) ('MZ'=0630) ('NA'=0631) ('NE'=0632) ('NG'=0633) ('RW'=0634) ('SC'=0635) ('SD'=0636) ('SH'=0637) ('SL'=0638) ('SN'=0639) ('SO'=0640) ('SS'=0641) ('ST'=0642) ('SZ'=0643) ('TD'=0644) ('TG'=0645) ('TZ'=0646) ('UG'=0647) ('YT'=0648) ('ZA'=0649) ('ZM'=0650) ('ZW'=0651) ('07'=0700) ('BM'=0701) ('CA'=0702) ('GL'=0703) ('PM'=0704) ('US'=0705) ('08'=0800) ('AG'=0801) ('AI'=0802) ('AN'=0803) ('AW'=0804) ('BB'=0805) ('BL'=0806) ('BS'=0807) ('BZ'=0808) ('CR'=0809) ('CU'=0810) ('DM'=0811) ('DO'=0812) ('GD'=0813) ('GT'=0814) ('HN'=0815) ('HT'=0816) ('JM'=0817) ('KN'=0818) ('KY'=0819) ('LC'=0820) ('MF'=0821) ('MS'=0822) ('MX'=0823) ('NI'=0824) ('PA'=0825) ('PR'=0826) ('SV'=0827) ('TC'=0828) ('TT'=0829) ('VC'=0830) ('VG'=0831) ('09'=0900) ('AR'=0901) ('BO'=0902) ('BR'=0903) ('CL'=0904) ('CO'=0905) ('EC'=0906) ('FK'=0907) ('GY'=0908) ('PE'=0909) ('PY'=0910) ('SR'=0911) ('TF'=0912) ('UY'=0913) ('VE'=0914) ('10'=1000) ('CN'=1001) ('JP'=1002) ('KP'=1003) ('KR'=1004) ('MN'=1005) ('TW'=1006) ('11'=1100) ('AE'=1101) ('AM'=1102) ('AZ'=1103) ('BH'=1104) ('GE'=1105) ('IL'=1106) ('IQ'=1107) ('IR'=1108) ('JO'=1109) ('KG'=1110) ('KW'=1111) ('KZ'=1112) ('LB'=1113) ('OM'=1114) ('PS'=1115) ('QA'=1116) ('SA'=1117) ('SY'=1118) ('TJ'=1119) ('TM'=1120) ('UZ'=1121) ('YE'=1122) ('12'=1200) ('AF'=1201) ('BD'=1202) ('BN'=1203) ('BT'=1204) ('ID'=1205) ('IN'=1206) ('KH'=1207) ('LA'=1208) ('LK'=1209) ('MM'=1210) ('MV'=1211) ('MY'=1212) ('NP'=1213) ('PH'=1214) ('PK'=1215) ('SG'=1216) ('TH'=1217) ('TL'=1218) ('VN'=1219) ('13'=1300) ('AU'=1301) ('FJ'=1302) ('FM'=1303) ('KI'=1304) ('MH'=1305) ('NC'=1306) ('NR'=1307) ('NZ'=1308) ('PF'=1309) ('PG'=1310) ('PN'=1311) ('PW'=1312) ('SB'=1313) ('TO'=1314) ('TV'=1315) ('VU'=1316) ('WF'=1317) ('WS'=1318) ('14'=1400) ('005-EU27'=180) ('005-EU28'=180) ('008'=190) ('008-EUROPE OUTSIDE EU27'=190) ('008-EUROPE OUTSIDE EU28'=190) ('111'=160) ('911'=170) ('999'=-2) ('NO ANSWER'=-1) ('NOT APPLICABLE'=-2) (' '=-1) ('99'=-2) INTO COUNTRYW. * EXCEPTIONS: MT, SI. DO IF COUNTRY_='MT'. RECODE COUNTRYW_ ('000'=36) ('000 '=36) ('000-OWN COUNTRY'=36) INTO COUNTRYW. END IF. DO IF COUNTRY_='SI'. RECODE COUNTRYW_ ('000'=45) ('000-OWN COUNTRY'=45) INTO COUNTRYW. END IF. * REGIONW. STRING REGIONW (A27). COMPUTE REGIONW=CONCAT(CHAR.SUBSTR(COUNTRYW_,1,2),REGIONW_). EXECUTE. IF (COUNTRYW_=' ') REGIONW='-1 No answer'. IF (REGIONW_='00') REGIONW='-5 No information delivered'. IF (REGIONW_='99') REGIONW='-2 Not applicable'. IF (REGIONW_=' ') REGIONW='-1 No answer'. * separate coding of REGIONW for Slovenia (due to the separate coding of COUNTRYW in Slovenia). IF (COUNTRYW=45 AND REGIONW_='01') REGIONW='SI01'. IF (COUNTRYW=45 AND REGIONW_='02') REGIONW='SI02'. IF (COUNTRYW=45 AND (REGIONW_='03' OR REGIONW_='0003')) REGIONW='SI03'. IF (COUNTRYW=45 AND (REGIONW_='04' OR REGIONW_='0004')) REGIONW='SI04'. EXECUTE. * NA111Y1D. NUMERIC NA111Y1D (F2.0). RECODE NA111Y1D_ ('A'=1) ('B'=2) ('C'=3) ('D'=4) ('E'=5) ('F'=6) ('G'=7) ('H'=8) ('I'=9) ('J'=10) ('K'=11) ('L'=12) ('M'=13) ('N'=14) ('O'=15) ('P'=16) ('Q'=17) (' '=-1) ('9'=-2) INTO NA111Y1D. * COUNTR1Y. NUMERIC COUNTR1Y (F4.0). RECODE COUNTR1Y_ ('AD'=01) ('AL'=02) ('AT'=03) ('BA'=04) ('BE'=05) ('BG'=06) ('BY'=07) ('CH'=08) ('CY'=09) ('CZ'=10) ('DE'=11) ('DK'=12) ('EE'=13) ('GR'=14) ('ES'=15) ('FI'=16) ('FO'=17) ('FR'=18) ('GG'=19) ('GI'=20) ('HR'=21) ('HU'=22) ('IE'=23) ('IM'=24) ('IS'=25) ('IT'=26) ('JE'=27) ('LI'=28) ('LT'=29) ('LU'=30) ('LV'=31) ('MC'=32) ('MD'=33) ('ME'=34) ('XM'=34) ('MK'=35) ('MT'=36) ('NL'=37) ('NO'=38) ('PL'=39) ('PT'=40) ('RO'=41) ('RS'=42) ('XS'=42) ('RU'=43) ('SE'=44) ('SI'=45) ('SK'=46) ('SM'=47) ('TR'=48) ('UA'=49) ('UK'=50) ('VA'=51) ('XK'=52) ('CS'=60) ('SU'=61) ('YU'=62) ('NN'=90) ('01'=110) ('02'=120) ('03'=130) ('04'=140) ('15'=150) ('05'=0500) ('DZ'=0501) ('EG'=0502) ('LY'=0503) ('MA'=0504) ('TN'=0505) ('06'=0600) ('AO'=0601) ('BF'=0602) ('BI'=0603) ('BJ'=0604) ('BW'=0605) ('CD'=0606) ('CF'=0607) ('CG'=0608) ('CI'=0609) ('CM'=0610) ('CV'=0611) ('DJ'=0612) ('ER'=0613) ('ET'=0614) ('GA'=0615) ('GH'=0616) ('GM'=0617) ('GN'=0618) ('GQ'=0619) ('GW'=0620) ('KE'=0621) ('KM'=0622) ('LR'=0623) ('LS'=0624) ('MG'=0625) ('ML'=0626) ('MR'=0627) ('MU'=0628) ('MW'=0629) ('MZ'=0630) ('NA'=0631) ('NE'=0632) ('NG'=0633) ('RW'=0634) ('SC'=0635) ('SD'=0636) ('SH'=0637) ('SL'=0638) ('SN'=0639) ('SO'=0640) ('SS'=0641) ('ST'=0642) ('SZ'=0643) ('TD'=0644) ('TG'=0645) ('TZ'=0646) ('UG'=0647) ('YT'=0648) ('ZA'=0649) ('ZM'=0650) ('ZW'=0651) ('07'=0700) ('BM'=0701) ('CA'=0702) ('GL'=0703) ('PM'=0704) ('US'=0705) ('08'=0800) ('AG'=0801) ('AI'=0802) ('AN'=0803) ('AW'=0804) ('BB'=0805) ('BL'=0806) ('BS'=0807) ('BZ'=0808) ('CR'=0809) ('CU'=0810) ('DM'=0811) ('DO'=0812) ('GD'=0813) ('GT'=0814) ('HN'=0815) ('HT'=0816) ('JM'=0817) ('KN'=0818) ('KY'=0819) ('LC'=0820) ('MF'=0821) ('MS'=0822) ('MX'=0823) ('NI'=0824) ('PA'=0825) ('PR'=0826) ('SV'=0827) ('TC'=0828) ('TT'=0829) ('VC'=0830) ('VG'=0831) ('09'=0900) ('AR'=0901) ('BO'=0902) ('BR'=0903) ('CL'=0904) ('CO'=0905) ('EC'=0906) ('FK'=0907) ('GY'=0908) ('PE'=0909) ('PY'=0910) ('SR'=0911) ('TF'=0912) ('UY'=0913) ('VE'=0914) ('10'=1000) ('CN'=1001) ('JP'=1002) ('KP'=1003) ('KR'=1004) ('MN'=1005) ('TW'=1006) ('11'=1100) ('AE'=1101) ('AM'=1102) ('AZ'=1103) ('BH'=1104) ('GE'=1105) ('IL'=1106) ('IQ'=1107) ('IR'=1108) ('JO'=1109) ('KG'=1110) ('KW'=1111) ('KZ'=1112) ('LB'=1113) ('OM'=1114) ('PS'=1115) ('QA'=1116) ('SA'=1117) ('SY'=1118) ('TJ'=1119) ('TM'=1120) ('UZ'=1121) ('YE'=1122) ('12'=1200) ('AF'=1201) ('BD'=1202) ('BN'=1203) ('BT'=1204) ('ID'=1205) ('IN'=1206) ('KH'=1207) ('LA'=1208) ('LK'=1209) ('MM'=1210) ('MV'=1211) ('MY'=1212) ('NP'=1213) ('PH'=1214) ('PK'=1215) ('SG'=1216) ('TH'=1217) ('TL'=1218) ('VN'=1219) ('13'=1300) ('AU'=1301) ('FJ'=1302) ('FM'=1303) ('KI'=1304) ('MH'=1305) ('NC'=1306) ('NR'=1307) ('NZ'=1308) ('PF'=1309) ('PG'=1310) ('PN'=1311) ('PW'=1312) ('SB'=1313) ('TO'=1314) ('TV'=1315) ('VU'=1316) ('WF'=1317) ('WS'=1318) ('14'=1400) (' '=-1) ('99'=-2) INTO COUNTR1Y. * REGION1Y. STRING REGION1Y (A27). COMPUTE REGION1Y=CONCAT(COUNTR1Y_,REGION1Y_). EXECUTE. IF (COUNTR1Y_=' ') REGION1Y='-1 No answer'. IF (REGION1Y_='00') REGION1Y='-5 No information delivered'. IF (REGION1Y_='99') REGION1Y='-2 Not applicable'. IF (REGION1Y_=' ') REGION1Y='-1 No answer'. * NA111D. NUMERIC NA111D (F2.0). RECODE NA111D_ ('A'=1) ('B'=2) ('C'=3) ('D'=4) ('E'=5) ('F'=6) ('G'=7) ('H'=8) ('I'=9) ('J'=10) ('K'=11) ('L'=12) ('M'=13) ('N'=14) ('O'=15) ('P'=16) ('Q'=17) (' '=-1) ('9'=-2) INTO NA111D. * NA112J1D. NUMERIC NA112J1D (F2.0). RECODE NA112J1D_ ('A'=1) ('B'=2) ('C'=3) ('D'=4) ('E'=5) ('F'=6) ('G'=7) ('H'=8) ('I'=9) ('J'=10) ('K'=11) ('L'=12) ('M'=13) ('N'=14) ('O'=15) ('P'=16) ('Q'=17) (' '=-1) ('9'=-2) INTO NA112J1D. * NA11PR1D. NUMERIC NA11PR1D (F2.0). RECODE NA11PR1D_ ('A'=1) ('B'=2) ('C'=3) ('D'=4) ('E'=5) ('F'=6) ('G'=7) ('H'=8) ('I'=9) ('J'=10) ('K'=11) ('L'=12) ('M'=13) ('N'=14) ('O'=15) ('P'=16) ('Q'=17) (' '=-1) ('9'=-2) INTO NA11PR1D. * HATLEV1D. NUMERIC HATLEV1D (F1.0). RECODE HATLEV1D_ ('L'=1) ('M'=2) ('H'=3) ('9'=-2) (' '=-1) INTO HATLEV1D. *AHM1999_WHPNACE. NUMERIC AHM1999_WHPNACE (F1.0). RECODE AHM1999_WHPNACE_ ('A'=1) ('B'=2) ('C'=3) ('D'=4) ('E'=5) ('F'=6) ('G'=7) ('H'=8) ('I'=9) ('J'=10) ('K'=11) ('L'=12) ('M'=13) ('N'=14) ('O'=15) ('P'=16) ('Q'=17) (' '=-1) ('9'=-2) INTO AHM1999_WHPNACE. *--- Recode Missing Values ---. RECODE MARSTAT HHPRIV (SYSMIS=-1). RECODE LEAVCLAS (SYSMIS=-9). RECODE HHINST PROXY STAPRO SUPVISOR WAYJFOUN FTPT FTPTREAS TEMP TEMPREAS TEMPDUR TEMPAGCY SHIFTWK EVENWK NIGHTWK SATWK SUNWK WISHMORE WAYMORE HOMEWK LOOKOJ LOOKREAS EXIST2J STAPRO2J EXISTPR STAPROPR SEEKREAS SEEKTYPE SEEKDUR WANTWORK AVAILBLE AVAIREAS PRESEEK NEEDCARE REGISTER MAINSTAT EDUCSTAT EDUCLEVL COURATT COURPURP COURWORH WSTAT1Y STAPRO1Y NA11S NA111YS NA112JS NA11PRS DURUNE EDUC4WN LENTR4W PURP4W AHM1999_AWNUMBR AHM1999_AWINJ AHM1999_AWWKSTAT AHM1999_AWBACKW AHM1999_AWJOB AHM1999_WHPNUMBR AHM1999_WHPTYPEP AHM1999_WHPDOFF AHM1999_WHPJOB (SYSMIS=-1) (9=-2). RECODE SIZEFIRM MSTARTWK HWUSUAL HWACTUAL HWOVERP HWOVERPU HOURREAS HWWISH HWACTUA2 MONTHPR LEAVREAS HAT97LEV METHFW HWUSTRAI COUNTRYW AHM1999_AWMONTH (SYSMIS=-1) (99=-2). RECODE ISCOPR3D EDUCFILD COURLEN COURFILD HATFIELD ISCO1D ISCOPR1D ISCO3D STARTIME LEAVTIME IS881D IS88PR3D IS88PR1D IS883D (SYSMIS=-1) (999=-2). RECODE YSTARTWK YEARPR HATYEAR (SYSMIS=-1) (9999=-2). RECODE WSTATOR SIGNISAL SEEKWORK METHODA METHODB METHODC METHODD METHODE METHODF METHODG METHODH METHODI METHODJ METHODK METHODL METHODM ILOSTAT HHLINK (9=-2). RECODE NOWKREAS HHSPOU HHFATH HHMOTH (99=-2). EXECUTE. *--- Recode Variables in Countries which did not deliver any Information for this Variable ---. DO REPEAT var=SIGNISAL EDUCFILD COURFILD HATFIELD HHSEQNUM REFYEAR REFWEEK INTWEEK DEGURBA HHTYPE HHINST INTWAVE INTQUEST REM HHPRIV HHLINK HHSPOU HHFATH HHMOTH SEX AGE MARSTAT NATIONAL YEARESID COUNTRYB PROXY WSTATOR NOWKREAS STAPRO SUPVISOR SIZEFIRM COUNTRYW YSTARTWK MSTARTWK WAYJFOUN FTPT FTPTREAS TEMP TEMPREAS TEMPDUR TEMPAGCY SHIFTWK EVENWK NIGHTWK SATWK SUNWK HWUSUAL HWACTUAL HWOVERP HWOVERPU HOURREAS WISHMORE WAYMORE HWWISH HOMEWK LOOKOJ LOOKREAS EXIST2J STAPRO2J HWACTUA2 EXISTPR YEARPR MONTHPR LEAVREAS STAPROPR ISCOPR3D SEEKWORK SEEKREAS SEEKTYPE SEEKDUR METHODA METHODB METHODC METHODD METHODE METHODF METHODG METHODH METHODI METHODJ METHODK METHODL METHODM WANTWORK AVAILBLE AVAIREAS PRESEEK NEEDCARE REGISTER MAINSTAT EDUCSTAT EDUCLEVL COURATT COURLEN COURPURP COURWORH HAT97LEV HATYEAR WSTAT1Y STAPRO1Y NA111Y1D COUNTR1Y ILOSTAT NA111D NA11S ISCO1D NA112J1D NA112JS NA11PR1D NA11PRS ISCOPR1D DURUNE EDUC4WN HATLEV1D NA111YS METHFW LENTR4W PURP4W HWUSTRAI ISCO3D STARTIME LEAVTIME LEAVCLAS IS881D IS88PR3D IS88PR1D IS883D AHM1999_AWNUMBR AHM1999_AWINJ AHM1999_AWWKSTAT AHM1999_AWBACKW AHM1999_AWJOB AHM1999_WHPNUMBR AHM1999_WHPTYPEP AHM1999_WHPDOFF AHM1999_WHPJOB AHM1999_AWMONTH AHM1999_WHPNACE / varx=x1 TO x138. COMPUTE varx=var. END REPEAT. EXECUTE. RECODE SIGNISAL (4=-1) (SYSMIS=-5) (ELSE=COPY) INTO x1. RECODE EDUCFILD (9=-5) (SYSMIS=-5) (ELSE=COPY) INTO x2. RECODE COURFILD (9=-5) (SYSMIS=-5) (ELSE=COPY) INTO x3. RECODE HATFIELD (99=-5) (SYSMIS=-5) (ELSE=COPY) INTO x4. RECODE x5 TO x138 (SYSMIS=-5) (ELSE=COPY). NUMERIC x139 x140 x141 (F1.0). COMPUTE x139=0. COMPUTE x140=0. COMPUTE x141=0. EXECUTE. IF (REGION='-1' OR REGION='-2' OR REGION='-3' OR REGION='-4' OR REGION='-5' OR REGION='-9' OR REGION=' ') x139=-1. IF (REGIONW='-1' OR REGIONW='-2' OR REGIONW='-3' OR REGIONW='-4' OR REGIONW='-5' OR REGIONW='-9' OR REGIONW=' ') x140=-1. IF (REGION1Y='-1' OR REGION1Y='-2' OR REGION1Y='-3' OR REGION1Y='-4' OR REGION1Y='-5' OR REGION1Y='-9' OR REGION1Y=' ') x141=-1. EXECUTE. AGGREGATE OUTFILE=* MODE=ADDVARIABLES OVERWRITE=YES / x1 TO x141=MAX(x1 TO x141). EXECUTE. DO REPEAT var=SIGNISAL EDUCFILD COURFILD HATFIELD HHSEQNUM REFYEAR REFWEEK INTWEEK DEGURBA HHTYPE HHINST INTWAVE INTQUEST REM HHPRIV HHLINK HHSPOU HHFATH HHMOTH SEX AGE MARSTAT NATIONAL YEARESID COUNTRYB PROXY WSTATOR NOWKREAS STAPRO SUPVISOR SIZEFIRM COUNTRYW YSTARTWK MSTARTWK WAYJFOUN FTPT FTPTREAS TEMP TEMPREAS TEMPDUR TEMPAGCY SHIFTWK EVENWK NIGHTWK SATWK SUNWK HWUSUAL HWACTUAL HWOVERP HWOVERPU HOURREAS WISHMORE WAYMORE HWWISH HOMEWK LOOKOJ LOOKREAS EXIST2J STAPRO2J HWACTUA2 EXISTPR YEARPR MONTHPR LEAVREAS STAPROPR ISCOPR3D SEEKWORK SEEKREAS SEEKTYPE SEEKDUR METHODA METHODB METHODC METHODD METHODE METHODF METHODG METHODH METHODI METHODJ METHODK METHODL METHODM WANTWORK AVAILBLE AVAIREAS PRESEEK NEEDCARE REGISTER MAINSTAT EDUCSTAT EDUCLEVL COURATT COURLEN COURPURP COURWORH HAT97LEV HATYEAR WSTAT1Y STAPRO1Y NA111Y1D COUNTR1Y ILOSTAT NA111D NA11S ISCO1D NA112J1D NA112JS NA11PR1D NA11PRS ISCOPR1D DURUNE EDUC4WN HATLEV1D NA111YS METHFW LENTR4W PURP4W HWUSTRAI ISCO3D STARTIME LEAVTIME LEAVCLAS IS881D IS88PR3D IS88PR1D IS883D AHM1999_AWNUMBR AHM1999_AWINJ AHM1999_AWWKSTAT AHM1999_AWBACKW AHM1999_AWJOB AHM1999_WHPNUMBR AHM1999_WHPTYPEP AHM1999_WHPDOFF AHM1999_WHPJOB AHM1999_AWMONTH AHM1999_WHPNACE / varx=x1 TO x138. IF (varx<0) var=-3. END REPEAT. EXECUTE. DO REPEAT var=REGION REGIONW REGION1Y / varx=x139 x140 x141. IF (varx<0) var="-3". END REPEAT. EXECUTE. DELETE VARIABLES x1 TO x141. EXECUTE. *--- Recode or Rename Variabels in Specific Cases ---. * none. *--- Declare User-Missing Values ---. MISSING VALUES HHSEQNUM REFYEAR REFWEEK INTWEEK COUNTRY DEGURBA HHTYPE HHINST INTWAVE INTQUEST REM YEAR HHPRIV HHLINK HHSPOU HHFATH HHMOTH SEX AGE MARSTAT NATIONAL YEARESID COUNTRYB PROXY WSTATOR NOWKREAS STAPRO SIGNISAL SUPVISOR SIZEFIRM COUNTRYW YSTARTWK MSTARTWK WAYJFOUN FTPT FTPTREAS TEMP TEMPREAS TEMPDUR TEMPAGCY SHIFTWK EVENWK NIGHTWK SATWK SUNWK HWUSUAL HWACTUAL HWOVERP HWOVERPU HOURREAS WISHMORE WAYMORE HWWISH HOMEWK LOOKOJ LOOKREAS EXIST2J STAPRO2J HWACTUA2 EXISTPR YEARPR MONTHPR LEAVREAS STAPROPR ISCOPR3D SEEKWORK SEEKREAS SEEKTYPE SEEKDUR METHODA METHODB METHODC METHODD METHODE METHODF METHODG METHODH METHODI METHODJ METHODK METHODL METHODM WANTWORK AVAILBLE AVAIREAS PRESEEK NEEDCARE REGISTER MAINSTAT EDUCSTAT EDUCLEVL EDUCFILD COURATT COURLEN COURPURP COURFILD COURWORH HAT97LEV HATFIELD HATYEAR WSTAT1Y STAPRO1Y NA111Y1D COUNTR1Y ILOSTAT NA111D NA11S ISCO1D NA112J1D NA112JS NA11PR1D NA11PRS ISCOPR1D DURUNE EDUC4WN HATLEV1D NA111YS METHFW LENTR4W PURP4W HWUSTRAI ISCO3D STARTIME LEAVTIME LEAVCLAS IS881D IS88PR3D IS88PR1D IS883D AHM1999_AWNUMBR AHM1999_AWINJ AHM1999_AWWKSTAT AHM1999_AWBACKW AHM1999_AWJOB AHM1999_WHPNUMBR AHM1999_WHPTYPEP AHM1999_WHPDOFF AHM1999_WHPJOB AHM1999_AWMONTH AHM1999_WHPNACE (-9 THRU -1). EXECUTE. *--- Delete Recoded Alphanumeric Variables ---. DELETE VARIABLES COUNTRY_ REGION_ COUNTRYB_ REGIONW_ COUNTR1Y_ REGION1Y_ NATIONAL_ NA111Y1D_ NA111D_ NA112J1D_ YEARESID_ NA11PR1D_ HATLEV1D_ AHM1999_WHPNACE_. EXECUTE. *--- Define Variable and Value Labels ---. INCLUDE FILE=!QUOTE(!label_syntax_path). *--- Sort Variables ---. MATCH FILES FILE =* / KEEP=QHHNUM COEFF QUARTER HHNUM REC HHSEQNUM REFYEAR REFWEEK INTWEEK COUNTRY REGION DEGURBA HHTYPE HHINST INTWAVE INTQUEST REM YEAR HHPRIV HHLINK HHSPOU HHFATH HHMOTH SEX AGE MARSTAT NATIONAL YEARESID COUNTRYB PROXY WSTATOR NOWKREAS STAPRO SIGNISAL SUPVISOR SIZEFIRM COUNTRYW REGIONW YSTARTWK MSTARTWK WAYJFOUN FTPT FTPTREAS TEMP TEMPREAS TEMPDUR TEMPAGCY SHIFTWK EVENWK NIGHTWK SATWK SUNWK HWUSUAL HWACTUAL HWOVERP HWOVERPU HOURREAS WISHMORE WAYMORE HWWISH HOMEWK LOOKOJ LOOKREAS EXIST2J STAPRO2J HWACTUA2 EXISTPR YEARPR MONTHPR LEAVREAS STAPROPR ISCOPR3D SEEKWORK SEEKREAS SEEKTYPE SEEKDUR METHODA METHODB METHODC METHODD METHODE METHODF METHODG METHODH METHODI METHODJ METHODK METHODL METHODM WANTWORK AVAILBLE AVAIREAS PRESEEK NEEDCARE REGISTER MAINSTAT EDUCSTAT EDUCLEVL EDUCFILD COURATT COURLEN COURPURP COURFILD COURWORH HAT97LEV HATFIELD HATYEAR WSTAT1Y STAPRO1Y NA111Y1D COUNTR1Y REGION1Y ILOSTAT NA111D NA11S ISCO1D NA112J1D NA112JS NA11PR1D NA11PRS ISCOPR1D DURUNE EDUC4WN HATLEV1D NA111YS METHFW LENTR4W PURP4W HWUSTRAI ISCO3D STARTIME LEAVTIME LEAVCLAS AHM1999_AWNUMBR AHM1999_AWMONTH AHM1999_AWINJ AHM1999_AWWKSTAT AHM1999_AWBACKW AHM1999_AWJOB AHM1999_WHPNUMBR AHM1999_WHPTYPEP AHM1999_WHPDOFF AHM1999_WHPJOB AHM1999_WHPNACE IS881D IS88PR3D IS88PR1D IS883D RELEASE. *--- Save file of current loop run ---. SAVE OUTFILE=!QUOTE(!CONCAT(!spss_data_path,!filestub,'_ah.sav')). !DOEND. *--- Compile and save Final File ---. !LET !firstfile=1. !DO !filestub !IN (!filestublist). !IF (!firstfile=1) !THEN GET FILE=!QUOTE(!CONCAT(!spss_data_path,!filestub,'_ah.sav')). !LET !firstfile=0. !ELSE ADD FILES FILE=* /FILE=!QUOTE(!CONCAT(!spss_data_path,!filestub,'_ah.sav')). !IFEND. !DOEND. SAVE OUTFILE=!QUOTE(!CONCAT(!spss_data_path,!finalfile)). !ENDDEFINE. readmac.