* Encoding: UTF-8. * EU-Labour Force Survey - Data Service - German Microdata Lab * This routine converts EU-LFS 2005 AD HOC data formatted in CSV into SAV * Checked for the September 2020 release of the EU-LFS, as provided by Eurostat * The whole routine consists of two files: * Setup_EULFS_2005_ah.sps * Labels_EULFS_1983-2019.sps * Version 1 of the routine, December 2020 * IBM SPSS Statistics 24.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 * Andrea Lengerer, Luca Mauritz, Klaus Pforr, Kathrin Stief, Peter Wieland * 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. 'at2005 be2005 bg2005 ch2005')*/ !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-2019.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 contains all specified countries and years (e.g. 'finalfile.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 HHNUM A6 HHSEQNUM F2.0 SEX F1.0 NATIONAL_ A3 YEARESID_ A5 COUNTRYB_ A3 PROXY F1.0 WSTATOR F1.0 NOWKREAS F2.0 STAPRO F1.0 SIGNISAL F1.0 NACE1D_ A1 NA111D_ A1 ISCO3D F3.0 IS883D F1.0 COUNTRYW_ A23 REGIONW_ A2 YSTARTWK F4.0 MSTARTWK F2.0 FTPT F1.0 TEMP F1.0 TEMPDUR F1.0 HWUSUAL F2.0 HWACTUAL F2.0 HWOVERP F2.0 HWOVERPU F2.0 HOURREAS F2.0 WISHMORE F1.0 HWWISH F2.0 LOOKOJ F1.0 EXIST2J F1.0 STAPRO2J F1.0 NACE2J1D_ A1 NA112J1D_ A2 HWACTUA2 F2.0 EXISTPR F1.0 YEARPR F4.0 MONTHPR F2.0 STAPROPR F1.0 NACEPR1D_ A1 NA11PR1D_ A1 ISCOPR3D F3.0 IS88PR3D F1.0 SEEKWORK 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 EDUCSTAT F1.0 EDUCLEVL F1.0 COURATT F1.0 COURLEN_ A3 HAT97LEV F2.0 HAT11LEV F3.0 HATVOC F1.0 EDUCVOC F1.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 COEFF COMMA9.0 YEAR F4.0 QUARTER A2 REM F1.0 HHPRIV F1.0 AGE F2.0 AGERESID F2.0 ILOSTAT F1.0 STARTIME F3.0 LEAVTIME F3.0 LEAVCLAS F1.0 DURUNE F1.0 NA11S F1.0 ISCO1D F3.0 IS881D F1.0 NA112JS F1.0 NA11PRS F1.0 ISCOPR1D F3.0 IS88PR1D F1.0 EDUC4WN F1.0 HATLEV1D_ A1 HHLINK F1.0 HHSPOU F2.0 HHFATH F2.0 HHMOTH F2.0 MARSTAT F1.0 SUPVISOR F1.0 SIZEFIRM F2.0 WAYJFOUN F1.0 FTPTREAS F1.0 TEMPREAS F1.0 TEMPAGCY F1.0 SHIFTWK F1.0 EVENWK F1.0 NIGHTWK F1.0 SATWK F1.0 SUNWK F1.0 WAYMORE F1.0 HOMEWK F1.0 LOOKREAS F1.0 LEAVREAS F2.0 SEEKREAS F1.0 AVAIREAS F1.0 PRESEEK F1.0 NEEDCARE F1.0 REGISTER F1.0 MAINSTAT F1.0 EDUCFILD F3.0 COURPURP F1.0 COURFILD F3.0 COURWORH F1.0 HATFIELD F3.0 HATYEAR F4.0 WSTAT1Y F1.0 STAPRO1Y F1.0 NACE1Y1D_ A1 NA111Y1D_ A1 NA111YS F1.0 COUNTR1Y_ A2 REGION1Y_ A2 INCDECIL F2.0 ESEG1D F1.0 ESEG2D F2.0 HWUSTRAI F1.0 METHFW F2.0 PURP4W F1.0 LENTR4W F1.0 HHPERS F1.0 HHPARENT F1.0 HHPARTNR F1.0 HHCHILDR F1.0 HATLFATH_ A1 HATLMOTH_ A1 HHNBPERS F2.0 HHNB0014 F2.0 HHNBOLD F2.0 HHNBCHLD F2.0 HHNBCH2 F2.0 HHNBCH5 F2.0 HHNBCH8 F2.0 HHNBCH11 F2.0 HHNBCH14 F2.0 HHNBCH17 F2.0 HHNBCH24 F2.0 HHAGEYG F2.0 HHAGE14 F2.0 HHCOMP F2.0 HHNBWORK F2.0 HHNBEMPL F2.0 HHNBUNEM F2.0 HHNBINAC F2.0 HHWKSTAT F1.0 AHM2005_TYPECARE F1.0 AHM2005_REGCARE F1.0 AHM2005_CHANGORG F1.0 AHM2005_NOWRECHI F1.0 AHM2005_REDUCT F1.0 AHM2005_NOWRECAR F1.0 AHM2005_POSSTEND F1.0 AHM2005_POSORGWT F1.0 AHM2005_TIMEOFF F1.0 AHM2005_PARLEAVE F1.0 AHM2005_NOPLREAS F1.0. EXECUTE. *--- Add Release-Variable ---. STRING RELEASE (A9). RECODE RELEASE (ELSE='SEPT 2020'). *--- Recode Alphanumeric Variables ---. * Variables which remain alphanumeric: HHNUM, QHHNUM, QUARTER, 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_ ('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) 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. * NACE1D. NUMERIC NACE1D (F2.0). RECODE NACE1D_ ('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) ('R'=18) ('S'=19) ('T'=20) ('U'=21) (' '=-1) ('9'=-2) INTO NACE1D. * 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. * NACEPR1D. NUMERIC NACEPR1D (F2.0). RECODE NACEPR1D_ ('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) ('R'=18) ('S'=19) ('T'=20) ('U'=21) (' '=-1) ('9'=-2) INTO NACEPR1D. * NACE2J1D. NUMERIC NACE2J1D (F2.0). RECODE NACE2J1D_ ('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) ('R'=18) ('S'=19) ('T'=20) ('U'=21) (' '=-1) ('9'=-2) INTO NACE2J1D. * 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. * COURLEN. NUMERIC COURLEN (F3.0). RECODE COURLEN_ ('001'=1) ('002'=2) ('003'=3) ('004'=4) ('005'=5) ('006'=6) ('007'=7) ('008'=8) ('009'=9) ('010'=10) ('011'=11) ('012'=12) ('014'=14) ('015'=15) ('016'=16) ('017'=17) ('018'=18) ('020'=20) ('021'=21) ('022'=22) ('023'=23) ('024'=24) ('025'=25) ('026'=26) ('027'=27) ('028'=28) ('030'=30) ('032'=32) ('034'=34) ('035'=35) ('036'=36) ('038'=38) ('039'=39) ('040'=40) ('042'=42) ('043'=43) ('044'=44) ('045'=45) ('048'=48) ('050'=50) ('051'=51) ('052'=52) ('054'=54) ('055'=55) ('056'=56) ('058'=58) ('060'=60) ('062'=62) ('063'=63) ('064'=64) ('065'=65) ('068'=68) ('070'=70) ('072'=72) ('075'=75) ('076'=76) ('080'=80) ('084'=84) ('088'=88) ('090'=90) ('092'=92) ('096'=96) ('100'=100) ('120'=120) ('124'=124) ('126'=126) ('130'=130) ('140'=140) ('150'=150) ('152'=152) ('160'=160) ('2,0'=2) ('3,0'=3) ('999'=999) INTO COURLEN. * 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. * NACE1Y1D. NUMERIC NACE1Y1D (F2.0). RECODE NACE1Y1D_ ('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) ('R'=18) ('S'=19) ('T'=20) ('U'=21) (' '=-1) ('9'=-2) INTO NACE1Y1D. * HATLFATH. NUMERIC HATLFATH (F1.0). RECODE HATLFATH_ ('L'=1) ('M'=2) ('H'=3) ('9'=-2) ('8'=8) (' '=-1) INTO HATLFATH. * HATLMOTH. NUMERIC HATLMOTH (F1.0). RECODE HATLMOTH_ ('L'=1) ('M'=2) ('H'=3) ('9'=-2) ('8'=8) (' '=-1) INTO HATLMOTH. EXECUTE. *--- Recode Missing Values ---. RECODE MARSTAT AGERESID HHPRIV ESEG1D ESEG2D (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 NA112JS NA11PRS NA111YS DURUNE EDUC4WN LENTR4W PURP4W HATVOC EDUCVOC HATLFATH HATLMOTH AHM2005_TYPECARE AHM2005_REGCARE AHM2005_CHANGORG AHM2005_NOWRECHI AHM2005_REDUCT AHM2005_NOWRECAR AHM2005_POSSTEND AHM2005_POSORGWT AHM2005_TIMEOFF AHM2005_PARLEAVE AHM2005_NOPLREAS (SYSMIS=-1) (9=-2). RECODE SIZEFIRM MSTARTWK HWUSUAL HWACTUAL HWOVERP HWOVERPU HOURREAS HWWISH HWACTUA2 MONTHPR LEAVREAS HAT97LEV METHFW HWUSTRAI COUNTRYW INCDECIL (SYSMIS=-1) (99=-2). RECODE ISCOPR3D EDUCFILD COURLEN COURFILD HATFIELD ISCO1D ISCOPR1D ISCO3D STARTIME LEAVTIME IS881D IS88PR1D IS883D IS88PR3D HAT11LEV (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). RECODE HHCHILDR HHWKSTAT HHPARTNR HHPARENT HHPERS (SYSMIS=-4) (9=-2). RECODE HHAGE14 HHAGEYG HHNBPERS HHNB0014 HHNBOLD HHNBCHLD HHNBCH2 HHNBCH5 HHNBCH8 HHNBCH11 HHNBCH14 HHNBCH17 HHNBCH24 HHCOMP HHNBEMPL HHNBUNEM HHNBINAC HHNBWORK (SYSMIS=-4) (99=-2). EXECUTE. *--- Recode Variables in Countries which did not deliver any Information for this Variable ---. DO REPEAT var=SIGNISAL EDUCFILD COURFILD HATFIELD HHSEQNUM SEX NATIONAL YEARESID COUNTRYB PROXY WSTATOR NOWKREAS STAPRO NACE1D NA111D ISCO3D IS883D COUNTRYW YSTARTWK MSTARTWK FTPT TEMP TEMPDUR HWUSUAL HWACTUAL HWOVERP HWOVERPU HOURREAS WISHMORE HWWISH LOOKOJ EXIST2J STAPRO2J NACE2J1D NA112J1D HWACTUA2 EXISTPR YEARPR MONTHPR STAPROPR NACEPR1D NA11PR1D ISCOPR3D IS88PR3D SEEKWORK SEEKTYPE SEEKDUR METHODA METHODB METHODC METHODD METHODE METHODF METHODG METHODH METHODI METHODJ METHODK METHODL METHODM WANTWORK AVAILBLE EDUCSTAT EDUCLEVL COURATT COURLEN HAT97LEV HAT11LEV HATVOC EDUCVOC REFYEAR REFWEEK INTWEEK COUNTRY DEGURBA HHTYPE HHINST INTWAVE INTQUEST COEFF YEAR REM HHPRIV AGE AGERESID ILOSTAT STARTIME LEAVTIME LEAVCLAS DURUNE NA11S ISCO1D IS881D NA112JS NA11PRS ISCOPR1D IS88PR1D EDUC4WN HATLEV1D HHLINK HHSPOU HHFATH HHMOTH MARSTAT SUPVISOR SIZEFIRM WAYJFOUN FTPTREAS TEMPREAS TEMPAGCY SHIFTWK EVENWK NIGHTWK SATWK SUNWK WAYMORE HOMEWK LOOKREAS LEAVREAS SEEKREAS AVAIREAS PRESEEK NEEDCARE REGISTER MAINSTAT COURPURP COURWORH HATYEAR WSTAT1Y STAPRO1Y NACE1Y1D NA111Y1D NA111YS COUNTR1Y INCDECIL ESEG1D ESEG2D HWUSTRAI METHFW PURP4W LENTR4W HHPERS HHPARENT HHPARTNR HHCHILDR HATLFATH HATLMOTH HHNBPERS HHNB0014 HHNBOLD HHNBCHLD HHNBCH2 HHNBCH5 HHNBCH8 HHNBCH11 HHNBCH14 HHNBCH17 HHNBCH24 HHAGEYG HHAGE14 HHCOMP HHNBWORK HHNBEMPL HHNBUNEM HHNBINAC HHWKSTAT AHM2005_TYPECARE AHM2005_REGCARE AHM2005_CHANGORG AHM2005_NOWRECHI AHM2005_REDUCT AHM2005_NOWRECAR AHM2005_POSSTEND AHM2005_POSORGWT AHM2005_TIMEOFF AHM2005_PARLEAVE AHM2005_NOPLREAS / varx=x1 TO x177. 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 x177 (SYSMIS=-5) (ELSE=COPY). NUMERIC x178 x179 x180 (F1.0). COMPUTE x178=0. COMPUTE x179=0. COMPUTE x180=0. EXECUTE. IF (REGION='-1' OR REGION='-2' OR REGION='-3' OR REGION='-4' OR REGION='-5' OR REGION='-9' OR REGION=' ') x178=-1. IF (REGIONW='-1' OR REGIONW='-2' OR REGIONW='-3' OR REGIONW='-4' OR REGIONW='-5' OR REGIONW='-9' OR REGIONW=' ') x179=-1. IF (REGION1Y='-1' OR REGION1Y='-2' OR REGION1Y='-3' OR REGION1Y='-4' OR REGION1Y='-5' OR REGION1Y='-9' OR REGION1Y=' ') x180=-1. EXECUTE. AGGREGATE OUTFILE=* MODE=ADDVARIABLES OVERWRITE=YES / x1 TO x180=MAX(x1 TO x180). EXECUTE. DO REPEAT var=SIGNISAL EDUCFILD COURFILD HATFIELD HHSEQNUM SEX NATIONAL YEARESID COUNTRYB PROXY WSTATOR NOWKREAS STAPRO NACE1D NA111D ISCO3D IS883D COUNTRYW YSTARTWK MSTARTWK FTPT TEMP TEMPDUR HWUSUAL HWACTUAL HWOVERP HWOVERPU HOURREAS WISHMORE HWWISH LOOKOJ EXIST2J STAPRO2J NACE2J1D NA112J1D HWACTUA2 EXISTPR YEARPR MONTHPR STAPROPR NACEPR1D NA11PR1D ISCOPR3D IS88PR3D SEEKWORK SEEKTYPE SEEKDUR METHODA METHODB METHODC METHODD METHODE METHODF METHODG METHODH METHODI METHODJ METHODK METHODL METHODM WANTWORK AVAILBLE EDUCSTAT EDUCLEVL COURATT COURLEN HAT97LEV HAT11LEV HATVOC EDUCVOC REFYEAR REFWEEK INTWEEK COUNTRY DEGURBA HHTYPE HHINST INTWAVE INTQUEST COEFF YEAR REM HHPRIV AGE AGERESID ILOSTAT STARTIME LEAVTIME LEAVCLAS DURUNE NA11S ISCO1D IS881D NA112JS NA11PRS ISCOPR1D IS88PR1D EDUC4WN HATLEV1D HHLINK HHSPOU HHFATH HHMOTH MARSTAT SUPVISOR SIZEFIRM WAYJFOUN FTPTREAS TEMPREAS TEMPAGCY SHIFTWK EVENWK NIGHTWK SATWK SUNWK WAYMORE HOMEWK LOOKREAS LEAVREAS SEEKREAS AVAIREAS PRESEEK NEEDCARE REGISTER MAINSTAT COURPURP COURWORH HATYEAR WSTAT1Y STAPRO1Y NACE1Y1D NA111Y1D NA111YS COUNTR1Y INCDECIL ESEG1D ESEG2D HWUSTRAI METHFW PURP4W LENTR4W HHPERS HHPARENT HHPARTNR HHCHILDR HATLFATH HATLMOTH HHNBPERS HHNB0014 HHNBOLD HHNBCHLD HHNBCH2 HHNBCH5 HHNBCH8 HHNBCH11 HHNBCH14 HHNBCH17 HHNBCH24 HHAGEYG HHAGE14 HHCOMP HHNBWORK HHNBEMPL HHNBUNEM HHNBINAC HHWKSTAT AHM2005_TYPECARE AHM2005_REGCARE AHM2005_CHANGORG AHM2005_NOWRECHI AHM2005_REDUCT AHM2005_NOWRECAR AHM2005_POSSTEND AHM2005_POSORGWT AHM2005_TIMEOFF AHM2005_PARLEAVE AHM2005_NOPLREAS / varx=x1 TO x177. IF (varx<0) var=-3. END REPEAT. EXECUTE. DO REPEAT var=REGION REGIONW REGION1Y / varx=x178 x179 x180. IF (varx<0) var="-3". END REPEAT. EXECUTE. DELETE VARIABLES x1 TO x180. EXECUTE. *--- Recode or Rename Variabels in Specific Cases ---. * none. *--- Declare User-Missing Values ---. MISSING VALUES SIGNISAL EDUCFILD COURFILD HATFIELD HHSEQNUM SEX NATIONAL YEARESID COUNTRYB PROXY WSTATOR NOWKREAS STAPRO NACE1D NA111D ISCO3D IS883D COUNTRYW YSTARTWK MSTARTWK FTPT TEMP TEMPDUR HWUSUAL HWACTUAL HWOVERP HWOVERPU HOURREAS WISHMORE HWWISH LOOKOJ EXIST2J STAPRO2J NACE2J1D NA112J1D HWACTUA2 EXISTPR YEARPR MONTHPR STAPROPR NACEPR1D NA11PR1D ISCOPR3D IS88PR3D SEEKWORK SEEKTYPE SEEKDUR METHODA METHODB METHODC METHODD METHODE METHODF METHODG METHODH METHODI METHODJ METHODK METHODL METHODM WANTWORK AVAILBLE EDUCSTAT EDUCLEVL COURATT COURLEN HAT97LEV HAT11LEV HATVOC EDUCVOC REFYEAR REFWEEK INTWEEK COUNTRY DEGURBA HHTYPE HHINST INTWAVE INTQUEST COEFF YEAR REM HHPRIV AGE AGERESID ILOSTAT STARTIME LEAVTIME LEAVCLAS DURUNE NA11S ISCO1D IS881D NA112JS NA11PRS ISCOPR1D IS88PR1D EDUC4WN HATLEV1D HHLINK HHSPOU HHFATH HHMOTH MARSTAT SUPVISOR SIZEFIRM WAYJFOUN FTPTREAS TEMPREAS TEMPAGCY SHIFTWK EVENWK NIGHTWK SATWK SUNWK WAYMORE HOMEWK LOOKREAS LEAVREAS SEEKREAS AVAIREAS PRESEEK NEEDCARE REGISTER MAINSTAT COURPURP COURWORH HATYEAR WSTAT1Y STAPRO1Y NACE1Y1D NA111Y1D NA111YS COUNTR1Y INCDECIL ESEG1D ESEG2D HWUSTRAI METHFW PURP4W LENTR4W HHPERS HHPARENT HHPARTNR HHCHILDR HATLFATH HATLMOTH HHNBPERS HHNB0014 HHNBOLD HHNBCHLD HHNBCH2 HHNBCH5 HHNBCH8 HHNBCH11 HHNBCH14 HHNBCH17 HHNBCH24 HHAGEYG HHAGE14 HHCOMP HHNBWORK HHNBEMPL HHNBUNEM HHNBINAC HHWKSTAT AHM2005_TYPECARE AHM2005_REGCARE AHM2005_CHANGORG AHM2005_NOWRECHI AHM2005_REDUCT AHM2005_NOWRECAR AHM2005_POSSTEND AHM2005_POSORGWT AHM2005_TIMEOFF AHM2005_PARLEAVE AHM2005_NOPLREAS (-9 THRU -1). EXECUTE. *--- Delete Recoded Alphanumeric Variables ---. DELETE VARIABLES COUNTRY_ REGION_ COUNTRYB_ COUNTRYW_ REGIONW_ COUNTR1Y_ REGION1Y_ NATIONAL_ NA111Y1D_ NA111D_ NA112J1D_ YEARESID_ NA11PR1D_ HATLEV1D_ NACE1D_ NACE1Y1D_ NACE2J1D_ NACEPR1D_ COURLEN_ HATLFATH_ HATLMOTH_. EXECUTE. *--- Define Variable and Value Labels ---. INCLUDE FILE=!QUOTE(!label_syntax_path). *--- Sort Variables ---. MATCH FILES FILE =* / KEEP=RELEASE QHHNUM HHNUM HHSEQNUM SEX NATIONAL YEARESID COUNTRYB PROXY WSTATOR NOWKREAS STAPRO SIGNISAL NACE1D NA111D ISCO3D IS883D COUNTRYW REGIONW YSTARTWK MSTARTWK FTPT TEMP TEMPDUR HWUSUAL HWACTUAL HWOVERP HWOVERPU HOURREAS WISHMORE HWWISH LOOKOJ EXIST2J STAPRO2J NACE2J1D NA112J1D HWACTUA2 EXISTPR YEARPR MONTHPR STAPROPR NACEPR1D NA11PR1D ISCOPR3D IS88PR3D SEEKWORK SEEKTYPE SEEKDUR METHODA METHODB METHODC METHODD METHODE METHODF METHODG METHODH METHODI METHODJ METHODK METHODL METHODM WANTWORK AVAILBLE EDUCSTAT EDUCLEVL COURATT COURLEN HAT97LEV HAT11LEV HATVOC EDUCVOC REFYEAR REFWEEK INTWEEK COUNTRY REGION DEGURBA HHTYPE HHINST INTWAVE INTQUEST COEFF YEAR QUARTER REM HHPRIV AGE AGERESID ILOSTAT STARTIME LEAVTIME LEAVCLAS DURUNE NA11S ISCO1D IS881D NA112JS NA11PRS ISCOPR1D IS88PR1D EDUC4WN HATLEV1D HHLINK HHSPOU HHFATH HHMOTH MARSTAT SUPVISOR SIZEFIRM WAYJFOUN FTPTREAS TEMPREAS TEMPAGCY SHIFTWK EVENWK NIGHTWK SATWK SUNWK WAYMORE HOMEWK LOOKREAS LEAVREAS SEEKREAS AVAIREAS PRESEEK NEEDCARE REGISTER MAINSTAT EDUCFILD COURPURP COURFILD COURWORH HATFIELD HATYEAR WSTAT1Y STAPRO1Y NACE1Y1D NA111Y1D NA111YS COUNTR1Y REGION1Y INCDECIL ESEG1D ESEG2D HWUSTRAI METHFW PURP4W LENTR4W HHPERS HHPARENT HHPARTNR HHCHILDR HATLFATH HATLMOTH HHNBPERS HHNB0014 HHNBOLD HHNBCHLD HHNBCH2 HHNBCH5 HHNBCH8 HHNBCH11 HHNBCH14 HHNBCH17 HHNBCH24 HHAGEYG HHAGE14 HHCOMP HHNBWORK HHNBEMPL HHNBUNEM HHNBINAC HHWKSTAT AHM2005_TYPECARE AHM2005_REGCARE AHM2005_CHANGORG AHM2005_NOWRECHI AHM2005_REDUCT AHM2005_NOWRECAR AHM2005_POSSTEND AHM2005_POSORGWT AHM2005_TIMEOFF AHM2005_PARLEAVE AHM2005_NOPLREAS. *--- 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.