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

#delimit;

* Slovenian LES 1994 : Example CAMSIS matching ;
* Occ var index is isco88, used is fj04 with isco88 in 4 dig;
* Slovene CAMSIS uses employment status 0 - unknown, 
*  1 - self-employed, 6 - employee ; 

use $si94e;
* Current occ unit (isco88)=fj04; 

*  Employment status info from fj02 ;
gen empst=fj02;
recode empst 1 2 4=1 3=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 db02;
gen isco88=-999;
replace isco88=fj04 if (fj04 > 0 );
tabulate empst if (fj04 > 0 ), 
       summarize(isco88) mean standard freq ;
sort isco88 empst;
save cstemp, replace;
clear;
infile isco88 empst mcam fcam siops isei 
      using $mydata\camsis\cssles94.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 db02; 

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

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




* Quick assessment : compare values by an education recode;
gen educ=et01; 
recode educ   1 2=1 3 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 db02;
by db02:
  summarize educ 
      cgentcs  siops isei if fj04 > 0; 
by db02: 
 oneway cgentcs educ  if (fj04 > 0 & educ > 0), tabulate;
by db02: 
 oneway siops educ  if (fj04 > 0 & siops > 0 & educ > 0), tabulate;
by db02: 
 oneway isei educ  if (fj04 > 0 & isei > 0 & educ > 0), tabulate;