** user=**** 
** password=**** 
** package=stata
** project=les

#delimit;

* Slovenian LIS 1997 : Example CAMSIS matching ;
* Occ var index is isco88, used is pocc with submaj isco88 in 4 dig;
* Slovene CAMSIS uses employment status 0 - unknown, 
*  1 - self-employed, 6 - employee ; 
* CAMSIS index file used, though, comes from LES99;

* To repeat for Slovenia 1999 LIS use same camsis file but change
* LIS file to si99p;

use $si97p;
* Current occ unit (isco88)=pocc; 

*  Employment status info from plfs ;
gen empst=plfs;
recode empst 2 3=1 1=6 *=0;
label define stat 
   0 "Unknown" 
   1 "Self-employed"
   6 "Employee";
label values empst stat;
label variable empst "Employment status";
tab empst;
tab empst psex;
gen isco88=-999;
replace isco88=pocc if (pocc > 0 );
tabulate empst if (pocc > 0 ), 
       summarize(isco88) mean standard freq ;
sort isco88 empst;
save cstemp, replace;
clear;
infile isco88 empst mcam fcam siops isei 
      using $mydata\camsis\cssles99.dat;
summarize;
sort isco88 empst;
merge isco88 empst using cstemp;
gen occinfo=_merge;
tab occinfo; 
drop if (occinfo==1);
* (this removes those occbst values which are not represented in the LES sample);
tab occinfo psex; 

* Current CAMSIS values are within gender; 
* also can make a cross-gender CAMSIS variable : ;
gen cgentcs=-999;
replace cgentcs=mcam if (psex==1);
replace cgentcs=fcam if (psex==2);

summarize isco88 empst cgentcs  siops isei ;
summarize isco88 empst cgentcs  siops isei  if pocc > 0;
summarize isco88 empst cgentcs  siops isei  if (pocc > 0 & siops > 0); 



* Quick assessment : compare values by an education recode;
gen educ=peduc; 
recode educ   1 2 3=1 4 5=2 6 7 8=3 *=-9 ;
label define edu  
   1 "Primary or less" 2 "Intermediate" 
   3 "High or Degree level " -999 "Unknown"; 
label values educ edu;
label variable educ "education categories";
tab educ ;
sort psex;
by psex:
  summarize educ 
      cgentcs  siops isei if pocc > 0; 
by psex: 
 oneway cgentcs educ  if (pocc > 0 & educ > 0), tabulate;
by psex: 
 oneway siops educ  if (pocc > 0 & siops > 0 & educ > 0), tabulate;
by psex: 
 oneway isei educ  if (pocc > 0 & isei > 0 & educ > 0), tabulate;