An Examination of the Lithuanian Labour Market during the first quarter of 2004

gen econ =int(k7/10);

gen agfish=1 if econ<=5;

replace agfish=0 if agfish==.;

gen manufac=1 if econ>=15 & econ<=37;

replace manufac=0 if manufac==.;

gen electric=1 if econ==40;

replace electric=1 if econ==41;

replace electric=0 if electric==.;

gen mineconst=1 if econ==45;

replace mineconst=1 if econ==10;

replace mineconst=1 if econ==11;

replace mineconst=1 if econ==12;

replace mineconst=1 if econ==13;

replace mineconst=1 if econ==14;

replace mineconst=0 if mineconst==.;

gen retail=1 if econ==50;

replace retail=1 if econ==51;

replace retail=1 if econ==52;

replace retail=0 if retail==.;

gen hotel=1 if econ==55;

replace hotel=0 if hotel==.;

gen finance=1 if econ>=65 & econ<=74;

replace finance=0 if finance==.;

gen pubadmin=1 if econ==75;

replace pubadmin=0 if pubadmin==.;

gen educa=1 if econ==80;

replace educa=0 if educa==.;

gen health=1 if econ==85;

replace health=0 if health==.;

gen service=1 if econ>=90 & econ~=.;

replace service=0 if service==.;

gen transport=1 if econ>=60 & econ<=64;

replace transport=0 if transport==.;

gen sector=1 if agfish==1;

replace sector=2 if manufac==1;

replace sector=3 if electric==1;

replace sector=4 if mineconst==1;

replace sector=5 if retail==1;

replace sector=6 if hotel==1;

replace sector=7 if finance==1;

replace sector=8 if pubadmin==1;

replace sector=9 if educa==1;

replace sector=10 if health==1;

replace sector=11 if service==1;

******************************* Occupation at 2 digit level *************************;

*1110 are senior legislators and government officials but we only have listed 110 which I think is a mistake. Should

be 1110 NOT 110;

replace k8=1110 if k8==110;

gen occ= int(k8/1000);

gen admin=1 if occ==1;

replace admin=0 if admin==.;

gen prof=1 if occ==2;

replace prof=0 if prof==.;

gen clerk=1 if occ==3;

replace clerk=0 if clerk==.;

gen sell=1 if occ==4;

replace sell=0 if sell==.;

gen agfishocc=1 if occ==5;

replace agfishocc=0 if agfishocc==.;

gen craft=1 if occ==6;

replace craft=0 if craft==.;

gen plant=1 if occ==7;

replace plant=0 if plant==.;

gen element=1 if occ==8;

replace element=0 if element==.;

***************************** Location of where the Individual lives *******************;

destring territory_code, replace;

gen alytus_=1 if territory_code==110 | territory_code==150 | territory_code==334 | territory_code==594 | territory_code==384 | territory_code==157 | territory_code==337 | territory_code==597 | territory_code==387;

replace alytus_=0 if alytus_==.;

gen kaunas_=1 if territory_code==190 | territory_code==120 | territory_code==464 | territory_code==494 | territory_code==524 | territory_code==534| territory_code==694 | territory_code==724 | territory_code==127 | territory_code==467 | territory_code==497 | territory_code==527 | territory_code==537 | territory_code==697 | territory_code==727;

replace kaunas_=0 if kaunas_==.;

gen klaipeda_=1 if territory_code==210 | territory_code==230 | territory_code==250 | territory_code==554 | territory_code==564 | territory_code==754 | territory_code==884 | territory_code==557 | territory_code==567 | territory_code==757 | territory_code==887;

replace klaipeda_=0 if klaipeda_==.;

gen marijampole_=1 if territory_code==180 | territory_code==484 | territory_code==584 | territory_code==844 | territory_code==394 | territory_code==187 | territory_code==487 | territory_code==587 | territory_code==847 | territory_code==397;

replace marijampole_=0 if marijampole_==.;

gen panevezys_=1 if territory_code==270 | territory_code==364 | territory_code==574 | territory_code==664 | territory_code==674 | territory_code==734 | territory_code==367 | territory_code==577 | territory_code==667 | territory_code==677 | territory_code==737;

replace panevezys_=0 if panevezys_==.;

gen siauliai_=1 if territory_code==290 | territory_code==324 | territory_code==474 | territory_code==544 | territory_code==654 | territory_code==714 | territory_code==914 | territory_code==327 | territory_code==477 | territory_code==547 | territory_code==657 | territory_code==717 | territory_code==917;

replace siauliai_=0 if siauliai_==.;

gen taurage_=1 if territory_code==944 | territory_code==634 | territory_code==874 | territory_code==774 | territory_code==947 | territory_code==637 | territory_code==877 | territory_code==777;

replace taurage_=0 if taurage_==.;

gen telsiai_=1 if territory_code==614 | territory_code==684 | territory_code==744 | territory_code==784 | territory_code==617 | territory_code==687 | territory_code==747 | territory_code==787;

replace telsiai_=0 if telsiai_==.;

gen utena_=1 if territory_code==300 | territory_code==344 | territory_code==454 | territory_code==624 | territory_code==824 | territory_code==434 | territory_code==347 | territory_code==457 | territory_code==627 | territory_code==827 | territory_code==437;

replace utena_=0 if utena_==.;

gen vilnius_=1 if territory_code==010 | territory_code==134 | territory_code==424 | territory_code==854 | territory_code==894 | territory_code==864 | territory_code==794 | territory_code==814 | territory_code==414| territory_code==137| territory_code==427| territory_code==857| territory_code==897 | territory_code==867 | territory_code==797 | territory_code==817 | territory_code==417;

replace vilnius_=0 if vilnius_==.;

assert loc_~=0;

****************************** One variable for territory of where the Individual LIVES *************;

gen loc_=1 if vilnius_==1;

recode loc_ .=0;

recode loc_ 0=2 if alytus_==1;

recode loc_ 0=3 if kaunas_==1;

recode loc_ 0=4 if klaipeda_==1;

recode loc_ 0=5 if marijampole_==1;

recode loc_ 0=6 if panevezys_==1;

recode loc_ 0=7 if siauliai_==1;

recode loc_ 0=8 if taurage_==1;

recode loc_ 0=9 if telsiai_==1;

recode loc_ 0=10 if utena_==1;

assert loc_~=0;