Project

General

Profile

Support #1332 ยป jbiindb_dv_public.do

 
// Creates w_jbiindb_dv jblindb_dv - 2-digit Industry code, CNEF harmonised
// INPUT FILE - w_indresp.dta
// OUTPUT FILE - w_jbiindb_dv.dta

// STEP 1. WITHIN THE DOUBLE QUOTES INCLUDE THE FOLDER PATH WHERE YOU HAVE STORED THE DATA, I.E., UKHLS & BHPS FILES FOR SN6931
// AND CAN BE ACCESSED FROM HERE https://beta.ukdataservice.ac.uk/datacatalogue/studies/study?id=6931
glo myfolder ""

// Step 2. INCLUDE WAVE LETTERS FOR THE WAVES NEEDED
glo waveslist b c d e f g h i j k l

// Step 3. WITHIN THE DOUBLE QUOTES INCLUDE THE FOLDER PATH WHERE YOU WANT THE OUTPUT FILE TO BE SAVED
glo output ""



*************** DO NOT MAKE ANY CHANGES AFTER THIS POINT *******************

foreach w of global waveslist {

glo num=strpos("abcdefghijklmnopqrstuvwxyz","`w'")

if $cohort==1 {
glo waveno=$num
glo inpath "${myfolder}"
glo wave b`w'_
}
if $cohort==2 {
glo waveno=$num+18
glo inpath "${myfolder}"
glo wave `w'_
}

use pidp jbsic* jlsic* using "$inpath/${wave}indresp", clear

*Create 2-digit indicator for industry for head, wife and individual
foreach cat in jb jl {
if ${waveno}>=1 & ${waveno}<=11 {
ge ${wave}`cat'iindb=.
replace ${wave}`cat'iindb=1 if inrange(${wave}`cat'sic80,100,299)
replace ${wave}`cat'iindb=2 if inlist(${wave}`cat'sic80,300)
replace ${wave}`cat'iindb=3 if inrange(${wave}`cat'sic80,1115,1700)
replace ${wave}`cat'iindb=4 if inlist(${wave}`cat'sic80,1113,1114,2100) | inrange(${wave}`cat'sic80,2310,2396)
replace ${wave}`cat'iindb=5 if inrange(${wave}`cat'sic80,2511,2599)
replace ${wave}`cat'iindb=6 if inlist(${wave}`cat'sic80,2600)
replace ${wave}`cat'iindb=7 if inrange(${wave}`cat'sic80,2410,2489)
replace ${wave}`cat'iindb=8 if inrange(${wave}`cat'sic80,2210,2247) | inrange(${wave}`cat'sic80,3111,3169)
replace ${wave}`cat'iindb=9 if inrange(${wave}`cat'sic80,3204,3289) | inrange(${wave}`cat'sic80,3510,3560) | inlist(${wave}`cat'sic80,3301,3302)
replace ${wave}`cat'iindb=10 if inrange(${wave}`cat'sic80,3410,3480) | inrange(${wave}`cat'sic80,3710,3740)
replace ${wave}`cat'iindb=11 if inrange(${wave}`cat'sic80,4710,4754)
replace ${wave}`cat'iindb=12 if inrange(${wave}`cat'sic80,4310,4560) | inrange(${wave}`cat'sic80,4910,4959)
replace ${wave}`cat'iindb=13 if inrange(${wave}`cat'sic80,4115,4290)
replace ${wave}`cat'iindb=14 if inlist(${wave}`cat'sic80,5000)
replace ${wave}`cat'iindb=15 if inrange(${wave}`cat'sic80,5010,5040)
replace ${wave}`cat'iindb=16 if inrange(${wave}`cat'sic80,4610,4672) | inrange(${wave}`cat'sic80,4811,4836) | inrange(${wave}`cat'sic80,6110,6220)
replace ${wave}`cat'iindb=17 if inlist(${wave}`cat'sic80,6300)
replace ${wave}`cat'iindb=18 if inrange(${wave}`cat'sic80,6410,6560)
replace ${wave}`cat'iindb=19 if inlist(${wave}`cat'sic80,7100)
replace ${wave}`cat'iindb=20 if inlist(${wave}`cat'sic80,7901,7902) | inrange(${wave}`cat'sic80,9711,9760)
replace ${wave}`cat'iindb=21 if inrange(${wave}`cat'sic80,7210,7700)
replace ${wave}`cat'iindb=22 if inlist(${wave}`cat'sic80,8310) | inrange(${wave}`cat'sic80,8140,8150)
replace ${wave}`cat'iindb=23 if inlist(${wave}`cat'sic80,8200,8320)
replace ${wave}`cat'iindb=24 if inrange(${wave}`cat'sic80,6611,6670)
replace ${wave}`cat'iindb=25 if inrange(${wave}`cat'sic80,9811,9890)
replace ${wave}`cat'iindb=26 if inrange(${wave}`cat'sic80,9211,9230)
replace ${wave}`cat'iindb=27 if inrange(${wave}`cat'sic80,9310,9360) | inrange(${wave}`cat'sic80,9770,9791)
replace ${wave}`cat'iindb=28 if inrange(${wave}`cat'sic80,9510,9560)
replace ${wave}`cat'iindb=29 if inlist(${wave}`cat'sic80,8340,8350,8500)
replace ${wave}`cat'iindb=30 if inrange(${wave}`cat'sic80,6710,6730) | inrange(${wave}`cat'sic80,8360,8490) | inlist(${wave}`cat'sic80,9400)
replace ${wave}`cat'iindb=31 if inrange(${wave}`cat'sic80,9611,9690)
replace ${wave}`cat'iindb=32 if inlist(${wave}`cat'sic80,9900)
replace ${wave}`cat'iindb=33 if inlist(${wave}`cat'sic80,0000) | inrange(${wave}`cat'sic80,9111,9150)
replace ${wave}`cat'iindb=34 if inlist(${wave}`cat'sic80,9190)
replace ${wave}`cat'iindb=0 if ${wave}`cat'sic80==-8 | ${wave}`cat'sic80==-7
recode ${wave}`cat'iindb .=-9 if ${wave}`cat'sic80==-9
recode ${wave}`cat'iindb .=-1 if ${wave}`cat'sic80==-1
rename ${wave}`cat'iindb ${wave}`cat'iindb_dv
}

if ${waveno}>11 & ${waveno}<=18 {
ge ${wave}`cat'iindb=.
replace ${wave}`cat'iindb=1 if inrange(${wave}`cat'sic92,100,299)
replace ${wave}`cat'iindb=2 if inrange(${wave}`cat'sic92,500,599)
replace ${wave}`cat'iindb=3 if inrange(${wave}`cat'sic92,1000,1200)|inrange(${wave}`cat'sic92,2300,2339)|inrange(${wave}`cat'sic92,4000,4100)
replace ${wave}`cat'iindb=4 if inrange(${wave}`cat'sic92,1300,1459)
replace ${wave}`cat'iindb=5 if inrange(${wave}`cat'sic92,2400,2479)
replace ${wave}`cat'iindb=6 if inrange(${wave}`cat'sic92,2500,2524)
replace ${wave}`cat'iindb=7 if inrange(${wave}`cat'sic92,2600,2699)
replace ${wave}`cat'iindb=8 if inrange(${wave}`cat'sic92,2700,2759)
replace ${wave}`cat'iindb=9 if inrange(${wave}`cat'sic92,2800,2979) | inrange(${wave}`cat'sic92,3400,3559)
replace ${wave}`cat'iindb=10 if inrange(${wave}`cat'sic92,3000,3359)
replace ${wave}`cat'iindb=11 if inrange(${wave}`cat'sic92,2100,2239)
replace ${wave}`cat'iindb=12 if inrange(${wave}`cat'sic92,1700,1999) | inrange(${wave}`cat'sic92,3620,3669)
replace ${wave}`cat'iindb=13 if inrange(${wave}`cat'sic92,1500,1600)
replace ${wave}`cat'iindb=14 if inrange(${wave}`cat'sic92,4500,4525)
replace ${wave}`cat'iindb=15 if inrange(${wave}`cat'sic92,4530,4559)
replace ${wave}`cat'iindb=16 if inrange(${wave}`cat'sic92,2000,2059) | inrange(${wave}`cat'sic92,3600,3615) | inrange(${wave}`cat'sic92,3700,3720)| inrange(${wave}`cat'sic92,5121,5179)
replace ${wave}`cat'iindb=17 if inrange(${wave}`cat'sic92,5100,5119)
replace ${wave}`cat'iindb=18 if inrange(${wave}`cat'sic92,5000,5010) | inrange(${wave}`cat'sic92,5030,5050) | inrange(${wave}`cat'sic92,5200,5263)
replace ${wave}`cat'iindb=19 if inlist(${wave}`cat'sic92,6010)
replace ${wave}`cat'iindb=20 if inlist(${wave}`cat'sic92,6400,6420) | inrange(${wave}`cat'sic92,9200,9272)
replace ${wave}`cat'iindb=21 if inrange(${wave}`cat'sic92,6020,6340)
replace ${wave}`cat'iindb=22 if inrange(${wave}`cat'sic92,6500,6523) | inrange(${wave}`cat'sic92,6710,6713)
replace ${wave}`cat'iindb=23 if inrange(${wave}`cat'sic92,6600,6603) | inlist(${wave}`cat'sic92,6720)
replace ${wave}`cat'iindb=24 if inrange(${wave}`cat'sic92,5500,5552)
replace ${wave}`cat'iindb=25 if inrange(${wave}`cat'sic92,9300,9305)
replace ${wave}`cat'iindb=26 if inlist(${wave}`cat'sic92,9000)
replace ${wave}`cat'iindb=27 if inrange(${wave}`cat'sic92,7300,7320) | inrange(${wave}`cat'sic92,8000,8042) |inrange(${wave}`cat'sic92,9250,9272)
replace ${wave}`cat'iindb=28 if inrange(${wave}`cat'sic92,8500,8520)
replace ${wave}`cat'iindb=29 if inrange(${wave}`cat'sic92,7000,7032)
replace ${wave}`cat'iindb=30 if inrange(${wave}`cat'sic92,5270,5279) | inrange(${wave}`cat'sic92,7100,7260) | inrange(${wave}`cat'sic92,7400,7484)| inlist(${wave}`cat'sic92,5020)
replace ${wave}`cat'iindb=31 if inrange(${wave}`cat'sic92,8530,8532)
replace ${wave}`cat'iindb=32 if inlist(${wave}`cat'sic92,9500)
replace ${wave}`cat'iindb=33 if inlist(${wave}`cat'sic92,9900) | inrange(${wave}`cat'sic92,7500,7525)
replace ${wave}`cat'iindb=34 if inlist(${wave}`cat'sic92,7530)
replace ${wave}`cat'iindb=0 if ${wave}`cat'sic92==-8 | ${wave}`cat'sic92==-7
recode ${wave}`cat'iindb .=-9 if ${wave}`cat'sic92==-9
recode ${wave}`cat'iindb .=-1 if ${wave}`cat'sic92==-1
rename ${wave}`cat'iindb ${wave}`cat'iindb_dv
}
if ${waveno}>=19 {
gen ${wave}`cat'iindb=1 if ${wave}`cat'sic07_cc==1 | ${wave}`cat'sic07_cc==2
replace ${wave}`cat'iindb=2 if ${wave}`cat'sic07_cc==3
replace ${wave}`cat'iindb=3 if ${wave}`cat'sic07_cc==35 | ${wave}`cat'sic07_cc==36 | ${wave}`cat'sic07_cc==6 | ${wave}`cat'sic07_cc==23 | ${wave}`cat'sic07_cc==37
replace ${wave}`cat'iindb=4 if ${wave}`cat'sic07_cc==5 | ${wave}`cat'sic07_cc==7 | ${wave}`cat'sic07_cc==8 | ${wave}`cat'sic07_cc==9 | ///
(${wave}`cat'sic07>=19200 & ${wave}`cat'sic07<19300)
replace ${wave}`cat'iindb=5 if ${wave}`cat'sic07_cc==20 | ${wave}`cat'sic07_cc==21
replace ${wave}`cat'iindb=6 if (${wave}`cat'sic07>=22100 & ${wave}`cat'sic07<22300)
replace ${wave}`cat'iindb=7 if ${wave}`cat'sic07_cc==23
replace ${wave}`cat'iindb=8 if ${wave}`cat'sic07_cc==24
replace ${wave}`cat'iindb=9 if ${wave}`cat'sic07_cc==25 | ${wave}`cat'sic07_cc==28 | ${wave}`cat'sic07_cc==29 | ${wave}`cat'sic07_cc==30 | ///
(${wave}`cat'sic07>=33110 & ${wave}`cat'sic07<33130) | (${wave}`cat'sic07>=33200 & ${wave}`cat'sic07<33300) ///
| (${wave}`cat'sic07>=45200 & ${wave}`cat'sic07<45300) | ${wave}`cat'sic07==27520
replace ${wave}`cat'iindb=10 if ${wave}`cat'sic07_cc==26 | (${wave}`cat'sic07_cc==27 & ${wave}`cat'sic07!=27520) | (${wave}`cat'sic07>=33130 & ${wave}`cat'sic07<33150)| ///
(${wave}`cat'sic07>=95100 & ${wave}`cat'sic07<95200) | (${wave}`cat'sic07>=95210 & ${wave}`cat'sic07<95220)
replace ${wave}`cat'iindb=11 if ${wave}`cat'sic07_cc==16 | ${wave}`cat'sic07_cc==17 | ${wave}`cat'sic07_cc==18 | ${wave}`cat'sic07_cc==31 | ///
${wave}`cat'sic07_cc==58 | (${wave}`cat'sic07>=95240 & ${wave}`cat'sic07<95250)
replace ${wave}`cat'iindb=12 if ${wave}`cat'sic07_cc==13 | ${wave}`cat'sic07_cc==14 | ${wave}`cat'sic07_cc==15 | ${wave}`cat'sic07_cc==32 | ///
(${wave}`cat'sic07>=33190 & ${wave}`cat'sic07<33200) | (${wave}`cat'sic07>=95220 & ${wave}`cat'sic07<95240) ///
|(${wave}`cat'sic07>=95250 & ${wave}`cat'sic07<95260) | (${wave}`cat'sic07>=95290 & ${wave}`cat'sic07<95300) ///
|(${wave}`cat'sic07>=74100 & ${wave}`cat'sic07<74200)
replace ${wave}`cat'iindb=13 if ${wave}`cat'sic07_cc==10 | ${wave}`cat'sic07_cc==11 | ${wave}`cat'sic07_cc==12
replace ${wave}`cat'iindb=14 if ${wave}`cat'sic07_cc==41 | ${wave}`cat'sic07_cc==42
replace ${wave}`cat'iindb=15 if ${wave}`cat'sic07_cc==43
replace ${wave}`cat'iindb=16 if (${wave}`cat'sic07>=46200 & ${wave}`cat'sic07<47000) | ${wave}`cat'sic07==45310
replace ${wave}`cat'iindb=17 if (${wave}`cat'sic07>=46100 & ${wave}`cat'sic07<46200)
replace ${wave}`cat'iindb=18 if ${wave}`cat'sic07_cc==47 | (${wave}`cat'sic07>=45100 & ${wave}`cat'sic07<45200) | (${wave}`cat'sic07>=45311 & ${wave}`cat'sic07<45500)
replace ${wave}`cat'iindb=19 if (${wave}`cat'sic07>=49100 & ${wave}`cat'sic07<49300) | ${wave}`cat'sic07==49311 | ///
${wave}`cat'sic07==52211 | ${wave}`cat'sic07==52212
replace ${wave}`cat'iindb=20 if ${wave}`cat'sic07_cc==53 | ${wave}`cat'sic07_cc==60 | ${wave}`cat'sic07_cc==61 | ${wave}`cat'sic07_cc==90 | ///
${wave}`cat'sic07_cc==91 | (${wave}`cat'sic07>=74200 & ${wave}`cat'sic07<74300) | (${wave}`cat'sic07>=59100 & ${wave}`cat'sic07<59300)
replace ${wave}`cat'iindb=21 if ${wave}`cat'sic07_cc==50 | ${wave}`cat'sic07_cc==51 | (${wave}`cat'sic07_cc==52 & ${wave}`cat'sic07!=52211 & ${wave}`cat'sic07!=52212) | ///
${wave}`cat'sic07_cc==79 | (${wave}`cat'sic07>=33150 & ${wave}`cat'sic07<33180) | ///
(${wave}`cat'sic07>=49300 & ${wave}`cat'sic07<49600 & ${wave}`cat'sic07!=49311 )
replace ${wave}`cat'iindb=22 if ${wave}`cat'sic07_cc==64 | (${wave}`cat'sic07>=66100 & ${wave}`cat'sic07<66200) | ///
(${wave}`cat'sic07>=66300 & ${wave}`cat'sic07<66400) | ${wave}`cat'sic07==70221 | ///
(${wave}`cat'sic07>=69100 & ${wave}`cat'sic07<69200)
replace ${wave}`cat'iindb=23 if ${wave}`cat'sic07_cc==65 | (${wave}`cat'sic07>=66200 & ${wave}`cat'sic07<66300)
replace ${wave}`cat'iindb=24 if ${wave}`cat'sic07_cc==55 | ${wave}`cat'sic07_cc==56
replace ${wave}`cat'iindb=25 if ${wave}`cat'sic07_cc==96
replace ${wave}`cat'iindb=26 if ${wave}`cat'sic07_cc==38 | ${wave}`cat'sic07_cc==39
replace ${wave}`cat'iindb=27 if ${wave}`cat'sic07_cc==85 | ${wave}`cat'sic07_cc==93 | ${wave}`cat'sic07_cc==72 | ${wave}`cat'sic07_cc==92
replace ${wave}`cat'iindb=28 if ${wave}`cat'sic07_cc==86 | ${wave}`cat'sic07_cc==75
replace ${wave}`cat'iindb=29 if ${wave}`cat'sic07_cc==68 | (${wave}`cat'sic07>=69100 & ${wave}`cat'sic07<69300)
replace ${wave}`cat'iindb=30 if ${wave}`cat'sic07_cc==62 | ${wave}`cat'sic07_cc==63 | (${wave}`cat'sic07_cc==70 & ${wave}`cat'sic07!=70221) | ${wave}`cat'sic07_cc==71 | ///
${wave}`cat'sic07_cc==80 | ${wave}`cat'sic07_cc==81 | ${wave}`cat'sic07_cc==82 | ///
${wave}`cat'sic07_cc==77 | ${wave}`cat'sic07_cc==78 | (${wave}`cat'sic07>=74300 & ${wave}`cat'sic07<74400) | ///
(${wave}`cat'sic07>=74900 & ${wave}`cat'sic07<75000) | (${wave}`cat'sic07>=73100 & ${wave}`cat'sic07<73300)
replace ${wave}`cat'iindb=31 if ${wave}`cat'sic07_cc==87 | ${wave}`cat'sic07_cc==88 | ${wave}`cat'sic07_cc==94
replace ${wave}`cat'iindb=32 if ${wave}`cat'sic07_cc==97 | ${wave}`cat'sic07_cc==98
replace ${wave}`cat'iindb=33 if (${wave}`cat'sic07>=84100 & ${wave}`cat'sic07<84300) | ${wave}`cat'sic07_cc==99
replace ${wave}`cat'iindb=34 if (${wave}`cat'sic07>=84300 & ${wave}`cat'sic07<84400)
replace ${wave}`cat'iindb=0 if ${wave}`cat'sic07==-8| ${wave}`cat'sic07==-7
recode ${wave}`cat'iindb .=-9 if ${wave}`cat'sic07==-9
recode ${wave}`cat'iindb .=-1 if ${wave}`cat'sic07==-1
rename ${wave}`cat'iindb ${wave}`cat'iindb_dv
}
}

foreach cat in jb jl {
lab def ${wave}`cat'iindb_dv -9 "missing, wild" ///
-1 "don't know" ///
0 "Not Applicable 0" ///
1 "Agric.,Forestry 1" /// 1-2
2 "Fisheries 2" /// 3 ///
3 "Energy/Water 3" /// 35 36 6 23 37 ///
4 "Mining 4" /// 5, 7, 8, 9, 19.2 ///
5 "Chemicals 5" /// 20 21 ///
6 "Synthetics 6" /// 22.1 22.2 ///
7 "Earth/Clay/Ston 7" /// 23 ///
8 "Iron/Steel 8" /// 24 ///
9 "Mechanical Eng. 9" /// 25 28 29 30 33.11 33.12 33.2 45.2 27.520 ///
10 "Electrical Eng 10" /// 26 27 (excludes 27.520, which is in mechanical) 33.13 33.14 95.1 95.21 /// 27520
11 "Wood/Paper/Prit 11" /// 16, 17, 18, 31, 58 95.24 ///
12 "Clothing/Text. 12" /// 13, 14, 15 32 33.19 95.22 95.23 95.25 95.29 74.1 ///
13 "Food Industry 13" /// 10, 11, 12 ///
14 "Construction 14" /// 41 42 ///
15 "Constr. Relate 15" /// 43 ///
16 "Wholesale 16" /// 45.310 46.2 46.3 46.4 46.5 46.6 46.7 46.9 ///
17 "Trading Agents 17" /// 46.10 ///
18 "Retail 18" /// 47 45.1 45.3 45.4 ///
19 "Train System 19" /// 49.1 49.2 49.311 \ 52.211 52.212 ///
20 "Communication/Entertainment 20" /// 53 60 61 90 91 74.2 59.1 59.2 (used to be labeled Postal System) ///
21 "Other Trans. 21" /// 50 51 52 (excl 52211&52.212) 79 33.15 33.16 33.17 49.3 (excl 49.311) 49.4 49.5 /// Includes art and culture, which is a bit strange to me
22 "Financial Inst 22" /// 64 66.1 66.3 69.1 70221 ///
23 "Insurance 23" /// 65 66.2 ///
24 "Restaurants 24" /// 55 56 ///
25 "Service Indust 25" /// 96 ///
26 "Trash Removal 26" /// 38 39 ///
27 "Educ./Sport 27" /// 85 93 72 92 /// includes Gambling and betting activities: a bit strange to me
28 "Health Service 28" /// 86 75 ///
29 "Legal Services 29" /// 68 69.1 69.2 ///
30 "Other Services 30" /// 62 63 70 (excludes 70221) 71 80 81 82 77 78 74.3 74.9 73.1 73.2 ///
31 "Volunt./Church 31" /// 87 88 94 /// care is included here (I would put it in health)
32 "Priv. Househld 32" /// 97 98 ///
33 "Public Admin. 33" /// 84.1 84.2 99///
34 "Social Sec. 34" /* 84.3 */, replace
lab def ${wave}`cat'iindb_dv -7"proxy respondent", add // needed for jliindb_dv
lab val ${wave}`cat'iindb_dv ${wave}`cat'iindb_dv
recode ${wave}`cat'iindb_dv (-8=0)
}

label var ${wave}jbiindb_dv "Current job: Industrial classification (CNEF), two digits"
label var ${wave}jliindb_dv "Last job: Industrial classification (CNEF), two digits"
label dat "Industrial classification (CNEF), two digits"
preserve
keep pidp ${wave}jbiindb_dv ${wave}jliindb_dv
order pidp ${wave}jbiindb_dv ${wave}jliindb_dv
save ${outpath}/${wave}jbiindb_dv, replace
restore
}
    (1-1/1)