* First read in WERS 2004 Cross-Section MQ data (XS04_MQ.SAV) .

********************** .
* Create WPSTR04
********************** .

* Identifies the stratum of the sampling matrix from which the workplace was sampled.

* Values can be mapped to Table 2.1 in the WERS 2004 Technical Report (numbers ascend across the size categories ow
* before moving to the next industry sector, as follows:

* wpstr04==1 ---> IDBR employment=5-9 emps & IDBR industry=SIC(2003) Section D
* wpstr04==2 ---> IDBR employment=10-24 emps & IDBR industry=SIC(2003) Section D

* Strata in which there is only one observation are collapsed with an adjacent stratum, as Stata does
* not allow one PSU per strata. This is done in such a way that the strata variable can be
* used with the full sample for each of the WERS Cross-Section datasets (MQ, ERQ, SEQ, FPQ) .

do if cell_no<=17 .
+ compute wpstr04=cell_no .
else if cell_no>=18 .
+ compute wpstr04=cell_no+1 .
end if .

recode wpstr04 (11,12=13) (17=16) (19 thru 21=22) (25,26=27) (36=35) (37=38) (40=41) (44=43) 
	(59=60) (64=65) (82=83) (107=108) .