*WERS 2004 ERQ FF tables.sps .

*Tables syntax for the WERS 2004 cross-section employee representatives survey.

*This file creates the tables and analysis based on the ERQ contained in the 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 files 'WERS 2004 MQ derived variables for FF.sps' and 'WERS 2004 ERQ derived variables for FF.sps' for this syntax to run successfully .

********************************************************************.
*User must first run derived variables syntax for ERQ .

*Note file path .

include 'C:\WERS\WERS 2004 ERQ derived variables for FF.sps'.
********************************************************************.

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

*Then select only those workplaces with 10 or more employees.

USE ALL.
FILTER BY filter_$.
EXECUTE .

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

********************************************************************.
*Apply weights.
weight by wrqwtnr.

********************************************************************.
*Tables syntax follows.
********************************************************************.
***************************************************************.
*The roles and activities of employee representatives.
***************************************************************.

* Time spent on representative duties. 

WEIGHT by wrqwtnr.
tables 
	/format blank missing('.')
	/ftotal base1 'Base' total1 'All workplaces'
	/autolabel=on
 	/table (xreptyp2 + xreptyp3 + total1) by (xhours3 + base1) 
	/statistics cpct(xhours3(f3) '':xreptyp2 xreptyp3) count(base1 'Weighted') u count(base1 'Unweighted') 
 	/table (nprivate + nsicode + total1) by (xhours3 + base1) by xreptyp2
	/statistics cpct(xhours3(f3) '':nprivate nsicode xreptyp2) count(base1 'Weighted') u count(base1 'Unweighted') .

* Public sector union representatives spending one hour or less per week on rep duties, by sector .

temp .
select if xreptyp2=1 and xhours3=1 and nprivate=2.
freq vars=nsicode .

* Hours spent on representative duties (excluding education sector) .

WEIGHT by wrqwtnr.
temp .
select if nsicode~=10 .
tables 
	/format blank missing('.')
	/ftotal base1 'Base' total1 'All workplaces'
	/autolabel=on
 	/table (nprivate + nsicode + total1) by (xhours3 + base1) by xreptyp2
	/statistics cpct(xhours3(f3) '':nprivate) count(base1 'Weighted') u count(base1 'Unweighted') .

* Whether full-time on representative duties .

WEIGHT by wrqwtnr.
tables 
	/format blank missing('.')
	/ftotal base1 'Base' total1 'All workplaces'
	/autolabel=on
 	/table (xreptyp2 + xreptyp3 + total1) by (xftrep + base1) 
	/statistics cpct(xftrep(f3) '':xreptyp2 xreptyp3) count(base1 'Weighted') u count(base1 'Unweighted') .

* Full-time representatives by type and sector .

WEIGHT by wrqwtnr.
temp .
select if xftrep=1 .
freq vars=xreptyp2 nprivate nsicode .


* Issues representatives spent time on .

WEIGHT by wrqwtnr.
tables 
	/format blank missing('.')
	/ftotal base1 'Base' total1 'All workplaces'
	/autolabel=on
 	/table (xreptyp2 + xreptyp3 + total1) by (xisstc + base1) 
	/statistics cpct(xisstc(f3) '':xreptyp2 xreptyp3) count(base1 'Weighted') u count(base1 'Unweighted') 
 	/table (xreptyp2 + xreptyp3 + total1) by (xisssds + base1) 
	/statistics cpct(xisssds(f3) '':xreptyp2 xreptyp3) count(base1 'Weighted') u count(base1 'Unweighted') 
 	/table (xreptyp2 + xreptyp3 + total1) by (xissid + base1) 
	/statistics cpct(xissid(f3) '':xreptyp2 xreptyp3) count(base1 'Weighted') u count(base1 'Unweighted') 
 	/table (xreptyp2 + xreptyp3 + total1) by (xissw + base1) 
	/statistics cpct(xissw(f3) '':xreptyp2 xreptyp3) count(base1 'Weighted') u count(base1 'Unweighted') 
 	/table (xreptyp2 + xreptyp3 + total1) by (ximpiss2 + base1) 
	/statistics cpct(ximpiss2(f3) '':xreptyp2 xreptyp3) count(base1 'Weighted') u count(base1 'Unweighted') .

* Frequency of most important issue representative spent time on in last 12 months  .

weight by wrqwtnr .
tables 
	/format blank missing('.')
	/ftotal base1 'Base' total1 'All workplaces'
	/autolabel=on
	/table (ximpiss + base1)  by nallest
	/statistics cpct(ximpiss(f3) '': nallest) count(base1 'Weighted') u count(base1 'Unweighted') .

* Recruitment of new members .

WEIGHT by wrqwtnr.
freq vars=wjtried .
temp .
select if value(xrectyp)~=-1 and xreptyp2=1 .
freq vars=wjtried xrectyp .

* Success of recruitment attempts .

WEIGHT by wrqwtnr.
temp .
select if value(xrectyp)~=-1 and xreptyp2=1 and wjinfill=1.
freq vars=wjinrec .
WEIGHT by wrqwtnr.
temp .
select if value(xrectyp)~=-1 and xreptyp2=1 and wjexpan=1.
freq vars=wjexprec .

* Whether paid for time spent on representative duties .

WEIGHT by wrqwtnr.
tables 
	/format blank missing('.')
	/ftotal base1 'Base' total1 'All workplaces'
	/autolabel=on
 	/table (xreptyp2 + xreptyp3 + total1) by (wapayhrs + base1) 
	/statistics cpct(wapayhrs(f3) '':xreptyp2 xreptyp3) count(base1 'Weighted') u count(base1 'Unweighted') 
 	/table (xreptyp2>xhours3 + total1) by (wapayhrs + base1) 
	/statistics cpct(wapayhrs(f3) '':xreptyp2 xhours3) count(base1 'Weighted') u count(base1 'Unweighted') .


* Provision of facilities .

WEIGHT by wrqwtnr.
tables 
	/format blank missing('.')
	/ftotal base1 'Base' total1 'All workplaces'
	/autolabel=on
	/table (nallest + xreptyp2 + xreptyp3 + total1) by (xfacoff + base1) 
	/statistics cpct(xfacoff(f3) '': xreptyp2 xreptyp3) count(base1 'Weighted') u count(base1 'Unweighted') 
	/table (nallest + xreptyp2 + xreptyp3 + total1) by (xfacequip + base1) 
	/statistics cpct(xfacequip(f3) '':xreptyp2 xreptyp3) count(base1 'Weighted') u count(base1 'Unweighted') 
	/table (nallest + xreptyp2 + xreptyp3 + total1) by (xfacmeet + base1) 
	/statistics cpct(xfacmeet(f3) '':xreptyp2 xreptyp3) count(base1 'Weighted') u count(base1 'Unweighted') 
	/table (nallest + xreptyp2 + xreptyp3 + total1) by (xfacemail + base1) 
	/statistics cpct(xfacemail(f3) '':xreptyp2 xreptyp3) count(base1 'Weighted') u count(base1 'Unweighted') 
	/table (nallest + xreptyp2 + xreptyp3 + total1) by (xfacnet + base1) 
	/statistics cpct(xfacnet(f3) '':xreptyp2 xreptyp3) count(base1 'Weighted') u count(base1 'Unweighted') 
	/table (nallest + xreptyp2 + xreptyp3 + total1) by (xfacoth + base1) 
	/statistics cpct(xfacoth(f3) '':xreptyp2 xreptyp3) count(base1 'Weighted') u count(base1 'Unweighted') 
	/table (nallest + xreptyp2 + xreptyp3 + total1) by (xfacnone + base1) 
	/statistics cpct(xfacnone(f3) '':xreptyp2 xreptyp3) count(base1 'Weighted') u count(base1 'Unweighted') .


* Receipt of training .

WEIGHT by wrqwtnr.
tables 
	/format blank missing('.')
	/ftotal base1 'Base' total1 'All workplaces'
	/autolabel=on
	/table (nallest + xreptyp2 + xreptyp3 + total1) by (wetraini + base1) 
	/statistics cpct(wetraini(f3) '': xreptyp2 xreptyp3) count(base1 'Weighted') u count(base1 'Unweighted') 
	/table (nallest + xreptyp2 + xreptyp3 + total1) by (wemanpai + base1) 
	/statistics cpct(wemanpai(f3) '':xreptyp2 xreptyp3) count(base1 'Weighted') u count(base1 'Unweighted') .

* All lone union reps only .

WEIGHT by wrqwtnr.
freq vars=wbnumrep .
temp .
select if wbnumrep=2 .
tables 
	/format blank missing('.')
	/ftotal base1 'Base' total1 'All workplaces'
	/autolabel=on
	/table (nallest + xreptyp2 + xreptyp3 + total1) by (wetraini + base1) 
	/statistics cpct(wetraini(f3) '': xreptyp2 xreptyp3) count(base1 'Weighted') u count(base1 'Unweighted') .


* Characteristics of senior union reps who are ULRS, from WRQ .

WEIGHT by wrqwtnr.
temp .
select if xreptyp2=1 .
freq vars=waulr .
tables 
	/format blank missing('.')
	/ftotal base1 'Base' total1 'All workplaces'
	/autolabel=on
	/mrgroup waprot "issues spent time on" waprot01 to xwaprot3
	/table (nallest + waulr + total1) by (xhours3 + base1) 
	/statistics cpct(xhours3(f3) '': waulr) count(base1 'Weighted') u count(base1 'Unweighted') 
	/table (nallest + waulr + total1) by (wapayhrs + base1) 
	/statistics cpct(wapayhrs(f3) '': waulr) count(base1 'Weighted') u count(base1 'Unweighted') .


* Trust .

** Figure 4 Extent of trust between managers and employee representatives .

*Managers and union representatives .

WEIGHT by wrqwtnr.
temp .
select if any(xreptyp6,1,3)=1 .
tables 
	/format blank missing('.')
	/ftotal base1 'Base' total1 'All workplaces'
	/autolabel=on
	/table (nallest + hitrustmu + total1) by (hitrustw + base1) 
	/statistics cpct(hitrustw(f3) '') count(base1 'Weighted') u count(base1 'Unweighted') .

*Managers and non-union representatives .

WEIGHT by wrqwtnr.
temp .
select if xreptyp2=2 . 
tables 
	/format blank missing('.')
	/ftotal base1 'Base' total1 'All workplaces'
	/autolabel=on
	/table (nallest + hitrustmnu + total1) by (hitrustw + base1) 
	/statistics cpct(hitrustw(f3) '') count(base1 'Weighted') u count(base1 'Unweighted') .

* How many managers participate in either of these tables (needed for base of managers) .

temp .
select if missing(hitrustw)=0 and (missing(hitrustmu)=0 or missing(hitrustmnu)=0) .
aggregate outfile=*
	/break=serno
	/nummgr=nu .
freq vars=nummgr. 

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