*WERS 1998 SEQ derived variables for FF.sps.

*This syntax file should be run before running the tables and analysis using the 1998 SEQ variables in the 2005 First Findings publication.
*Last updated 31 July 2006.

*Before running this syntax, please ensure the file paths are changed throughout the file as necessary.
*These can be found by searching on the phrase 'Note file path' .
*Please note that it is also necessary to change the file paths in the separate file 'WERS 1998 MQ derived variables for FF.sps' for this syntax to run successfully .

************************************************.
*List of derived variables.
************************************************.
** Revised SEQ weight (sums to 100) (seqwtnr) .

***********************************************************************************************************************************.
*Run MQ derived variables syntax first as need to match this on to SEQ data in order to derive some of the variables.
***********************************************************************************************************************************.

*Note file path .
include 'C:\WERS\WERS 1998 MQ derived variables for FF.sps'.

*Note file path .

*Save.
save outfile='C:\WERS\WERS 1998 MQ with derived variables.sav'.

***********************************************.
*Open SEQ data file.
************************************************.
*Note file path .

IMPORT FILE='C:\WERS\seq98.por'.

*Note file path .

match files file=*/table='C:\WERS\WERS 1998 MQ with derived variables.sav'/by serno.
execute.


************************************************.
*Run seq98fix.sps.
************************************************.
TITLE 'WERS 98 DATA DISSEMINATION SERVICE' .
SUBTITLE 'SEQ98FIX.SPS' .

COMMENT	Purpose: 	Undertakes data edits described in SEQNOTES Version 1.2 (Jan 2001) .
COMMENT	Input file:	Seq98.sav .
COMMENT 	Output file: 	None specified .
COMMENT 	Written by: 	John Forth .
COMMENT  	Last updated: 	30/01/01 .
COMMENT	Software:	SPSS version 9.0 .

**************************************************** .

COMMENT	Syntax should be run once SEQ98 data file has already been opened  .

***************************************************** .

* Syntax in Version 1.1 of the Notes .

***************************************************** .

COMMENT	Need to read in this data file .

COMMENT	Drop 25 returns that originate from non-productive workplace .

select if serno~=13068 .
execute .

***************************************************** .

COMMENT	Compute new weight variable for 1998 (using estwtnr, which weights Zallemps and ASIC back to IDBR profile as shown in Technical Report) . 

compute enr=(estwtnr/est_wt) .
compute seqwtnr=((empwt_nr*enr)*100/1084) .

variable labels seqwtnr 'Revised SEQ weight (sums to 100)' .
exec .

delete vars enr estwtnr est_wt empwt_nr  .

***************************************************** .