*WERS 1998 MQ derived variables for FF.sps. *This syntax file derives the 1998 MQ variables used in the 2004 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' . ************************************************. *List of derived variables. ************************************************. ** All workplaces dummy (Nallest) . ** Collapsed private / public sector variable (Nprivate). ** Interaction of industry and ownership (Nsector3) . ** Size of workplace - banded (Nempsize, Nallwkpl). ** Status - single site or part of a larger organisation (Nsingle). ** Size of organization - banded (Norgsize). ** Trade union density - continuous, banded (Ndensity; Ndens). ** Union recognition (Nrecog; Nrecog1) . ** Probability that a female emp is in managerial position cf probability that a male emp is in a managerial position (Nmgtsex; Nmgtbd) . ** Female under-representation in management (controlling for employment share) - 2 bands (nfmgt2) . ** Male under-representation in management (controlling for employment share) - 2 bands (nmmgt2) . ** Proportion of part-time employees - continuous and banded (Nprtprop, Nptprop). ** Employees on fixed-term contracts (Nfixterm) . ** Occupational dummies (zmng_dum to zrou_dum) . ** The largest occupational group as identified on the EPQ (Nhiocc). ** Number of SOC Major Groups present at workplace (Nnumocc) . ** Number of occupations receiving personality test (Nnumpers) . ** Employees eligible for a personality test (Npsontst) . ** How many occupations have performance tests (Nnumperf) . ** Employees eligible for a performance test (Npperftst) . ** System of appraisals (Napprais) . ** Proportion of non-managerial employees who are appraised (Nmapprai) . ** Formal off the job training for experienced employees in LOG (Ntrain) . ** At least 60% of LOG are functionally flexible (Nfunc) . ** Teamworking, communication, problem-solving (Ntrgrup1b) . ** Union density: banded (Ndens3) . ** Access to lay rep, on site or elsewhere in organisation (nerep) ** Types of joint consultative committee (Nanycomm) . ** Team briefings where held solely on workplace-wide basis and no other basis (Nwkteam) . ** Methods used to communicate with employees (Ncometh1, Ncometh2) . ** Meetings of all types: with entire workforce or between workers and their supervisors (Nmeet). ** Workplace operates a suggestion scheme (Nsuggest) . ** Number of methods of pay determination (all employees) (Npaynum2) . ** Method of pay determination for all employees (Npaydet2; Nbarg92) . ** Any collective bargaining, all employees (Nanycb2) . ** Any set by management, all employees (Nsetman2) . ** Any individual negotiation, all employees (Nindnego2) . ** Any 'other methods of pay determination', all employees (Nopay2) . ** Percentage of workforce who have their pay set by multi-employer bargaining (Ncbmulta) . ** Percentage of workforce who have their pay set by single employer collective bargaining (Ncborga) . ** Percentage of workforce who have their pay set by workplace collective bargaining (Ncbworka) . ** Percentage of workforce who have their pay set by management at higher level (Nsetorga) . ** Percentage of workforce who have their pay set by management at workplace (Nsetworka) . ** Percentage of workforce who have their pay set by individual negotiation (Nindnega) . ** Percentage of workforce who have their pay set by pay review body/other (Npayreva) . ** Sum of pay setting arrangements, all employees (Npaysuma) . ** Single status for pension entitlements (Nsstatu1) . ** Single status for company car entitlements (Nsstatu2) . ** Single status for health insurance entitlements (Nsstatu3) . ** Single status for 4+ wks annual paid leave entitlements (Nsstatu4) . ** Single status for ext-stat sick pay entitlements (Nsstatu5) . ** Single status: managers and other employees have equal conditions (Nss2, Nss3) . ** Any industrial action in last year (Nstrike) **NB: Not just strikes ** . ** Any threatened industrial action during last 12 months (Nthretsk) . ** IT claim in past year (Nitclaim) . ** Rate of IT cases per 1,000 (Nitrate) . ** ET claims per 1000 employees brought in the preceeding year - banded (itrateband) . ** EO policy covering equality of treatment or discrimination (Nipolicy) . ************************************************. *Open MQ data file. ************************************************. *Note file path . IMPORT FILE='C:\WERS\mq98fin.por'/drop=nempsize norgsize . ************************************************************************************************************************************* . *Need to match in non-response weights and derived variables which need restricted data (contained in fsocfix.sps). ************************************************************************************************************************************* . COMMENT Match on new weight variable for 1998 Weights Zallemps and ASIC back to IDBR profile as shown in Technical Report, including an adjustment to boost smaller workplaces within 10-24 band, to provide comparable data to 2004 10+ sample Derived in "Exploring possibility of reweighting 1998 to mimic inclusion of IDBR 5-9s.sps" . *Note file path . match files file=* /table="C:\WERS\1998 dvs requiring restricted data and nr weights.sav"/by serno. execute. ************************************************************************************************************************************** . *Run the fixes - no need to run fsocfix.sps because the derived variables contained in this file are matched in earlier. ************************************************************************************************************************************** . *mq98fix.sps **************************************************************** . COMMENT Relabels values and recodes missing values on CLONGHR and CLONGDY . missing values clonghr (99) . value labels clonghr 99 'Dont know' . missing values clongdy (98, 99) . value labels clongdy 98 'Not answered' 99 'Dont know' . execute . COMMENT Recode eligible cases with sysmis value on DHIGHLEV . do if ((asingle=1 and aconhead=2) or asingle=3) and sysmis(dhighlev). + recode dhighlev (sysmis=8) . end if . execute . COMMENT Relabel DOTHWAY and add missing values . value labels dothway1 to dothway5 0 "None / No" 1 "Through managers" 2 "Suggestion schemes" 3 "Staff meetings / committees" 4 "Staff representatives" 5 "Staff notices" 6 "Other specific answer, not codeable to 0-5" 97 "Other vague answer, not codeable to 0-6" 98 "Dont know" 99 "Not answered" . missing values dothway1 (98,99) . execute . COMMENT Recode EMOSTMEM in three cases . do if any(serno,12080,12807,12871) . + recode emostmem (1=99) . end if . execute . COMMENT Recode eligible case with sysmis value on KSTAMAR . do if (missing(kstamar) and serno=14425) . + compute kstamar=8 . end if . execute . ************************************************************** . COMMENT Additions in Version 1,2 of the Notes . ************************************************************* . COMMENT Sets missing values where have not been on variable ZPRO_FPT . missing values zpro_fpt (99999, 99998) . execute . *********************************************************** . COMMENT Recodes missing values to zero for those cases identified in the work on the EPQ data, i.e. where they are missing but the data adds up so variables that are missing should actually read zero . missing values zmalfull to zrou_tot () . do if serno=11005 . + recode zmng_mft (99999=0) . + recode zmng_mpt (99999=0) . + recode zcle_mft (99999=0) . + recode zcle_mpt (99999=0) . + recode zcrt_mft (99999=0) . + recode zcrt_mpt (99999=0) . + recode zptc_mft (99999=0) . + recode zptc_mpt (99999=0) . + recode zsal_mft (99999=0) . + recode zsal_mpt (99999=0) . + recode zope_mft (99999=0) . + recode zope_fft (99999=0) . + recode zope_mpt (99999=0) . + recode zope_fpt (99999=0) . + recode zrou_mft (99999=0) . + recode zrou_mpt (99999=0) . end if . do if serno=11125 . + recode zmng_mpt (99999=0) . + recode zpro_mpt (99999=0) . + recode ztec_mpt (99999=0) . + recode zcle_mpt (99999=0) . + recode zcrt_mpt (99999=0) . + recode zptc_mpt (99999=0) . + recode zope_mpt (99999=0) . + recode zrou_mpt (99999=0) . end if . do if serno=11337 . + recode zcle_mft (99999=0) . + recode zcle_fft (99999=0) . end if . do if serno=11417 . + recode zmng_mpt (99999=0) . + recode zmng_fpt (99999=0) . + recode zcle_mpt (99999=0) . + recode zcle_fpt (99999=0) . + recode zcrt_mpt (99999=0) . + recode zcrt_fpt (99999=0) . + recode zptc_mft (99999=0) . + recode zptc_fft (99999=0) . + recode zptc_mpt (99999=0) . + recode zptc_fpt (99999=0) . + recode zsal_mft (99999=0) . + recode zsal_fft (99999=0) . + recode zsal_mpt (99999=0) . + recode zsal_fpt (99999=0) . + recode zrou_mpt (99999=0) . + recode zrou_fpt (99999=0) . end if . do if serno=11581 . + recode zmng_mft (99998=0) . + recode zmng_mpt (99998=0) . + recode zmng_fpt (99998=0) . + recode zpro_mft (99998=0) . + recode zpro_fft (99998=0) . + recode zpro_mpt (99998=0) . + recode zpro_fpt (99998=0) . + recode zpro_tot (999999=0) . + recode zcle_mft (99998=0) . + recode zcle_fft (99998=0) . + recode zcle_mpt (99998=0) . + recode zcle_fpt (99998=0) . + recode zcle_tot (999999=0) . + recode zcrt_mft (99998=0) . + recode zcrt_fft (99998=0) . + recode zcrt_mpt (99998=0) . + recode zcrt_fpt (99998=0) . + recode zcrt_tot (999999=0) . + recode zptc_mft (99998=0) . + recode zptc_fft (99998=0) . + recode zptc_mpt (99998=0) . + recode zptc_fpt (99998=0) . + recode zptc_tot (999999=0) . + recode zsal_mft (99998=0) . + recode zsal_fft (99998=0) . + recode zsal_mpt (99998=0) . + recode zsal_fpt (99998=0) . + recode zsal_tot (999999=0) . + recode zope_mft (99998=0) . + recode zope_fft (99998=0) . + recode zope_mpt (99998=0) . + recode zope_fpt (99998=0) . + recode zope_tot (999999=0) . + recode zrou_mft (99998=0) . + recode zrou_fft (99998=0) . + recode zrou_mpt (99998=0) . end if . do if serno=11590 . + recode zpro_mpt (99999=0) . + recode zpro_fpt (99999=0) . + recode zpro_tot (999999=0) . + recode ztec_mpt (99999=0) . + recode ztec_fpt (99999=0) . + recode ztec_tot (999999=0) . + recode zcrt_mpt (99999=0) . + recode zcrt_fpt (99999=0) . + recode zcrt_tot (999999=0) . + recode zptc_mpt (99999=0) . + recode zptc_fpt (99999=0) . + recode zptc_tot (999999=0) . + recode zsal_mpt (99999=0) . + recode zsal_fpt (99999=0) . + recode zsal_tot (999999=0) . + recode zope_mpt (99999=0) . + recode zope_fpt (99999=0) . + recode zope_tot (999999=0) . end if . do if serno=11703 . + recode zmng_mpt (99999=0) . + recode zpro_mpt (99999=0) . + recode ztec_mpt (99999=0) . + recode zcle_mpt (99999=0) . + recode zcrt_mpt (99999=0) . + recode zope_mpt (99999=0) . + recode zrou_mpt (99999=0) . end if . do if serno=12009 . + recode ztec_mft (99999=0) . + recode ztec_fft (99999=0) . + recode ztec_mpt (99999=0) . + recode ztec_fpt (99999=0) . + recode zptc_mpt (99999=0) . + recode zptc_fpt (99999=0) . + recode zope_mft (99999=0) . + recode zope_fft (99999=0) . + recode zope_mpt (99999=0) . + recode zope_fpt (99999=0) . end if . do if serno=12902 . + recode zsal_tot (999999=0) . + recode zope_tot (999999=0) . end if . do if serno=12911 . + recode ztec_fpt (99999=0) . + recode zcle_mpt (99999=0) . + recode zcle_fpt (99999=0) . + recode zcrt_fpt (99999=0) . + recode zsal_mpt (99999=0) . + recode zsal_fpt (99999=0) . + recode zope_fpt (99999=0) . end if . do if serno=12763 . + recode zpro_tot (999999=0) . + recode ztec_tot (999999=0) . + recode zcrt_tot (999999=0) . + recode zptc_tot (999999=0) . + recode zrou_tot (999999=0) . end if . do if serno=12881 . + recode zmng_mft (99999=0) . + recode zmng_mpt (99999=0) . + recode zmng_fpt (99999=0) . end if . do if serno=12883 . + recode ztec_mpt (99999=0) . + recode zcrt_mpt (99999=0) . + recode zope_mpt (99999=0) . end if . do if serno=12902 . + recode zcrt_tot (999999=0) . + recode zrou_tot (999999=0) . end if . do if serno=12911 . + recode zmng_mpt (99999=0) . + recode zmng_fpt (99999=0) . + recode zpro_mpt (99999=0) . + recode zpro_fpt (99999=0) . + recode ztec_mpt (99999=0) . + recode zcrt_mpt (99999=0) . + recode zope_mpt (99999=0) . end if . do if serno=13231 . + recode zmng_mft (99998=0) . + recode zmng_fft (99998=0) . + recode zmng_mpt (99998=0) . + recode zmng_fpt (99998=0) . + recode zpro_mft (99998=0) . + recode zpro_fft (99998=0) . + recode zpro_mpt (99998=0) . + recode zpro_fpt (99998=0) . + recode ztec_mft (99998=0) . + recode ztec_fft (99998=0) . + recode ztec_mpt (99998=0) . + recode ztec_fpt (99998=0) . + recode zcrt_mft (99998=0) . + recode zcrt_fft (99998=0) . + recode zcrt_mpt (99998=0) . + recode zcrt_fpt (99998=0) . + recode zptc_mft (99998=0) . + recode zptc_fft (99998=0) . + recode zptc_mpt (99998=0) . + recode zptc_fpt (99998=0) . + recode zsal_mft (99998=0) . + recode zsal_fft (99998=0) . + recode zsal_mpt (99998=0) . + recode zsal_fpt (99998=0) . + recode zope_mft (99998=0) . + recode zope_fft (99998=0) . + recode zope_mpt (99998=0) . + recode zope_fpt (99998=0) . + recode zrou_mft (99998=0) . + recode zrou_fft (99998=0) . + recode zrou_mpt (99998=0) . + recode zrou_fpt (99998=0) . end if . do if serno=13308 . + recode zmng_mpt (99999=0) . + recode zmng_fpt (99999=0) . + recode zpro_mpt (99999=0) . + recode zpro_fpt (99999=0) . + recode zcle_mpt (99999=0) . + recode zcle_fpt (99999=0) . + recode zcrt_mpt (99999=0) . + recode zcrt_fpt (99999=0) . + recode zptc_mpt (99999=0) . + recode zptc_fpt (99999=0) . + recode zsal_mpt (99999=0) . + recode zsal_fpt (99999=0) . + recode zope_mpt (99999=0) . + recode zope_fpt (99999=0) . + recode zrou_mpt (99999=0) . + recode zrou_fpt (99999=0) . end if . do if serno=13341 . + recode zptc_mft (99999=0) . + recode zptc_fft (99999=0) . + recode zptc_mpt (99999=0) . + recode zptc_fpt (99999=0) . + recode zsal_mft (99999=0) . + recode zsal_fft (99999=0) . + recode zsal_mpt (99999=0) . + recode zsal_fpt (99999=0) . + recode zope_mft (99999=0) . + recode zope_fft (99999=0) . + recode zope_mpt (99999=0) . + recode zope_fpt (99999=0) . end if . execute . missing values zmalfull to zrou_tot (99997,99998,99999) . missing values zmng_tot zpro_tot ztec_tot zcle_tot zcrt_tot zptc_tot zsal_tot zope_tot zrou_tot (999997, 999998,999999) . execute . *********************************************************** . COMMENT Sets missing values where have not been on variable ADDRESS2 . missing values address2 (9) . execute . COMMENT Sets CLASSIF to missing where value is 97 (refers to 'Lots but dont know how many') . missing values classif (97, 98, 99) . value labels classif 97 'Lots but dont know how many' . execute . COMMENT Sets user missing values to missing and labels them for the variable EUNIONA1 Also adds missing value labels for two unions . missing values euniona1 (999) . add value labels euniona1 to eunioa10 42 'ASTMS' 58 'CLEARING BANK UNION' 999 'DK/NA' . execute . COMMENT Recodes case to missing for etotrec where total should not have been calculated as euionum, eniona1 and erecog01 are all missing . do if serno=11990 . + recode etotrec (0=sysmis) (else=copy) . end if . execute . COMMENT Recodes the blank case in FTYPEAP7 . recode ftypeap7 (8=5) (else=copy) . execute . COMMENT Labels the variables HRESOLV1-2 . variable labels hresolv1 hresolv2 "If an employee has a problem with some aspect of their working conditions, how do they resolve it?" . COMMENT Sets missing value that has not been set for IPATERN and labels it . value labels ipatern 97 'Vague answer' . missing values ipatern (97,98,99) . execute . COMMENT Sets missing value that has not been set for JDURATIO and labels it . value labels jduratio 97 'Vague answer' . missing values jduratio (97,98,99) . execute . COMMENT Sets the missing value 9 to missing for the variable mqloc . missing values mqloc (9) . execute . **************************************************************** . *recogfix.sps. **************************************************************** . COMMENT Purpose: Edits the recognition data in state schools in the 1998 Cross-Section Management data file, to erase recognition for teaching unions where pay is actually set by a Pay Review Body (for further details see endnote 24 on Ch 10 in Britain at Work; endnote 13 on Ch 4 of All Change at Work?) . COMMENT Cases where the number of recognised unions is recoded to zero . numeric nrecflg1 (f2.0) . numeric nrecflg2 (f2.0) . do if serno=11237 . + recode erecog01 erecog02 (1=2) . + recode etotrec (2=0) . + recode emostmem ejoint egroups (else=sysmis) . + recode enum5yr (2=0) . + recode esteward estewext (2=sysmis) . + recode ltypinv1 (3=sysmis) . + compute nrecflg1=1 . + compute nrecflg2=0 . end if . do if serno=11239 . + recode erecog01 erecog02 erecog03 (1=2) . + recode etotrec (3=0) . + recode emostmem ejoint (else=sysmis) . + recode enum5yr (3=0) . + recode esteward estewext (2=sysmis) . + recode ltypinv1 (5=sysmis) . + compute nrecflg1=1 . + compute nrecflg2=0 . end if . do if serno=11304 . + recode erecog01 erecog02 (1=2) . + recode etotrec (2=0) . + recode emostmem ejoint (else=sysmis) . + recode enum5yr (2=0) . + recode esteward estewnum estewtim (else=sysmis) . + recode eothreps (2=1) . + recode enumreps echosen1 (sysmis=3) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=1 . + compute nrecflg2=1 . end if . do if serno=11378 . + recode erecog01 erecog02 (1=2) . + recode etotrec (2=0) . + recode emostmem ejoint (else=sysmis) . + recode enum5yr (2=0) . + recode esteward estewnum estewtim (else=sysmis) . + recode eothreps (2=1) . + recode enumreps (sysmis=2) . + recode echosen1 (sysmis=3) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + recode ltypinv1 (4=sysmis) . + compute nrecflg1=1 . + compute nrecflg2=0 . end if . do if serno=11915 . + recode erecog01 erecog02 erecog03 (1=2) . + recode etotrec (3=0) . + recode emostmem ejoint (else=sysmis) . + recode enum5yr (3=0) . + recode esteward estewnum estewtim (else=sysmis) . + recode eothreps (2=1) . + recode enumreps (sysmis=4) . + recode echosen1 (sysmis=3) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + recode ltypinv1 (5=sysmis) . + compute nrecflg1=1 . + compute nrecflg2=0 . end if . do if serno=12143 . + recode erecog01 erecog02 erecog03 (1=2) . + recode etotrec (3=0) . + recode emostmem ejoint egroups (else=sysmis) . + recode enum5yr (3=0) . + recode esteward estewnum estewtim (else=sysmis) . + recode eothreps (2=1) . + recode enumreps (sysmis=2) . + recode echosen1 (sysmis=3) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + recode ltypinv1 (5=sysmis) . + compute nrecflg1=1 . + compute nrecflg2=1 . end if . do if serno=12817 . + recode erecog01 erecog02 (1=2) . + recode etotrec (2=0) . + recode emostmem (99=sysmis) . + recode ejoint (9=sysmis) . + recode esteward (2=sysmis) . + recode estewext (9=sysmis) . + recode ltypinv1 (5=sysmis) . + compute nrecflg1=1 . + compute nrecflg2=0 . end if . do if serno=12840 . + recode erecog01 erecog02 erecog03 erecog04 erecog05 (1=2) . + recode etotrec (5=0) . + recode emostmem ejoint (else=sysmis) . + recode enum5yr (5=0) . + recode esteward estewext (else=sysmis) . + recode ltypinv1 (3=sysmis) . + compute nrecflg1=1 . + compute nrecflg2=0 . end if . do if serno=12923 . + recode erecog01 erecog02 erecog03 erecog04 erecog05 (1=2) . + recode etotrec (5=0) . + recode emostmem (1=sysmis) . + recode ejoint (2=sysmis) . + recode egroups (5=sysmis) . + recode enum5yr (5=0) . + recode esteward (1=sysmis) . + recode estewnum (5=sysmis) . + recode estewtim (2=sysmis) . + recode eothreps (2=1) . + recode enumreps (sysmis=5) . + recode echosen1 (sysmis=3) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + recode epaya to eperfora (else=sysmis). + recode etalk5yr (1=sysmis) . + recode ewhymor1 (2=sysmis) . + recode ltypinv1 (3=sysmis) . + compute nrecflg1=1 . + compute nrecflg2=1 . end if . do if serno=13067 . + recode erecog01 erecog02 erecog03 (1=2) . + recode etotrec (3=0) . + recode emostmem ejoint (else=sysmis) . + recode enum5yr (3=0) . + recode esteward estewext (else=sysmis) . + recode ltypinv1 (4=sysmis) . + compute nrecflg1=1 . + compute nrecflg2=0 . end if . do if serno=13108 . + recode erecog01 (1=2) . + recode etotrec (1=0) . + recode emostmem eformal (else=sysmis) . + recode enum5yr (7=98) . + recode ehowcom1 esteward estewnum estewtim (else=sysmis) . + recode eothreps (2=1) . + recode enumreps (sysmis=1) . + recode echosen1 (sysmis=3) . + recode esiton (sysmis=8) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + recode ltypinv1 (3=sysmis) . + compute nrecflg1=1 . + compute nrecflg2=0 . end if . do if serno=13314 . + recode erecog01 (1=2) . + recode etotrec (1=0) . + recode emostmem eformal ejoint (else=sysmis) . + recode enum5yr (1=0) . + recode esteward estewext (else=sysmis) . + recode ltypinv1 (5=sysmis) . + compute nrecflg1=1 . + compute nrecflg2=0 . end if . do if serno=13424 . + recode erecog01 erecog02 (1=2) . + recode etotrec (2=0) . + recode emostmem (1=sysmis) . + recode ejoint (1=sysmis) . + recode enum5yr (2=sysmis) . + recode esteward (2=sysmis) . + recode estewext (2=sysmis) . + recode ltypinv1 (5=sysmis) . + compute nrecflg1=1 . + compute nrecflg2=0 . end if . do if serno=13447 . + recode erecog01 (1=2) . + recode etotrec (1=0) . + recode emostmem (1=sysmis) . + recode eformal (1=sysmis) . + recode enum5yr (1=sysmis) . + recode esteward (2=sysmis) . + recode estewext (2=sysmis) . + recode ltypinv1 (5=sysmis) . + compute nrecflg1=1 . + compute nrecflg2=0 . end if . do if serno=13836 . + recode erecog01 erecog02 erecog03 erecog04 (1=2) . + recode etotrec (4=0) . + recode emostmem ejoint (else=sysmis) . + recode enum5yr (4=0) . + recode esteward estewnum estewtim (else=sysmis) . + recode eothreps (2=1) . + recode enumreps (sysmis=4) . + recode echosen1 (sysmis=3) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + recode ltypinv1 (5=sysmis) . + compute nrecflg1=1 . + compute nrecflg2=1 . end if . do if serno=13961 . + recode erecog01 erecog02 erecog03 (1=2) . + recode etotrec (3=0) . + recode emostmem ejoint (else=sysmis) . + recode enum5yr (4=98) . + recode ehowcom1 esteward estewnum estewtim (else=sysmis) . + recode eothreps (2=1) . + recode enumreps (sysmis=1) . + recode echosen1 (sysmis=3) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + recode ltypinv1 (5=sysmis) . + compute nrecflg1=1 . + compute nrecflg2=1 . end if . do if serno=14066 . + recode erecog01 erecog02 erecog03 (1=2) . + recode etotrec (3=0) . + recode emostmem ejoint (else=sysmis) . + recode enum5yr (3=0) . + recode esteward estewext (else=sysmis) . + recode ltypinv1 (5=sysmis) . + compute nrecflg1=1 . + compute nrecflg2=0 . end if . do if serno=14199 . + recode erecog01 erecog02 erecog03 erecog04 (1=2) . + recode etotrec (4=0) . + recode emostmem ejoint (else=sysmis) . + recode enum5yr (4=0) . + recode esteward estewext (else=sysmis) . + recode ltypinv1 (5=sysmis) . + compute nrecflg1=1 . + compute nrecflg2=0 . end if . do if serno=14253 . + recode erecog01 erecog02 erecog03 erecog04 (1=2) . + recode etotrec (4=0) . + recode emostmem ejoint (else=sysmis) . + recode enum5yr (4=0) . + recode ehowcom1 esteward estewnum estewtim (else=sysmis) . + recode eothreps (2=1) . + recode enumreps (sysmis=4) . + recode echosen1 (sysmis=3) . + recode esiton (sysmis=8) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + recode ltypinv1 (5=sysmis) . + compute nrecflg1=1 . + compute nrecflg2=0 . end if . do if serno=14475 . + recode erecog01 erecog02 erecog03 (1=2) . + recode etotrec (3=0) . + recode emostmem (1=sysmis) . + recode ejoint (1=sysmis) . + recode enum5yr (4=98) . + recode esteward (1=sysmis) . + recode estewnum (2=sysmis) . + recode estewtim (2=sysmis) . + recode eothreps (2=1) . + recode enumreps (sysmis=2) . + recode echosen1 (sysmis=3) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + recode ltypinv1 (5=sysmis) . + compute nrecflg1=1 . + compute nrecflg2=1 . end if . COMMENT Cases where, although the recognition variables are recoded, there are still recognised unions at the workplace, ie etotrec is not set to zero . do if serno=11015 . + recode erecog01 erecog03 erecog04 (1=2) . + recode etotrec (4=1) . + recode emostmem (1=2) . + recode eformal (sysmis=8) . + recode ejoint (3=sysmis) . + recode egroups (3=sysmis) . + recode enum5yr (4=1) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=11178 . + recode erecog01 erecog02 (1=2) . + recode etotrec (3=1) . + recode emostmem (1=3) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (3=1) . + recode estewnum (3=1) . + recode eothreps (2=1) . + recode enumreps (sysmis=2) . + recode echosen1 (sysmis=3) . + recode esiton (sysmis=8) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=11183 . + recode erecog01 erecog02 (1=2) . + recode etotrec (3=1) . + recode emostmem (1=2) . + recode eformal (sysmis=8) . + recode ejoint (2=sysmis) . + recode egroups (3=sysmis) . + recode enum5yr (3=1) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=11215 . + recode erecog01 erecog04 (1=2) . + recode etotrec (4=2) . + recode emostmem (1=2) . + recode enum5yr (3=98) . + recode ehowcom1 (2=sysmis) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=11248 . + recode erecog01 (1=2) . + recode etotrec (7=6) . + recode emostmem (1=2) . + recode enum5yr (7=6) . + recode esteward (1=8) . + recode estewnum (1=sysmis) . + recode estewtim (2=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=11294 . + recode erecog01 erecog03 erecog05 (1=2) . + recode etotrec (5=2) . + recode emostmem (1=2) . + recode enum5yr (5=2) . + recode estewext (2=8) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=11797 . + recode erecog02 (1=2) . + recode etotrec (3=2) . + recode enum5yr (3=2) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=11809 . + recode erecog01 erecog04 erecog05 (1=2) . + recode etotrec (5=2) . + recode emostmem (1=2) . + recode egroups (5=2) . + recode enum5yr (4=98) . + recode ehowcom1 (2=sysmis) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=11871 . + recode erecog01 erecog02 erecog03 erecog04 (1=2) . + recode etotrec (5=1) . + recode emostmem (1=5) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (5=1) . + recode estewnum (5=1) . + recode eothreps (2=1) . + recode enumreps (sysmis=4) . + recode echosen1 (sysmis=3) . + recode esiton (sysmis=8) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=11912 . + recode erecog01 erecog02 erecog03 erecog04 (1=2) . + recode etotrec (6=2) . + recode emostmem (1=5) . + recode egroups (99=2) . + recode enum5yr (6=2) . + recode estewext (2=8) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=11924 . + recode erecog01 erecog02 erecog04 erecog05 (1=2) . + recode etotrec (5=1) . + recode emostmem (1=3) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (5=1) . + recode estewnum (5=1) . + recode eothreps (2=1) . + recode enumreps (sysmis=4) . + recode echosen1 (sysmis=3) . + recode esiton (sysmis=8) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=12039 . + recode erecog02 erecog04 erecog05 (1=2) . + recode etotrec (5=2) . + recode egroups (5=2) . + recode esteward (1=8) . + recode estewnum (1=sysmis) . + recode estewtim (2=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12067 . + recode erecog01 erecog02 (1=2) . + recode etotrec (4=2) . + recode emostmem (1=3) . + recode enum5yr (4=2) . + recode esteward (1=8) . + recode estewnum (2=sysmis) . + recode estewtim (2=sysmis) . + recode enumreps (1=98) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=12073 . + recode erecog02 erecog03 erecog04 erecog05 (1=2) . + recode etotrec (5=1) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (5=1) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=12080 . + recode erecog02 (1=2) . + recode etotrec (2=1) . + recode emostmem (99=3) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (3=98) . + recode ehowcom1 (5=sysmis) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=12099 . + recode erecog01 erecog02 erecog03 erecog04 (1=2) . + recode etotrec (5=1) . + recode emostmem (2=5) . + recode eformal (sysmis=8) . + recode ejoint egroups (2=sysmis) . + recode enum5yr (6=98) . + recode ehowcom1 (1=sysmis) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12127 . + recode erecog01 erecog02 erecog03 erecog04 (1=2) . + recode etotrec (5=1) . + recode emostmem (1=5) . + recode eformal (sysmis=8) . + recode ejoint (3=sysmis) . + recode egroups (5=sysmis) . + recode enum5yr (5=1) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode enumreps (1=98) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + recode fpaycut (1=8) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12130 . + recode erecog02 erecog03 erecog04 (1=2) . + recode etotrec (4=1) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (4=1) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=12176 . + recode erecog02 erecog03 erecog04 erecog05 (1=2) . + recode etotrec (5=1) . + recode eformal (sysmis=8) . + recode ejoint (2=sysmis) . + recode egroups (5=sysmis) . + recode enum5yr (5=1) . + recode esteward (1=8) . + recode estewnum (1=sysmis) . + recode estewtim (2=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=12220 . + recode erecog01 erecog03 (1=2) . + recode etotrec (3=1) . + recode emostmem (1=2) . + recode eformal (sysmis=8) . + recode ejoint (2=sysmis) . + recode egroups (3=sysmis) . + recode enum5yr (6=4) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (1=sysmis) . + recode ewhymor1 (4=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12252 . + recode erecog02 erecog03 erecog04 erecog05 (1=2) . + recode etotrec (5=1) . + recode eformal (sysmis=8) . + recode ejoint (2=sysmis) . + recode egroups (2=sysmis) . + recode enum5yr (5=1) . + recode estewnum (5=1) . + recode eothreps (2=1) . + recode enumreps (sysmis=4) . + recode echosen1 (sysmis=3) . + recode esiton (sysmis=8) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=12256 . + recode erecog02 erecog03 (1=2) . + recode etotrec (3=1) . + recode eformal (sysmis=8) . + recode ejoint (2=sysmis) . + recode egroups (3=sysmis) . + recode enum5yr (3=1) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=12283 . + recode erecog01 erecog02 erecog03 erecog04 erecog09 (1=2) . + recode etotrec (9=4) . + recode emostmem (1=5) . + recode enum5yr (9=4) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode epaya to eperfora (else=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12280 . + recode erecog01 erecog02 erecog03 (1=2) . + recode etotrec (4=1) . + recode emostmem (1=4) . + recode eformal (sysmis=8) . + recode ejoint (9=sysmis) . + recode enum5yr (5=98) . + recode ehowcom1 (5=sysmis) . + recode estewext (2=8) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=12327 . + recode erecog01 erecog03 erecog04 (1=2) . + recode etotrec (6=3) . + recode emostmem (1=2) . + recode estewnum (6=3) . + recode eothreps (2=1) . + recode enumreps (sysmis=3) . + recode echosen1 (sysmis=3) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12348 . + recode erecog01 erecog02 erecog03 erecog05 (1=2) . + recode etotrec (7=3) . + recode emostmem (1=4) . + recode enum5yr (7=3) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (1=sysmis) . + recode ewhymor1 (2=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12350 . + recode erecog01 erecog03 erecog04 erecog05 erecog06 (1=2) . + recode etotrec (6=1) . + recode emostmem (1=2) . + recode eformal (sysmis=8) . + recode ejoint (2=sysmis) . + recode egroups (6=sysmis) . + recode enum5yr (6=1) . + recode estewnum (6=1) . + recode enumreps (2=7) . + recode echosen2 (sysmis=3) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12358 . + recode erecog01 erecog02 erecog05 erecog06 erecog07 (1=2) . + recode etotrec (7=2) . + recode emostmem (1=3) . + recode enum5yr (5=98) . + recode ehowcom1 (5=sysmis) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (1=sysmis) . + recode ewhymor1 (2=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12445 . + recode erecog01 (1=2) . + recode etotrec (5=4) . + recode emostmem (1=2) . + recode egroups (5=4) . + recode enum5yr (5=4) . + recode estewext (2=8) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=12472 . + recode erecog01 erecog02 erecog03 erecog04 (1=2) . + recode etotrec (6=2) . + recode emostmem (1=5) . + recode ejoint (3=2) . + recode egroups (2=1) . + recode enum5yr (6=2) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (1=sysmis) . + recode ewhymor1 (2=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12500 . + recode erecog01 erecog03 erecog04 erecog05 (1=2) . + recode etotrec (5=1) . + recode emostmem (1=2) . + recode eformal (sysmis=8) . + recode ejoint (3=sysmis) . + recode egroups (2=sysmis) . + recode estewnum (5=1) . + recode eothreps (2=1) . + recode enumreps (sysmis=4) . + recode echosen1 (sysmis=3) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=12523 . + recode erecog01 erecog02 (1=2) . + recode etotrec (6=4) . + recode emostmem (1=3) . + recode enum5yr (6=4) . + recode esteward (1=8) . + recode estewnum (5=sysmis) . + recode estewtim (2=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12529 . + recode erecog01 erecog03 (1=2) . + recode etotrec (3=1) . + recode emostmem (1=2) . + recode eformal (sysmis=8) . + recode ejoint (2=sysmis) . + recode egroups (3=sysmis) . + recode enum5yr (3=1) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (1=sysmis) . + recode ewhymor1 (2=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12604 . + recode erecog01 erecog02 erecog04 (1=2) . + recode etotrec (4=1) . + recode emostmem (1=3) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (4=1) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=12622 . + recode erecog02 erecog03 erecog04 erecog05 erecog06 (1=2) . + recode etotrec (7=2) . + recode enum5yr (6=98) . + recode ehowcom1 (2=sysmis) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode enumreps (9=98) . + recode echosen1 (1=98) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=12623 . + recode erecog02 erecog03 erecog04 erecog05 erecog06 (1=2) . + recode etotrec (6=1) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode enumreps (7=98) . + recode echosen1 (2=98) . + recode epaya to eperfora (else=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=12625 . + recode erecog01 erecog02 erecog04 (1=2) . + recode etotrec (6=3) . + recode emostmem (1=3) . + recode ejoint (3=8) . + recode egroups (99=sysmis) . + recode enum5yr (6=3) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode enumreps (6=98) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12633 . + recode erecog02 erecog03 erecog05 (1=2) . + recode etotrec (5=2) . + recode ejoint (3=8) . + recode egroups (4=sysmis) . + recode enum5yr (5=2) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=12640 . + recode erecog01 erecog02 erecog03 erecog05 (1=2) . + recode etotrec (5=1) . + recode emostmem (1=4) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (5=1) . + recode estewnum (5=1) . + recode eothreps (2=8) . + recode enumreps (sysmis=4) . + recode echosen1 (sysmis=3) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12641 . + recode erecog01 erecog03 erecog04 erecog05 (1=2) . + recode etotrec (5=1) . + recode emostmem (1=2) . + recode eformal (sysmis=8) . + recode ejoint (3=sysmis) . + recode egroups (3=sysmis) . + recode enum5yr (5=1) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode enumreps (2=98) . + recode echosen1 (2=98) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12652 . + recode erecog01 erecog02 erecog03 erecog04 (1=2) . + recode etotrec (5=1) . + recode emostmem (99=5) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (5=1) . + recode estewnum (5=1) . + recode eothreps (2=1) . + recode enumreps (sysmis=4) . + recode echosen1 (sysmis=3) . + recode esiton (sysmis=8) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12674 . + recode erecog01 erecog02 erecog03 erecog04 (1=2) . + recode etotrec (6=2) . + recode emostmem (1=5) . + recode enum5yr (6=2) . + recode estewnum (6=2) . + recode eothreps (2=1) . + recode enumreps (sysmis=4) . + recode echosen1 (sysmis=3) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12712 . + recode erecog01 erecog02 erecog03 (1=2) . + recode etotrec (5=2) . + recode emostmem (1=4) . + recode enum5yr (6=98) . + recode ehowcom1 (5=sysmis) . + recode estewnum (5=2) . + recode eothreps (2=1) . + recode enumreps (sysmis=3) . + recode echosen1 (sysmis=3) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12728 . + recode erecog02 erecog03 erecog04 erecog05 (1=2) . + recode etotrec (5=1) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (5=1) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=12767 . + recode erecog01 erecog02 erecog04 erecog05 erecog06 (1=2) . + recode etotrec (6=1) . + recode emostmem (1=3) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode esteward (1=8) . + recode estewnum (2=sysmis) . + recode estewtim (2=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12806 . + recode erecog01 erecog02 erecog03 (1=2) . + recode etotrec (5=2) . + recode emostmem (1=4) . + recode enum5yr (7=98) . + recode ehowcom1 (1=sysmis) . + recode estewnum (5=2) . + recode eothreps (2=1) . + recode enumreps (sysmis=3) . + recode echosen1 (sysmis=3) . + recode esiton (sysmis=8) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12829 . + recode erecog02 erecog03 erecog04 (1=2) . + recode etotrec (4=1) . + recode eformal (sysmis=8) . + recode ejoint (9=sysmis) . + recode enum5yr (5=98) . + recode ehowcom1 (1=sysmis) . + recode esteward (1=8) . + recode estewnum (3=sysmis) . + recode estewtim (2=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis). + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=12847 . + recode erecog01 erecog02 erecog03 erecog04 (1=2) . + recode etotrec (5=1) . + recode emostmem (1=5) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (5=1) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode enumreps (2=98) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (8=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12864 . + recode erecog02 (1=2) . + recode etotrec (2=1) . + recode eformal (sysmis=8) . + recode ejoint (3=sysmis) . + recode egroups (2=sysmis) . + recode enum5yr (2=1) . + recode esteward (1=8) . + recode estewnum (4=sysmis) . + recode estewtim (2=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (1=sysmis) . + recode ewhymor1 (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=12887 . + recode erecog01 erecog02 erecog03 erecog05 (1=2) . + recode etotrec (5=1) . + recode emostmem (1=4) . + recode eformal (sysmis=8) . + recode ejoint (3=sysmis) . + recode egroups (2=sysmis) . + recode enum5yr (5=1) . + recode estewnum (5=1) . + recode eothreps (2=1) . + recode enumreps (sysmis=4) . + recode echosen1 (sysmis=3) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12899 . + recode erecog01 erecog02 erecog03 erecog04 erecog06 (1=2) . + recode etotrec (6=1) . + recode emostmem (1=5) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (6=1) . + recode estewnum (6=1) . + recode eothreps (2=1) . + recode enumreps (sysmis=5) . + recode echosen1 (sysmis=3) . + recode esiton (sysmis=8) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12916 . + recode erecog02 erecog03 erecog05 (1=2) . + recode etotrec (5=2) . + recode emostmem (2=1) . + recode enum5yr (5=2) . + recode estewnum (5=2) . + recode eothreps (2=1) . + recode enumreps (sysmis=3) . + recode echosen1 (sysmis=3) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12927 . + recode erecog01 erecog02 erecog04 (1=2) . + recode etotrec (4=1) . + recode emostmem (1=3) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (4=1) . + recode estewnum (4=1) . + recode eothreps (2=1) . + recode enumreps (sysmis=3) . + recode echosen1 (sysmis=3) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12969 . + recode erecog01 erecog02 erecog04 erecog05 (1=2) . + recode etotrec (5=1) . + recode emostmem (1=3) . + recode eformal (sysmis=8) . + recode ejoint (3=sysmis) . + recode egroups (99=sysmis) . + recode enum5yr (5=1) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12971 . + recode erecog01 erecog03 erecog04 erecog05 erecog06 (1=2) . + recode etotrec (6=1) . + recode emostmem (1=2) . + recode eformal (sysmis=8) . + recode ejoint (2=sysmis) . + recode egroups (6=sysmis) . + recode enum5yr (6=1) . + recode estewnum (6=1) . + recode enumreps (5=10) . + recode echosen2 (sysmis=3) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12972 . + recode erecog02 erecog03 erecog04 (1=2) . + recode etotrec (4=1) . + recode eformal (sysmis=8) . + recode ejoint (2=sysmis) . + recode egroups (99=sysmis) . + recode enum5yr (4=1) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=12983 . + recode erecog01 erecog02 (1=2) . + recode etotrec (3=1) . + recode emostmem (1=3) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (4=98) . + recode ehowcom1 (5=sysmis) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=12995 . + recode erecog01 erecog03 erecog04 erecog05 (1=2) . + recode etotrec (5=1) . + recode emostmem (1=2) . + recode eformal (sysmis=8) . + recode ejoint (2=sysmis) . + recode egroups (99=sysmis) . + recode enum5yr (5=1) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (1=sysmis) . + recode ewhymor1 (5=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=13023 . + recode erecog01 erecog03 erecog04 erecog06 (1=2) . + recode etotrec (5=1) . + recode emostmem (1=5) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (6=98) . + recode ehowcom1 (1=sysmis) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=13080 . + recode erecog01 erecog03 (1=2) . + recode etotrec (3=1) . + recode emostmem (1=2) . + recode eformal (sysmis=8) . + recode ejoint (9=sysmis) . + recode enum5yr (3=1) . + recode estewext (2=8) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=13104 . + recode erecog01 erecog02 erecog03 erecog04 (1=2) . + recode etotrec (5=1) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (5=1) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=13116 . + recode erecog01 erecog03 erecog04 (1=2) . + recode etotrec (4=1) . + recode emostmem (1=2) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (4=1) . + recode estewnum (4=1) . + recode eothreps (2=1) . + recode enumreps (sysmis=3) . + recode echosen1 (sysmis=3) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=13187 . + recode erecog01 erecog02 erecog03 erecog04 (1=2) . + recode etotrec (6=2) . + recode emostmem (1=5) . + recode enum5yr (6=2) . + recode estewnum (6=2) . + recode enumreps (1=3) . + recode echosen2 (sysmis=3) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=13281 . + recode erecog01 erecog03 erecog04 (1=2) . + recode etotrec (4=1) . + recode emostmem (1=2) . + recode eformal (sysmis=8) . + recode ejoint (3=sysmis) . + recode egroups (2=sysmis) . + recode ehowcom1 (5=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=13376 . + recode erecog02 erecog03 (1=2) . + recode etotrec (3=1) . + recode eformal (sysmis=8) . + recode ejoint (3=sysmis) . + recode egroups (2=sysmis) . + recode enum5yr (3=1) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=13451 . + recode erecog01 erecog04 (1=2) . + recode etotrec (4=2) . + recode emostmem (1=2) . + recode egroups (4=2) . + recode enum5yr (4=2) . + recode esteward (1=8) . + recode estewnum (2=sysmis) . + recode estewtim (2=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr ewhymor1 (1=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=13489 . + recode erecog01 erecog02 erecog03 (1=2) . + recode etotrec (4=1) . + recode emostmem (1=4) . + recode eformal (sysmis=8) . + recode ejoint (2=sysmis) . + recode egroups (99=sysmis) . + recode estewext (2=8) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=13509 . + recode erecog01 erecog02 (1=2) . + recode etotrec (3=1) . + recode emostmem (1=5) . + recode eformal (sysmis=8) . + recode ejoint (9=sysmis) . + recode enum5yr (3=1) . + recode estewnum (3=1) . + recode eothreps (2=1) . + recode enumreps (sysmis=2) . + recode echosen1 (sysmis=3) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=13531 . + recode erecog01 erecog02 erecog03 erecog04 (1=2) . + recode etotrec (6=2) . + recode emostmem (1=5) . + recode enum5yr (7=98) . + recode ehowcom1 (5=sysmis) . + recode estewnum (6=2) . + recode estewtim (2=8) . + recode enumreps (6=10) . + recode echosen2 (sysmis=3) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=13553 . + recode erecog01 erecog02 erecog04 (1=2) . + recode etotrec (4=1) . + recode emostmem (1=3) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (4=1) . + recode estewext (2=8) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=13629 . + recode erecog01 erecog02 erecog03 (1=2) . + recode etotrec (5=2) . + recode emostmem (1=4) . + recode enum5yr (5=2) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=13661 . + recode erecog01 erecog02 erecog03 erecog05 erecog06 (1=2) . + recode etotrec (6=1) . + recode emostmem (1=4) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (6=1) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (9=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=13715 . + recode erecog01 erecog02 erecog03 erecog05 (1=2) . + recode etotrec (5=1) . + recode emostmem (1=4) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (5=1) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=13741 . + recode erecog01 erecog02 erecog03 erecog05 (1=2) . + recode etotrec (5=1) . + recode emostmem (1=4) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (5=1) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=13746 . + recode erecog01 erecog03 (1=2) . + recode etotrec (3=1) . + recode emostmem (1=2) . + recode eformal (sysmis=8) . + recode ejoint (3=sysmis) . + recode egroups (2=sysmis) . + recode enum5yr (4=98) . + recode ehowcom1 (1=sysmis) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=13758 . + recode erecog01 erecog03 (1=2) . + recode etotrec (3=1) . + recode emostmem (1=2) . + recode eformal (sysmis=8) . + recode ejoint (2=sysmis) . + recode egroups (2=sysmis) . + recode esteward (1=8) . + recode estewnum (1=sysmis) . + recode estewtim (2=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=13773 . + recode erecog01 erecog02 erecog03 erecog06 (1=2) . + recode etotrec (6=2) . + recode emostmem (1=4) . + recode ejoint (3=8) . + recode egroups (99=sysmis) . + recode ehowcom1 (98=sysmis) . + recode estewnum (6=2) . + recode eothreps (2=1) . + recode enumreps (sysmis=4) . + recode echosen1 (sysmis=3) . + recode esiton (sysmis=8) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=13787 . + recode erecog01 erecog02 erecog04 erecog05 (1=2) . + recode etotrec (5=1) . + recode emostmem (1=3) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (5=1) . + recode estewnum (5=1) . + recode eothreps (2=1) . + recode enumreps (sysmis=4) . + recode echosen1 (sysmis=3) . + recode esiton (sysmis=8) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=13792 . + recode erecog01 erecog02 erecog03 erecog05 erecog06 (1=2) . + recode etotrec (6=1) . + recode emostmem (1=4) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (6=1) . + recode estewnum (6=1) . + recode enumreps (5=10) . + recode echosen2 (sysmis=3) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=13816 . + recode erecog01 erecog02 erecog03 erecog04 erecog05 (1=2) . + recode etotrec (6=1) . + recode emostmem (1=6) . + recode eformal (sysmis=8) . + recode ejoint (3=sysmis) . + recode egroups (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=13835 . + recode erecog01 erecog02 erecog03 erecog05 (1=2) . + recode etotrec (5=1) . + recode emostmem (1=4) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (5=1) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (2=sysmis) . + recode ewhyles1 (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=13842 . + recode erecog01 erecog02 erecog03 (1=2) . + recode etotrec (4=1) . + recode emostmem (1=4) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (6=98) . + recode ehowcom1 (1=sysmis) . + recode estewext (1=8) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=13870 . + recode erecog02 (1=2) . + recode etotrec (3=2) . + recode egroups (3=2) . + recode enum5yr (3=2) . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=13919 . + recode erecog01 erecog02 erecog03 erecog05 erecog06 erecog07 (1=2) . + recode etotrec (9=3) . + recode emostmem (1=4) . + recode ejoint (3=8) . + recode egroups (99=sysmis) . + recode enum5yr (9=3) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=13938 . + recode erecog01 erecog02 erecog03 (1=2) . + recode etotrec (4=1) . + recode emostmem (1=4) . + recode eformal (sysmis=8) . + recode ejoint (2=sysmis) . + recode egroups (4=sysmis) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=13974 . + recode erecog01 erecog02 erecog03 erecog04 (1=2) . + recode etotrec (5=1) . + recode emostmem (1=5) . + recode eformal (sysmis=8) . + recode ejoint (9=sysmis) . + recode enum5yr (5=1) . + recode estewext (1=8) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=13977 . + recode erecog01 erecog02 erecog03 (1=2) . + recode etotrec (4=1) . + recode emostmem (1=4) . + recode eformal (sysmis=8) . + recode ejoint (3=sysmis) . + recode egroups (3=sysmis) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=13990 . + recode erecog01 erecog02 erecog05 erecog06 erecog07 (1=2) . + recode etotrec (7=2) . + recode emostmem (1=3) . + recode ejoint (3=8) . + recode egroups (99=sysmis) . + recode estewext (1=8) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=14054 . + recode erecog01 erecog03 (1=2) . + recode etotrec (3=1) . + recode emostmem (1=2) . + recode eformal (sysmis=8) . + recode ejoint (2=sysmis) . + recode egroups (99=sysmis) . + recode enum5yr (3=1) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (9=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=14133 . + recode erecog01 erecog02 erecog04 erecog05 (1=2) . + recode etotrec (5=1) . + recode emostmem (1=3) . + recode eformal (sysmis=8) . + recode ejoint (2=sysmis) . + recode egroups (5=sysmis) . + recode enum5yr (5=1) . + recode estewnum (5=1) . + recode eothreps (2=1) . + recode enumreps (sysmis=4) . + recode echosen1 (sysmis=3) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=14183 . + recode erecog01 erecog02 erecog03 erecog06 (1=2) . + recode etotrec (7=3) . + recode emostmem (1=4) . + recode ejoint (3=8) . + recode egroups (99=sysmis) . + recode enum5yr (7=3) . + recode esteward (1=8) . + recode estewnum (3=sysmis) . + recode estewtim (2=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=14198 . + recode erecog01 erecog02 erecog03 erecog04 (1=2) . + recode etotrec (6=2) . + recode emostmem (1=5) . + recode enum5yr (6=2) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=14280 . + recode erecog01 erecog02 erecog03 erecog04 (1=2) . + recode etotrec (4=0) . + recode emostmem (1=sysmis) . + recode ejoint (1=sysmis) . + recode esteward (1=sysmis) . + recode estewnum (3=sysmis) . + recode estewtim (2=sysmis) . + recode eothreps (2=1) . + recode enumreps (sysmis=3) . + recode echosen1 (sysmis=3) . + recode esiton (sysmis=8) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + recode epaya to eperfora (else=sysmis) . + recode ltypinv1 (5=sysmis) . + compute nrecflg1=1 . + compute nrecflg2=1 . end if . do if serno=14291 . + recode erecog01 erecog02 erecog03 erecog05 (1=2) . + recode etotrec (5=1) . + recode emostmem (1=4) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (5=1) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=14334 . + recode erecog01 erecog03 erecog04 erecog05 (1=2) . + recode etotrec (5=1) . + recode emostmem (1=2) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (5=1) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode enumreps (2=98) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=14336 . + recode erecog01 erecog02 erecog03 erecog05 erecog06 (1=2) . + recode etotrec (6=1) . + recode emostmem (1=4) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (6=1) . + recode estewnum (6=1) . + recode eothreps (2=1) . + recode enumreps (sysmis=5) . + recode echosen1 (sysmis=3) . + recode esiton (sysmis=8) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=14359 . + recode erecog01 erecog02 erecog03 erecog04 erecog05 (1=2) . + recode etotrec (6=1) . + recode emostmem (1=6) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (6=1) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=14438 . + recode erecog01 erecog03 (1=2) . + recode etotrec (3=1) . + recode emostmem (1=2) . + recode eformal (sysmis=8) . + recode ejoint (2=sysmis) . + recode egroups (2=sysmis) . + recode enum5yr (3=1) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=14453 . + recode erecog01 erecog02 erecog03 erecog04 erecog06 (1=2) . + recode etotrec (6=1) . + recode emostmem (1=5) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (6=1) . + recode estewnum (6=1) . + recode eothreps (2=1) . + recode enumreps (sysmis=5) . + recode echosen1 (sysmis=3) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + compute nrecflg1=2 . + compute nrecflg2=0 . end if . do if serno=14456 . + recode erecog01 erecog02 (1=2) . + recode etotrec (3=1) . + recode emostmem (1=3) . + recode eformal (sysmis=8) . + recode ejoint (1=sysmis) . + recode enum5yr (3=1) . + recode estewnum (3=1) . + recode eothreps (2=1) . + recode enumreps (sysmis=2) . + recode echosen1 (sysmis=3) . + recode epaya to eperfora (else=copy) into epayb to eperforb . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=14471 . + recode erecog01 erecog02 erecog03 (1=2) . + recode etotrec (4=1) . + recode emostmem (1=4) . + recode eformal (sysmis=8) . + recode ejoint (9=sysmis) . + recode enum5yr (2=98) . + recode ehowcom1 (2=sysmis) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (3=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . do if serno=14477 . + recode erecog01 erecog02 erecog03 (1=2) . + recode etotrec (5=2) . + recode emostmem (1=4) . + recode enum5yr (3=98) . + recode ehowcom1 (2=sysmis) . + recode esteward (1=8) . + recode estewnum estewtim (else=sysmis) . + recode eothreps (2=8) . + recode epaya to eperfora (else=sysmis) . + recode etalk5yr (1=sysmis) . + recode ewhymor1 (2=sysmis) . + compute nrecflg1=2 . + compute nrecflg2=2 . end if . execute . variable labels nrecflg1 "Flags the changes to the recognition variables" . variable labels nrecflg2 "Impact of recognition fixes on the worker rep data" . value labels nrecflg1 1 'Case recoded - now has no recognized unions' 2 'Case recoded - still has some recogized unions' . value labels nrecflg2 0 'Either no WRQ or WRQ unaffected' 1 'Has WRQ but invalid - no recognized unions' 2 'Has WRQ but invalid - wrong rep' . execute. *********************************************** . *Derived variables. ************************************************. COMMENT MQprep.sps . COMMENT This syntax edits the deposited Management data file 'Mq98fin.sav' in such a way that it matches the data file used by the DTI in preparation of 'Britain at Work' . ************************************ . weight off . * Here we reverse the coding done in the DVs file, to get back to original (wrong) codes . do if (serno = 12607). recode asingle (1 = 3). recode astatus (1 = 3). recode auktot (98 = sysmis). recode afranch (8=sysmis). recode acontrol (8=sysmis). recode aconhead (2=sysmis). recode aheadoff (2=sysmis). recode aownchan (8=sysmis). recode bsepar (8=sysmis). end if. do if (serno = 13113). recode astatus (1 = 3). recode afranch (2=sysmis). recode acontrol (1=sysmis). recode aheadoff (1=sysmis). recode asubsid (8=sysmis). recode aownchan (8=sysmis). recode bboard (1=sysmis). end if. do if (serno = 13298). recode astatus (1=3). recode afranch (8=sysmis). recode acontrol (8=sysmis). recode aheadoff (9=sysmis). recode aownchan (8=sysmis). end if. do if (serno = 14212). recode astatus (1=3). recode afranch (2=sysmis). recode acontrol (1=sysmis). recode aheadoff (1=sysmis). recode asubsid (8=sysmis). recode aownchan (8=sysmis). recode bboard (1=sysmis). end if. do if (serno = 14440). recode astatus (1=3). recode afranch (2=sysmis). recode acontrol (1=sysmis). recode aheadoff (1=sysmis). recode asubsid (8=sysmis). recode aownchan (8=sysmis). recode bboard (1=sysmis). end if. * Rename LCHANG vars - 10 in original DTI file but looks like lchang06 in that file was dropped from dataset * and vars renumbered in UKDA file and published questionnaires . rename variables (lchang06=lchang07) (lchang07=lchang08) (lchang08=lchang09) (lchang09=lchang10) . execute . ********************************* . * Recoding the private/public sector variables. ** Validation Note: These recodes 'undo' the recodes done in MQprep.sps; after the recodes, these variables ** match those deposited at UKDA . do if (serno = 12607). + recode asingle (3 = 1). + recode astatus (3 = 1). + recode auktot (else = 98). + recode afranch (else = 8). + recode acontrol (else = 8). + recode aconhead (else = 2). + recode aheadoff (else = 2). + recode aownchan (else = 8). + recode bsepar (else = 8). end if. execute. do if (serno = 13113). + recode astatus (3 = 1). + recode afranch (else = 2). + recode acontrol (else = 1). + recode aconhead (else = 2). + recode aheadoff (else = 1). + recode asubsid (else = 8). + recode aownchan (else = 8). + recode bboard (else = 1). end if. execute. do if (serno = 13298). + recode astatus (3 = 1). + recode afranch (else = 8). + recode acontrol (else = 8). + recode aheadoff (else = 9). + recode aownchan (else = 8). end if. execute. do if (serno = 14212). + recode astatus (3 = 1). + recode afranch (else = 2). + recode acontrol (else = 1). + recode aconhead (else = 2). + recode aheadoff (else = 1). + recode asubsid (else = 8). + recode aownchan (else = 8). + recode bboard (else = 1). end if. execute. do if (serno = 14440). + recode astatus (3 = 1). + recode afranch (else = 2). + recode acontrol (else = 1). + recode aconhead (else = 2). + recode aheadoff (else = 1). + recode asubsid (else = 8). + recode aownchan (else = 8). + recode bboard (else = 1). end if. execute. ************************************************. **Derived variables . ************************************************. COMMENT All workplaces dummy (Nallest) . Numeric Nallest (F3.0). compute Nallest=1. variable labels Nallest 'All workplaces'. value labels Nallest 1 ' '. execute. ************************************************. COMMENT Private sector variable (Nprivate) . Numeric Nprivate (F3.0). recode astatus (1,2=1) (3=2) into Nprivate. variable labels Nprivate 'Ownership'. value labels Nprivate 1 'Private sector' 2 'Public sector'. execute. ************************************************. COMMENT Interaction of industry and ownership (Nsector3) . numeric nsector3 (f3.0) . do if nprivate=1 . + recode asic (1=1) (2 thru 12=2) into nsector3 . else if nprivate=2 . + compute nsector3=3 . end if . variable labels nsector3 'Manuf/services within broad sector' . value labels nsector3 1 "Private manufacturing" 2 "Private services" 3 "Public sector" . execute . ************************************************. COMMENT Workplace size (Nempsize) . Numeric Nempsize (F3.0). recode zallemps (10 thru 24 = 0) (25 thru 49 = 1) (50 thru 99 = 2) (100 thru 199 = 3) (200 thru 499 = 4) (500 thru highest = 5) into Nempsize. value labels Nempsize 0 '10 thru 24 employees' 1 '25 to 49 employees' 2 '50 to 99 employees' 3 '100 to 199 employees' 4 '200 to 499 employees' 5 '500 or more employees'. variable labels Nempsize 'Size of establishment'. execute. ************************************************. COMMENT Dichotomous variable for workplace size at 25 employee break (Nallwkpl) . Numeric Nallwkpl (f3.0). recode zallemps (lowest thru 24 = 1) (25 thru highest = 2) into Nallwkpl. value labels Nallwkpl 1 'Workplaces with LESS than 25 employees' 2 'Workplaces with 25 PLUS employees'. variable label Nallwkpl 'Size of workplace'. execute. ************************************************. COMMENT Single site or part of a larger organisation (Nsingle) . Numeric Nsingle (F3.0). recode asingle (2=1) (1=2) (3=2) (else=Copy) INTO Nsingle . value labels Nsingle 1 'Single independent establishment' 2 'Part of a larger organisation'. variable labels Nsingle 'Single or multi'. execute. ************************************************. COMMENT Organisational size (Norgsize) . Numeric Norgsize (F3.0). recode auktot (else = COPY) into Norgsize. execute. do if (asingle ne 1 & Nempsize le 1). + recode Norgsize (sysmis = 1). end if. execute. do if (asingle ne 1 & Nempsize = 2). + recode Norgsize (sysmis = 2). end if. execute. do if (asingle ne 1 & Nempsize = 3). + recode Norgsize (sysmis = 3). end if. execute. do if (asingle ne 1 & Nempsize = 4). + recode Norgsize (sysmis = 4). end if. execute. do if (asingle ne 1 & zallemps lt 1000). + recode Norgsize (sysmis = 5). end if. execute. do if (asingle ne 1 & zallemps lt 2000). + recode Norgsize (sysmis = 6). end if. execute. do if (asingle ne 1 & zallemps lt 5000). + recode Norgsize (sysmis = 7). end if. execute. do if (asingle ne 1 & zallemps lt 10000). + recode Norgsize (sysmis = 8). end if. execute. do if (asingle ne 1 & zallemps lt 50000). + recode Norgsize (sysmis = 9). end if. execute. recode Norgsize (1,2 = 1) (3,4,5 = 2) (6,7,8 = 3) (9,10,11 = 4) (else = COPY). execute. value labels Norgsize 1 'Less than 100' 2 '100 to less than 1000' 3 '1,000 to less than 10,000' 4 '10,000 or more' 99 'Dont know' 98 'Not answered'. missing values Norgsize (98,99). variable labels Norgsize 'Size of organisation'. * recode of Organisation size variable. do if (SERNO = 12500 | SERNO = 12678 | SERNO = 12878 | SERNO = 11501 | SERNO = 12954 | SERNO = 11809 | SERNO = 14022 | SERNO = 14054 | SERNO = 14291 | SERNO = 14359 | SERNO = 14418 | SERNO = 13461 | SERNO = 13770 | SERNO = 13553 | SERNO = 13835 | SERNO = 13836 | SERNO = 13923 | SERNO = 13926 | SERNO = 13938 | SERNO = 13345 | SERNO = 13489 | SERNO = 13494 | SERNO = 13216 | SERNO = 14199 | SERNO = 14200 | SERNO = 13873 | SERNO = 12348 | SERNO = 14381 | SERNO = 13215 | SERNO = 13139 | SERNO = 13799 | SERNO = 12722 | SERNO = 13424 | SERNO = 13447 | SERNO = 12971 | SERNO = 12972 | SERNO = 13023 | SERNO = 11980 | SERNO = 11945 | SERNO = 12114 | SERNO = 13550 | SERNO = 13080 | SERNO = 12068 | SERNO = 12360 | SERNO = 13874 | SERNO = 12146 | SERNO = 12176 | SERNO = 13084). recode Norgsize (missing = 4). end if. execute. do if (SERNO = 12402 | SERNO = 12523 | SERNO = 12817 | SERNO = 11970 | SERNO = 11366 | SERNO = 13314 | SERNO = 11191 | SERNO = 12073 | SERNO = 12946 | SERNO = 11489 | SERNO = 13635 | SERNO = 13272 | SERNO = 12178 | SERNO = 14190). recode Norgsize (missing = 3). end if. execute. ************************************************. COMMENT Trade union density (Ndensity) . *recode temp (else = SYSMIS). execute. + compute temp = ztu_mem / zallemps * 100. execute. Numeric Ndensity (F5.2). + compute Ndensity = sum(temp, ztu_pc). value labels Ndensity 997 'Members present' 998 'Dont know' 999 'Not answered'. variable labels Ndensity 'Union density: continuous'. missing values Ndensity (997.00,998.00,999.00). execute. do if (zanymem = 2). + recode Ndensity (sysmis = 0). end if. execute. do if (zanymem = 1). + recode Ndensity (sysmis = 997). end if. execute. ************************************************. COMMENT Union density data: banded variable (Ndens) . Numeric Ndens (F3.0). recode Ndensity (0 = 1) (100 = 6) (90 thru 100 = 5) (50 thru 90 = 4) (25 thru 50 = 3) (0 thru 25 = 2) (999 = 9) (998=8) (997 = 7) into Ndens. value labels Ndens 1 'No union members' 2 '1% to less than 25%' 3 '25% to less than 50%' 4 '50% to less than 90%' 5 '90% to less than 100%' 6 '100% union members' 7 'Members present' 8 'Dont know' 9 'Not answered'. missing values Ndens (8,9). variable labels Ndens 'Union density: banded'. execute. COMMENT Calculate union recognition variable (Nrecog, Nrecog1) . Numeric Nrecog (F3.0). do if (Ndens = 1). + compute Nrecog = 1. end if. execute. do if (missing(eunionum) = 1 & (Ndensity <=10 | zanymem = 1)). + recode Nrecog (SYSMIS = 9). end if. execute. do if (missing(eunionum) = 1 & (Ndensity >10)). + recode Nrecog (SYSMIS = 8). end if. execute. do if (etotrec ne 0). + recode Nrecog (sysmis = 3). else. + recode Nrecog (sysmis = 2). end if. value labels Nrecog 1 'No unions present' 2 'Unions present no recognition' 3 'Recognised unions' 8 'Dont know: density more than 10 %' 9 'Dont know: density 10 % or less'. variable labels Nrecog 'Union recognition'. missing values Nrecog (8,9). execute. COMMENT Collapse the recognition variable (Nrecog1) . Numeric Nrecog1 (f3.0). recode Nrecog (1,2 = 1) (3=2) (ELSE = 9) into Nrecog1. missing values Nrecog1 (9). value labels Nrecog1 1 'No union' 2 'Recognised' 9 'DK/NA'. variable label Nrecog1 'Union recognition'. execute. ************************************************. COMMENT Ratio of women to men managers (controlling for employment share) (Nmgtsex) . Numeric Nmgtsex (f5.2). do if ((missing(zmalfull)=1) | (missing(zmalprt)=1) | (missing(zfemfull)=1) | (missing(zfemprt)=1) | (missing(zmng_mft)=1) | (missing(zmng_mpt)=1) | (missing(zmng_fft)=1) | (missing(zmng_fpt)=1) | missing(zmng_tot)). compute Nmgtsex=-8. else if ((zmalfull + zmalprt)=0). compute Nmgtsex=-6. else if ((zfemfull + zfemprt)=0). compute Nmgtsex=-5. else if (zmng_tot=0). compute Nmgtsex=-4. else if ((zmng_mft + zmng_mpt)=0). compute Nmgtsex=-3. else. compute Nmgtsex=(((zmng_fft + zmng_fpt)/(zfemfull + zfemprt)) / ((zmng_mft + zmng_mpt)/(zmalfull + zmalprt))). end if. missing values Nmgtsex (-8 thru -3). variable labels Nmgtsex 'Ratio of women to men managers (controlling for employment share)'. value labels Nmgtsex -3 'No male managers' -4 'No managers' -5 'Wholly male workplace' -6 'Wholly female workplace' -8 'DK/NA'. execute. ************************************************. COMMENT Banding of nmgtsex (Nmgtbd) . Numeric Nmgtbd (f3.0). recode Nmgtsex (0=1) (0.001 thru 0.999=2) (1.000 thru hi=3) (-3=4)(else=copy) into Nmgtbd. missing values Nmgtbd (-8 thru -4). variable labels Nmgtbd 'Ratio of women to men managers (controlling for employment share) - banded'. value labels Nmgtbd 1 'Only male managers (some female employees)' 2 'Male managers over-represented' 3 'Female managers equally or over-represented' 4 'Only female managers (some male employees)' -4 'No managers' -5 'Wholly male workplace (includes some wps with no managers)' -6 'Wholly female wp (includes some wps with no managers)' -7 'Data observed but not internally consistent' -8 'DK/NA'. execute. ************************************************. COMMENT Female under-representation in management - 2 bands (nfmgt2) . numeric nfmgt2 (f3.0). recode nmgtbd (1 thru 2 = 1) (3 thru 4=2) (else=copy) into nfmgt2. missing values nfmgt2 (-8 thru -4). variable label nfmgt2 'Female under-representation in management (controlling for employment share) - 2 bands'. value labels nfmgt2 1 'Female managers under-represented' 2 'Female managers equally, or over-represented' -4 'No managers' -5 'Wholly male workplace (includes some wps with no managers)' -6 'Wholly female wp (includes some wps with no managers)' -7 'Data observed, but not internally consistent' -8 'Do not know/Not applicable'. execute. ************************************************. COMMENT Male under-representation in management - 2 bands (nmmgt2) . numeric nmmgt2 (f3.0). recode nmgtsex (0 thru 1=2) (1 thru hi=1)(-3=1) (else=copy) into nmmgt2. missing values nmmgt2 (-8 thru -4). variable label nmmgt2 'Male under-rep in management (control for employment share)'. value labels nmmgt2 1 'Male managers under-represented' 2 'Male managers equally or over-represented' -4 'No managers' -5 'Wholly male workplace (includes some wps with no managers)' -6 'Wholly female wp (includes some wps with no managers)' -7 'Data observed but not internally consistent' -8 'DK/NA'. execute. ************************************************. COMMENT Proportion part time in total employment (nprtprop, nptprop) . do if (missing(zmalprt) = 1 | missing(zfemprt) = 1). + compute Nprtprop = 99. else. compute Nprtprop = (zmalprt + zfemprt) / zallemps. end if. variable labels Nprtprop 'Part time employees as a proportion of all employment'. value labels Nprtprop 99 'Dont know / Not answered'. missing values Nprtprop (99). execute. Numeric Nptprop (F3.0). do if (missing(Nprtprop) = 1). + compute Nptprop = 9. else if (Nprtprop = 0). + compute Nptprop = 1. else if (Nprtprop le 0.1). + compute Nptprop = 2. else if (Nprtprop le 0.25). + compute Nptprop = 3. else if (Nprtprop le 0.5). + compute Nptprop = 4. else if (Nprtprop le 0.75). + compute Nptprop = 5. else. + compute Nptprop = 6. end if. variable labels Nptprop 'Part time employees as a proportion of all employment: coded'. value labels Nptprop 1 'No part-time employees' 2 '10% or less' 3 'More than 10% to 25%' 4 'More than 25% to 50%' 5 'More than 50% to 75%' 6 'More than 75%' 9 'Dont know /Not answered'. missing values Nptprop (9). execute. ************************************************. COMMENT Employees on fixed-term contracts (Nfixterm) . do if ((missing(jtemplyr)=1) | (missing(jtempmyr)=1)). + compute Nfixterm=9. else if jtemplyr=1 | jtempmyr=1. + compute Nfixterm=1. else. + compute Nfixterm=0. end if. missing values Nfixterm (9). variable labels Nfixterm 'Employees on fixed-term contracts'. value labels Nfixterm 0 'No' 1 'Yes' 9 'DK/NA'. execute. ************************************************. COMMENT Occupational dummies. recode zmng_tot zpro_tot ztec_tot zcle_tot zcrt_tot zptc_tot zsal_tot zope_tot zrou_tot (0=Copy) (1 thru 999990=1) (else=9) INTO zmng_dum zpro_dum ztec_dum zcle_dum zcrt_dum zptc_dum zsal_dum zope_dum zrou_dum . missing values zmng_dum to zrou_dum (9). value labels zmng_dum to zrou_dum 0 'None employed' 1 'Employed' 9 'DK/NA'. variable labels zmng_dum 'Managers and senior administrators' zpro_dum 'Professional' ztec_dum 'Technical' zcle_dum 'Clerical and secretarial' zcrt_dum 'Craft and skilled services' zptc_dum 'Protective and personal services' zsal_dum 'Sales' zope_dum 'Operative and assembly' zrou_dum 'Routine unskilled'. execute. do if (missing(zmng_dum) = 1 | missing(zpro_dum) = 1 | missing(ztec_dum) = 1 | missing(zcle_dum) = 1 | missing(zcrt_dum) = 1 | missing(zptc_dum) = 1 | missing(zsal_dum) = 1 | missing(zope_dum) = 1 | missing(zrou_dum) = 1 ). + recode zmng_dum zpro_dum ztec_dum zcle_dum zcrt_dum zptc_dum zsal_dum zope_dum zrou_dum (ELSE = 9). end if. execute. ************************************************. COMMENT Defining the largest occupation group (Nhiocc) . Numeric hiocc1 (F5.0). do if (missing(zpro_tot) = 1 | missing(ztec_tot) = 1 | missing(zcle_tot) = 1 | missing(zcrt_tot) = 1 | missing(zptc_tot) = 1 | missing(zsal_tot) = 1 | missing(zope_tot) = 1 | missing(zrou_tot) = 1). + compute hiocc1 = 9999. else. + compute hiocc1 = max(zpro_tot, ztec_tot, zcle_tot, zcrt_tot, zptc_tot, zsal_tot, zope_tot, zrou_tot). end if. execute. missing values hiocc1 (9999). Numeric Nhiocc (F3.0). do if (hiocc1 = 0 | missing(hiocc1) = 1). + compute Nhiocc = 99. end if. execute. do if (hiocc1 = zpro_tot). + recode Nhiocc (sysmis = 2). else if (hiocc1 = ztec_tot). + recode Nhiocc (sysmis = 3). else if (hiocc1 = zcle_tot). + recode Nhiocc (sysmis = 4). else if (hiocc1 = zcrt_tot). + recode Nhiocc (sysmis = 5). else if (hiocc1 = zptc_tot). + recode Nhiocc (sysmis = 6). else if (hiocc1 = zsal_tot). + recode Nhiocc (sysmis = 7). else if (hiocc1 = zope_tot). + recode Nhiocc (sysmis = 8). else if (hiocc1 = zrou_tot). + recode Nhiocc (sysmis = 9). end if. execute. do if (Xcode5 = 5). + recode Nhiocc (else = 98). end if. execute. variable labels Nhiocc 'Occupation with the most employees'. value labels Nhiocc 1 'Managers and administrative' 2 'Professional' 3 'Technical and scientific' 4 'Clerical and secretarial' 5 'Craft and skilled manual' 6 'Personal service' 7 'Sales' 8 'Operative and assembly' 9 'Routine unskilled manual' 98 'LOG questions asked of wrong group' 99 'Dont know / Not answered'. missing values Nhiocc (98,99). ************************************************. COMMENT Total number of occupational groups at workplace (Nnumocc) . Numeric Nnumocc (f2). do if ((missing(zmng_dum)=1) | (missing(zpro_dum)=1) | (missing(ztec_dum)=1) | (missing(zcle_dum)=1) | (missing(zcrt_dum)=1) | (missing(zptc_dum)=1) | (missing(zsal_dum)=1) | (missing(zope_dum)=1) | (missing(zrou_dum)=1)). + compute Nnumocc=99. else. + compute Nnumocc=sum(zmng_dum to zrou_dum). end if. missing values Nnumocc (99). variable labels Nnumocc 'Number of occupations employed'. value labels Nnumocc 99 'DK/NA'. execute. ************************************************. COMMENT How many occupations have personality tests (Nnumpers) . Numeric Nnumpers (F5.0). do if (missing(catests) = 1). + compute Nnumpers = 99. else if (catests = 2). + compute Nnumpers = 0. else if (missing(ctestwh1) = 1). + compute Nnumpers = 99. else. count Nnumpers = ctestwh1 ctestwh2 ctestwh3 ctestwh4 ctestwh5 ctestwh6 ctestwh7 ctestwh8 ctestwh9 (1 thru 9). end if. missing values Nnumpers (99). variable labels Nnumpers 'Number of occupations receiving personality test'. execute. ************************************************. COMMENT How many have personality tests for all employees (Npsontst) . Numeric Npsontst (F5.0). do if (missing(catests) = 1). + compute Npsontst = 9. else if (catests = 2). + compute Npsontst = 4. else if (missing(ctestwh1) = 1). + compute Npsontst = 9. else if (ctestwh1 = 1 & missing(ctestwh2) = 1). + compute Npsontst = 3. else if (missing(nnumocc) = 1). + compute Npsontst = 9. else if (Nnumpers = Nnumocc). + compute Npsontst = 1. else. + compute Npsontst = 2. end if. value labels Npsontst 1 'All employees' 2 'Some non-managerial employees' 3 'Managers only' 4 'No personality tests' 9 'DK/NA'. missing values Npsontst (9). variable labels Npsontst 'Employees eligible for a personality test'. execute. ************************************************. COMMENT How many occupations have performance tests (Nnumperf) . Numeric Nnumperf (F5.0). do if (missing(cptests) = 1). + compute Nnumperf = 99. else if (cptests = 2). + compute Nnumperf = 0. else if (missing(cwhodo1) = 1). + compute Nnumperf = 99. else. count Nnumperf = cwhodo1 to cwhodo9 (1 thru 9). end if. missing values Nnumperf (99). variable labels Nnumperf 'Number of occupations receiving performance tests'. execute. ************************************************. COMMENT How many have performance tests for all employees (Nperftst) . Numeric Nperftst (F5.0). do if (missing(cptests) = 1). + compute Nperftst = 9. else if (cptests = 2). + compute Nperftst = 4. else if (missing(cwhodo1) = 1). + compute Nperftst = 9. else if (cwhodo1 = 1 & missing(cwhodo2) = 1). + compute Nperftst = 3. else if (missing(Nnumocc) = 1). + compute Nperftst = 9. else if (Nnumperf = Nnumocc). + compute Nperftst = 1. else if (Nnumperf = Nnumocc - 1). + compute Nperftst = 5. else. + compute Nperftst = 2. end if. value labels Nperftst 1 'All employees' 2 'Some non-managerial employees' 3 'Managers only' 4 'No performance tests' 5 'All occupations except one' 9 'DK/NA'. missing values Nperftst (9). variable labels Nperftst 'Employees eligible for a performance test'. execute. ************************************************. COMMENT System of appraising non-managerial employees (Napprais) . Numeric Napprais (F5.0). do if (missing(fsocin01) = 1). + compute Napprais = 9. else if (fsocin01 = 10). + compute Napprais = 4. else if (sum(fsocin01 to fsocin09) = 1). + compute Napprais = 3. else if (missing(fappwhen) = 1). + compute Napprais = 9. else if (fappwhen = 5 | fappwhen = 8). + compute Napprais = 2. else. + compute Napprais = 1. end if. value labels Napprais 1 'Regular appraisal' 2 'Non-regular appraisal' 3 'Managers only appraised' 4 'No appraisal' 9 'Dont know / Not answered'. variable labels Napprais 'Any system of appraisals'. missing values Napprais (9). execute. ************************************************. COMMENT How many non-managerial employees are appraised (Nmapprai) . Numeric Nmapprai (F5.0). do if (missing(Napprais) = 1). + compute Nmapprai = 9. else if (Napprais = 1 & fmeaspr = 1). + compute Nmapprai = 1. else if (Napprais = 1 & fmeaspr le 3). + compute Nmapprai = 2. else if (Napprais = 1 & fmeaspr le 6). + compute Nmapprai = 3. else. + compute Nmapprai = 4. end if. value labels Nmapprai 1 'All appraised regularly' 2 'Most appraised regularly' 3 'Some appraised regularly' 4 'No appraisal' 9 'Dont know / Not answered'. variable labels Nmapprai 'Proportion of non-managerial employees who are appraised'. missing values Nmapprai (9). execute. ************************************************. COMMENT Any training for employees in the largest occupation (Ntrain) . Numeric Ntrain (F5.0). do if (missing(coffjob) = 1). + compute Ntrain = 9. else if (coffjob = 7). + compute Ntrain = 2. else. + compute Ntrain = 1. value labels Ntrain 1 'Yes' 2 'No' 9 'Dont know / Not answered'. variable labels Ntrain 'Formal off the job training for experienced employees in LOG'. missing values Ntrain (9). end if. execute. ************************************************. COMMENT Functional flexibility (Nfunc) . Numeric Nfunc (f3.0). do if (missing(cothjob) = 1). + compute Nfunc = 9. else if (cothjob le 3). + compute Nfunc = 1. else. + compute Nfunc = 0. end if. missing values Nfunc (9). value labels Nfunc 1 'Most functionally flexible' 0 'No' 9 'DK/NA'. variable labels Nfunc 'Most employees functionally flexible'. execute. ************************************************. COMMENT Teamworking, communication, problem-solving (Ntrgrup1b) . Numeric Ntrgrup1b (f3.0). do if missing(ntrain) . + compute ntrgrup1b=9 . else if missing(ntrain)=0 and ntrain=2 . + compute Ntrgrup1b=7 . else if missing(ntrain)=0 and ntrain=1 . + do if missing(chow01) . + compute Ntrgrup1b = 8. + else if (sum(any(2,chow01 to chow10),any(3,chow01 to chow10),any(7,chow01 to chow10)) ge 1). + compute Ntrgrup1b = 1. + else. + compute Ntrgrup1b = 2. + end if. end if . variable labels Ntrgrup1b 'Teamworking, communication, problem-solving'. value labels Ntrgrup1b 1 'Training covers one or more' 2 'Else' 7 'No training' 8 'DK/NA topics' 9 'DK/NA if training'. missing values Ntrgrup1b (8,9). execute. ************************************************. COMMENT Union density: banded (Ndens3) . recode ndens (1=1) (2,3=2) (4 thru 6=3) into ndens3 . value labels Ndens3 1 'No union members' 2 'Less than 50% union members' 3 'More than 50% union members' 8 'Dont know' 9 'Not answered'. missing values Ndens3 (8,9). variable labels Ndens3 'Union density: banded'. execute. ************************************************. COMMENT Access to lay rep, on site or elsewhere in organisation (nerep) . compute nerep=any(1,esteward,estewext) . do if value(esteward)>=8 or value(estewext)>=8 . + recode nerep (0=sysmis) . end if. execute. variable label nerep "Access to lay rep, on site or elsewhere in organisation". value labels nerep 1 'Yes' 0 'No' . ************************************************. COMMENT Workplaces where representative committee operates (Nanycomm) . recode dhighlev dissues (sysmis=0). execute. Numeric Nanycomm (f1). do if ((missing(djoint)=1) | (missing(dhighlev)=1) | (missing(dissues)=1)). + compute Nanycomm=9. else if (djoint=2 & (dhighlev=0 | dhighlev=2)). + compute Nanycomm=1. else if (djoint=1 & (dissues=2) & (dhighlev=0 | dhighlev=2)). + compute Nanycomm=2. else if (djoint=1 & (dhighlev=0 | dhighlev=2)). + compute Nanycomm=3. else if (djoint=1 & (dissues=1 | dissues=3) & dhighlev=1). + compute Nanycomm=4. else if (((djoint=1 & dissues=2) | djoint=2) & dhighlev=1). + compute Nanycomm=5. else. end if. missing values Nanycomm (9). variable labels Nanycomm 'Types of joint consultative committee'. value labels Nanycomm 1 'No committees' 2 'Single issue committees' 3 'Workplace committee only' 4 'Workplace & higher level committee' 5 'Higher level committee only' 9 'DK/NA'. execute. recode Nanycomm (2=1). execute. ************************************************. COMMENT Workplace based team briefings (Nwkteam) . Numeric Nwkteam (F5.0). do if (missing(dbrief) = 1). + compute Nwkteam = 9. else if (dbrief = 2). + compute Nwkteam = 3. else if (missing(dbriefu1) = 1). + compute Nwkteam = 9. else if (dbriefu1 = 3 & missing(dbriefu2) = 1). + compute Nwkteam = 1. else. + compute Nwkteam = 2. end if. variable labels Nwkteam 'Workplace based team briefings only'. missing values Nwkteam (9). value labels Nwkteam 1 'Workplace based team briefing' 2 'Group based team briefings' 3 'No briefings' 9 'DK/NA'. execute. ************************************************. COMMENT Methods used to communicate with employees (Ncometh1, Ncometh2) . Numeric Ncometh1 (F5.0). do if (missing(Nwkteam) = 1). + compute Ncometh1 = 99. else if (Nwkteam = 2). + compute Ncometh1 = 1. else. + compute Ncometh1 = 0. end if. missing values Ncometh1 (99). variable labels Ncometh1 'Methods used to communicate with employees'. value labels Ncometh1 1 'Group based team briefings' 99 'DK/NA'. execute. Numeric Ncometh2 (F5.0). do if (missing(Nwkteam) = 1 | missing(dconsul1) = 1). + compute Ncometh2 = 99. else if (any(1,dconsul1,dconsul2,dconsul3,dconsul4,dconsul5,dconsul6) = 1). + compute Ncometh2 = 2. else if (Nwkteam = 1). + compute Ncometh2 = 2. else. + compute Ncometh2 = 0. end if. missing values Ncometh2 (99). variable labels Ncometh2 'Methods used to communicate with employees'. value labels Ncometh2 2 'meetings with entire workforce' 99 'DK/NA'. execute. ************************************************. COMMENT Meetings of all types: with entire workforce or between workers and their supervisors (Nmeet). Numeric Nmeet (F5.0). do if (missing(Ncometh2)=1) or (missing(Ncometh1)=1). + compute Nmeet = -9. else if (Ncometh2 = 2 or Ncometh1 = 1). + compute Nmeet = 1. else. + compute Nmeet = 0. end if. missing values Nmeet (-9). variable labels Nmeet 'Meetings with workforce or briefing groups'. value labels Nmeet 1 'Meetings with workforce or briefing groups' 0 'No meetings of either type' -9 'DK/NA' -1 'Not applicable'. execute. ************************************************. COMMENT Suggestion scheme (Nsuggest) . Numeric Nsuggest (f3.0). do if (missing(dconsul1) = 1). + compute Nsuggest = 9. else if (any(3,dconsul1 to dconsul6) = 1). + compute Nsuggest = 1. else if (any(2,dothway1 to dothway5)). + compute Nsuggest = 1. else. + compute Nsuggest = 2. end if. missing values Nsuggest (9). value labels Nsuggest 1 'Suggestion scheme' 2 'None' 9 'DK/NA'. variable labels Nsuggest 'Workplace operates a suggestion scheme'. execute. recode Nsuggest (sysmis = 2). execute. ************************************************. COMMENT Magnitude of any inconsistencies between the occupation totals given in Q3 and the total number of emps given at Q1 (diffpc) . do if (missing(zmng_tot)=0 and missing(zpro_tot)=0 and missing(ztec_tot)=0 and missing(zcle_tot)=0 and missing(zcrt_tot)=0 and missing(zptc_tot)=0 and missing(zsal_tot)=0 and missing(zope_tot)=0 and missing(zrou_tot)=0) . + compute diff=sum(zmng_tot,zpro_tot,ztec_tot,zcle_tot,zcrt_tot,zptc_tot,zsal_tot,zope_tot,zrou_tot,-zallemps) . end if . compute diffpc=(diff*100)/zallemps . execute . ************************************************. COMMENT Derivation of Npaynum2 and Npaydet2 for number and type of pay determination scheme. COMMENT Number of methods of pay determination (all employees) (Npaynum2) . recode nfsoc1 to nfsoc9 (SYSMIS=0). execute. RECODE zmng_tot zpro_tot ztec_tot zcle_tot zcrt_tot zptc_tot zsal_tot zope_tot zrou_tot (0=Copy) (1 thru 999990=1) (ELSE=9) INTO zmng_dum zpro_dum ztec_dum zcle_dum zcrt_dum zptc_dum zsal_dum zope_dum zrou_dum . MISSING VALUES zmng_dum to zrou_dum (9). VALUE LABELS zmng_dum to zrou_dum 0 'None employed' 1 'Employed' 9 'DK/NA'. VARIABLE LABELS zpro_dum 'Professional' ztec_dum 'Technical' zcle_dum 'Clerical and secretarial' zcrt_dum 'Craft and skilled services' zptc_dum 'Protective and personal services' zsal_dum 'Sales' zope_dum 'Operative and assembly' zrou_dum 'Routine unskilled'. EXECUTE . Numeric Npaynum2 (f3.0). compute Npaynum2=0. execute. do if (((missing(zmng_dum)=1) | (missing(zpro_dum)=1) | (missing(ztec_dum)=1) | (missing(zcle_dum)=1) | (missing(zcrt_dum)=1) | (missing(zptc_dum)=1) | (missing(zsal_dum)=1) | (missing(zope_dum)=1) | (missing(zrou_dum)=1)) OR ((missing(nfsoc1)=1 | missing(nfsoc2)=1 | missing(nfsoc3)=1 | missing(nfsoc4)=1 | missing(nfsoc5)=1 | missing(nfsoc6)=1 | missing(nfsoc7)=1 | missing(nfsoc8)=1 | missing(nfsoc9)=1))). + compute Npaynum2=-9. else. end if. execute. + compute temp1a=0. + compute temp2a=0. + compute temp3a=0. + compute temp4a=0. + compute temp5a=0. + compute temp6a=0. + compute temp7a=0. execute. IF (any(1,nfsoc1 to nfsoc9)=1) temp1a=1. IF (any(2,nfsoc1 to nfsoc9)=1) temp2a=1. IF (any(3,nfsoc1 to nfsoc9)=1) temp3a=1. IF (any(4,nfsoc1 to nfsoc9)=1) temp4a=1. IF (any(5,nfsoc1 to nfsoc9)=1) temp5a=1. IF (any(6,nfsoc1 to nfsoc9)=1) temp6a=1. IF (any(7,nfsoc1 to nfsoc9)=1) temp7a=1. execute. do if Npaynum2~=-9. + compute Npaynum2=sum(temp1a,temp2a,temp3a,temp4a,temp5a,temp6a,temp7a). else. end if. execute. recode Npaynum2 (0=-9). missing values Npaynum2 (-9). variable labels Npaynum2 'Number of methods of pay determination (all employees)'. execute. recode nfsoc1 to nfsoc9 (0=SYSMIS). ************************************************. COMMENT Method of pay determination for all employees (Npaydet2) . Numeric Npaydet2 (f3.0). do if (missing(npaynum2)=1). + compute Npaydet2=-9. else if (Npaynum2=1 & temp1a=1). + compute Npaydet2=1. else if (Npaynum2=1 & temp2a=1). + compute Npaydet2=2. else if (Npaynum2=1 & temp3a=1). + compute Npaydet2=3. else if (Npaynum2=1 & temp4a=1). + compute Npaydet2=4. else if (Npaynum2=1 & temp5a=1). + compute Npaydet2=5. else if (Npaynum2=1 & temp6a=1). + compute Npaydet2=6. else if (Npaynum2=1 & temp7a=1). + compute Npaydet2=7. ELSE IF Npaynum2>1 & (temp1a=1 | temp2a=1 | temp3a=1) & sum(temp4a,temp5a,temp6a,temp7a)=0. COMPUTE Npaydet2=11. ELSE IF Npaynum2>1 & (temp4a=1 & temp5a=1) & sum(temp1a,temp2a,temp3a,temp6a,temp7a)=0. COMPUTE Npaydet2=21. ELSE IF Npaynum2>1 & (temp4a=1 | temp5a=1) & temp6a=1 & sum(temp1a,temp2a,temp3a,temp7a)=0.. COMPUTE Npaydet2=22. ELSE IF Npaynum2>1 & (temp1a=1 | temp2a=1 | temp3a=1) & (temp4a=1 | temp5a=1) & sum(temp6a,temp7a)=0. COMPUTE Npaydet2=31. ELSE IF Npaynum2>1 & (temp1a=1 | temp2a=1 | temp3a=1) & temp6a=1 & sum(temp4a,temp5a,temp7a)=0. COMPUTE Npaydet2=32. ELSE IF Npaynum2>1 & (temp1a=1 | temp2a=1 | temp3a=1) & temp7a=1 & sum(temp4a,temp5a,temp6a)=0. COMPUTE Npaydet2=41. ELSE IF Npaynum2>1 & (temp4a=1 | temp5a=1) & temp7a=1 & sum(temp1a,temp2a,temp3a,temp6a)=0. COMPUTE Npaydet2=42. ELSE IF Npaynum2>1 & (temp1a=1 | temp2a=1 | temp3a=1) & (temp4a=1 | temp5a=1) & temp7a=1 & temp6a=0. COMPUTE Npaydet2=43. ELSE IF Npaynum2>1 & (temp1a=1 | temp2a=1 | temp3a=1) & (temp4a=1 | temp5a=1) & temp6a=1 & temp7a=0. COMPUTE Npaydet2=44. ELSE IF Npaynum2>1 & (temp1a=1 | temp2a=1 | temp3a=1) & (temp4a=1 | temp5a=1) & temp6a=1 & temp7a=1. COMPUTE Npaydet2=45. ELSE IF Npaynum2>1 & (temp1a=1 | temp2a=1 | temp3a=1) & temp6a=1 & temp7a=1 & sum(temp4a,temp5a)=0. COMPUTE Npaydet2=46. ELSE IF Npaynum2>1 & (temp4a=1 | temp5a=1) & temp6a=1 & temp7a=1 & sum(temp1a,temp2a,temp3a)=0. COMPUTE Npaydet2=47. ELSE IF Npaynum2>1 & temp6a=1 & temp7a=1 & sum(temp1a,temp2a,temp3a,temp4a,temp5a)=0. COMPUTE Npaydet2=48. else. + compute Npaydet2=-8. end if. missing values Npaydet2 (-9,-8). variable labels Npaydet2 'Method of pay determination for all employees'. value labels Npaydet2 1 'All multi-employer collective bargaining' 2 'All single employer collective bargaining' 3 'All workplace collective bargaining' 4 'All set by management at higher level' 5 'All set by management at workplace' 6 'All individual negotiation' 7 'All other (eg. pay review body)' 11 'All collective bargaining, but different levels' 21 'All set by management, but different levels' 22 'Set by management and individual negotiation' 31 'Collective bargaining and set by management' 32 'Collective bargaining and individual negotiations' 41 'Collective bargaining and other' 42 'Set by management and other' 43 'Collective barg., set by mngt and other' 44 'Collective barg., set by mngt and indv negs' 45 'Collective barg., set by mngt, indv negs and other' 46 'Collective barg., indiv negs and other' 47 'Set by mngt, indiv negs and other' 48 'Indiv negs and other' -8 'Do now know' -9 'NA'. ************************************************. COMMENT Pay determination, all employees (Nbarg92) . Numeric Nbarg92 (f3.0). do if (missing(Npaydet2) = 1). + compute Nbarg92 = -9. else if (Npaydet2 ge 11). + compute Nbarg92 = 1. else. + compute Nbarg92 = 2. end if. missing values Nbarg92 (-9). value labels Nbarg92 1 'Mixture' 2 'Single' -9 'DK/NA'. variable labels Nbarg92 'Pay determination, all employees'. ************************************************. COMMENT Any collective bargaining, all employees (NANYCB2) . Numeric Nanycb2 (f3.0). do if (missing(Npaydet2) = 1). + compute Nanycb2 = -9. else if (Npaydet2 le 3 | Npaydet2 = 11 | Npaydet2 = 31 | Npaydet2 = 32 | Npaydet2 = 41 | Npaydet2 = 43 | Npaydet2 = 44 | Npaydet2 = 45 | Npaydet2 = 46). + compute Nanycb2 = 1. else. + compute Nanycb2 = 2. end if. missing values Nanycb2 (-9). variable labels Nanycb2 'Any collective bargaining, all employees'. value labels Nanycb2 1 'Yes' 2 'No' -9 'DK/NA'. ************************************************. COMMENT Any pay set by management, all employees (NSETMAN2) . Numeric Nsetman2 (f3.0). do if (missing(Npaydet2) = 1). + compute Nsetman2 = -9. else if (Npaydet2 = 4 | Npaydet2 = 5 | Npaydet2 = 21 | Npaydet2 = 22 | Npaydet2 = 31 | Npaydet2 = 42 | Npaydet2 = 43 | Npaydet2 = 44 | Npaydet2 = 45 | Npaydet2 = 47). + compute Nsetman2 = 1. else. + compute Nsetman2 = 2. end if. missing values Nsetman2 (-9). variable labels Nsetman2 'Any pay set by management, all employees'. value labels Nsetman2 1 'Yes' 2 'No' -9 'DK/NA'. ************************************************. COMMENT Any individual negotiations, all employees (NINDNEGO2) . Numeric Nindnego2 (f3.0). do if (missing(Npaydet2) = 1). + compute Nindnego2 = -9. else if (Npaydet2 = 6 | Npaydet2 = 22 | Npaydet2 = 32 | Npaydet2 = 44 | Npaydet2 = 45 | Npaydet2 = 46 | Npaydet2 = 47 | Npaydet2 = 48). + compute Nindnego2 = 1. else. + compute Nindnego2 = 2. end if. missing values Nindnego2 (-9). variable labels Nindnego2 'Any individual negotiations, all employees'. value labels Nindnego2 1 'Yes' 2 'No' -9 'DK/NA'. ************************************************. COMMENT Any other pay determination methods, all employees (NOPAY2) . Numeric Nopay2 (f3.0). do if (missing(Npaydet2) = 1). + compute Nopay2 = -9. else if (Npaydet2 = 7 | Npaydet2 = 41 | Npaydet2 = 42 | Npaydet2 = 43 | Npaydet2 = 45 | Npaydet2 = 46 | Npaydet2 = 47 | Npaydet2 = 48). + compute Nopay2 = 1. else. + compute Nopay2 = 2. end if. missing values Nopay2 (-9). variable labels Nopay2 'Any other pay determination methods, all employees'. value labels Nopay2 1 'Yes' 2 'No' -9 'DK/NA'. ************************************************. COMMENT Proportion of all employees covered, by method (Ncbmulta to Npayreva) . IF (nfsoc1=1) ncbmlt1a=100*zmng_tot/(zallemps). IF (nfsoc2=1) ncbmlt2a=100*zpro_tot/(zallemps). IF (nfsoc3=1) ncbmlt3a=100*ztec_tot/(zallemps). IF (nfsoc4=1) ncbmlt4a=100*zcle_tot/(zallemps). IF (nfsoc5=1) ncbmlt5a=100*zcrt_tot/(zallemps). IF (nfsoc6=1) ncbmlt6a=100*zptc_tot/(zallemps). IF (nfsoc7=1) ncbmlt7a=100*zsal_tot/(zallemps). IF (nfsoc8=1) ncbmlt8a=100*zope_tot/(zallemps). IF (nfsoc9=1) ncbmlt9a=100*zrou_tot/(zallemps). + compute zcbmulta=sum(ncbmlt1a,ncbmlt2a,ncbmlt3a,ncbmlt4a,ncbmlt5a,ncbmlt6a,ncbmlt7a,ncbmlt8a,ncbmlt9a). execute. IF (nfsoc1=2) ncborg1a=100*zmng_tot/(zallemps). IF (nfsoc2=2) ncborg2a=100*zpro_tot/(zallemps). IF (nfsoc3=2) ncborg3a=100*ztec_tot/(zallemps). IF (nfsoc4=2) ncborg4a=100*zcle_tot/(zallemps). IF (nfsoc5=2) ncborg5a=100*zcrt_tot/(zallemps). IF (nfsoc6=2) ncborg6a=100*zptc_tot/(zallemps). IF (nfsoc7=2) ncborg7a=100*zsal_tot/(zallemps). IF (nfsoc8=2) ncborg8a=100*zope_tot/(zallemps). IF (nfsoc9=2) ncborg9a=100*zrou_tot/(zallemps). + compute zcborga=sum(ncborg1a,ncborg2a,ncborg3a,ncborg4a,ncborg5a,ncborg6a,ncborg7a,ncborg8a,ncborg9a). execute. IF (nfsoc1=3) ncbwrk1a=100*zmng_tot/(zallemps). IF (nfsoc2=3) ncbwrk2a=100*zpro_tot/(zallemps). IF (nfsoc3=3) ncbwrk3a=100*ztec_tot/(zallemps). IF (nfsoc4=3) ncbwrk4a=100*zcle_tot/(zallemps). IF (nfsoc5=3) ncbwrk5a=100*zcrt_tot/(zallemps). IF (nfsoc6=3) ncbwrk6a=100*zptc_tot/(zallemps). IF (nfsoc7=3) ncbwrk7a=100*zsal_tot/(zallemps). IF (nfsoc8=3) ncbwrk8a=100*zope_tot/(zallemps). IF (nfsoc9=3) ncbwrk9a=100*zrou_tot/(zallemps). + compute zcbworka=sum(ncbwrk1a,ncbwrk2a,ncbwrk3a,ncbwrk4a,ncbwrk5a,ncbwrk6a,ncbwrk7a,ncbwrk8a,ncbwrk9a). execute. IF (nfsoc1=4) nsetorg1a=100*zmng_tot/(zallemps). IF (nfsoc2=4) nsetorg2a=100*zpro_tot/(zallemps). IF (nfsoc3=4) nsetorg3a=100*ztec_tot/(zallemps). IF (nfsoc4=4) nsetorg4a=100*zcle_tot/(zallemps). IF (nfsoc5=4) nsetorg5a=100*zcrt_tot/(zallemps). IF (nfsoc6=4) nsetorg6a=100*zptc_tot/(zallemps). IF (nfsoc7=4) nsetorg7a=100*zsal_tot/(zallemps). IF (nfsoc8=4) nsetorg8a=100*zope_tot/(zallemps). IF (nfsoc9=4) nsetorg9a=100*zrou_tot/(zallemps). + compute zsetorga=sum(nsetorg1a,nsetorg2a,nsetorg3a,nsetorg4a,nsetorg5a,nsetorg6a,nsetorg7a,nsetorg8a,nsetorg9a). execute. IF (nfsoc1=5) nsetwrk1a=100*zmng_tot/(zallemps). IF (nfsoc2=5) nsetwrk2a=100*zpro_tot/(zallemps). IF (nfsoc3=5) nsetwrk3a=100*ztec_tot/(zallemps). IF (nfsoc4=5) nsetwrk4a=100*zcle_tot/(zallemps). IF (nfsoc5=5) nsetwrk5a=100*zcrt_tot/(zallemps). IF (nfsoc6=5) nsetwrk6a=100*zptc_tot/(zallemps). IF (nfsoc7=5) nsetwrk7a=100*zsal_tot/(zallemps). IF (nfsoc8=5) nsetwrk8a=100*zope_tot/(zallemps). IF (nfsoc9=5) nsetwrk9a=100*zrou_tot/(zallemps). + compute zsetworka=sum(nsetwrk1a,nsetwrk2a,nsetwrk3a,nsetwrk4a,nsetwrk5a,nsetwrk6a,nsetwrk7a,nsetwrk8a,nsetwrk9a). execute. IF (nfsoc1=6) nindneg1a=100*zmng_tot/(zallemps). IF (nfsoc2=6) nindneg2a=100*zpro_tot/(zallemps). IF (nfsoc3=6) nindneg3a=100*ztec_tot/(zallemps). IF (nfsoc4=6) nindneg4a=100*zcle_tot/(zallemps). IF (nfsoc5=6) nindneg5a=100*zcrt_tot/(zallemps). IF (nfsoc6=6) nindneg6a=100*zptc_tot/(zallemps). IF (nfsoc7=6) nindneg7a=100*zsal_tot/(zallemps). IF (nfsoc8=6) nindneg8a=100*zope_tot/(zallemps). IF (nfsoc9=6) nindneg9a=100*zrou_tot/(zallemps). + compute zindnega=sum(nindneg1a,nindneg2a,nindneg3a,nindneg4a,nindneg5a,nindneg6a,nindneg7a,nindneg8a,nindneg9a). execute. IF (nfsoc1=7) npayrev1a=100*zmng_tot/(zallemps). IF (nfsoc2=7) npayrev2a=100*zpro_tot/(zallemps). IF (nfsoc3=7) npayrev3a=100*ztec_tot/(zallemps). IF (nfsoc4=7) npayrev4a=100*zcle_tot/(zallemps). IF (nfsoc5=7) npayrev5a=100*zcrt_tot/(zallemps). IF (nfsoc6=7) npayrev6a=100*zptc_tot/(zallemps). IF (nfsoc7=7) npayrev7a=100*zsal_tot/(zallemps). IF (nfsoc8=7) npayrev8a=100*zope_tot/(zallemps). IF (nfsoc9=7) npayrev9a=100*zrou_tot/(zallemps). + compute zpayreva=sum(npayrev1a,npayrev2a,npayrev3a,npayrev4a,npayrev5a,npayrev6a,npayrev7a,npayrev8a,npayrev9a). execute. COMMENT Uses diffpc instead of testa *+ compute testa=sum(zcbmulta,zcborga,zcbworka,zsetorga,zsetworka,zindnega,zpayreva). *execute. do if (diffpc<-5 | diffpc>5). + compute Ncbmulta=-9. + compute Ncborga=-9. + compute Ncbworka=-9. + compute Nsetorga=-9. + compute Nsetworka=-9. + compute Nindnega=-9. + compute Npayreva=-9. else. + compute Ncbmulta=max(0,zcbmulta). + compute Ncborga=max(0,zcborga). + compute Ncbworka=max(0,zcbworka). + compute Nsetorga=max(0,zsetorga). + compute Nsetworka=max(0,zsetworka). + compute Nindnega=max(0,zindnega). + compute Npayreva=max(0,zpayreva). end if. + compute Npaysuma=sum(ncbmulta to npayreva). missing values Ncbmulta to Npayreva (-9). variable labels Ncbmulta 'Set by multi-employer bargaining,all' Ncborga 'Set by single employer collective bargaining,all' Ncbworka 'Set by workplace collective bargaining,all' Nsetorga 'Set by management at higher level,all' Nsetworka 'Set by management at workplace,all' Nindnega 'Set by individual negotiation,all' Npayreva 'Set by pay review body/other,all' Npaysuma 'Sum of pay setting arrangements,all'. ************************************************. COMMENT Measure of single status (Nsstatu1,Nsstatu2,Nsstatu3,Nsstatu4,Nsstatu5) . Numeric Nsstatu1 (F3.0). do if (missing(fothtit1) = 1 | missing(fentitl1) = 1). + compute Nsstatu1 = 9. else if (any(1,fothtit1 to fothtit6) = 1 & any(1,fentitl1 to fentitl6) = 1). + compute Nsstatu1 = 1. else if (any(1,fothtit1 to fothtit6) ne 1 & any(1,fentitl1 to fentitl6) = 1). + compute Nsstatu1 = 2. else if (any(1,fothtit1 to fothtit6) = 1 & any(1,fentitl1 to fentitl6) ne 1). + compute Nsstatu1 = 3. else if (any(1,fothtit1 to fothtit6) ne 1 & any(1,fentitl1 to fentitl6) ne 1). + compute Nsstatu1 = 4. end if. value labels Nsstatu1 1 'Both have' 2 'Managers only' 3 'LOG only' 4 'Neither have' 9 'Dont know'. variable labels Nsstatu1 'Entitlement to pension scheme'. execute. Numeric Nsstatu2 (F3.0). do if (missing(fothtit1) = 1 | missing(fentitl1) = 1). + compute Nsstatu2 = 9. else if (any(2,fothtit1 to fothtit6) = 1 & any(2,fentitl1 to fentitl6) = 1). + compute Nsstatu2 = 1. else if (any(2,fothtit1 to fothtit6) ne 1 & any(2,fentitl1 to fentitl6) = 1). + compute Nsstatu2 = 2. else if (any(2,fothtit1 to fothtit6) = 1 & any(2,fentitl1 to fentitl6) ne 1). + compute Nsstatu2 = 3. else if (any(2,fothtit1 to fothtit6) ne 1 & any(2,fentitl1 to fentitl6) ne 1). + compute Nsstatu2 = 4. end if. value labels Nsstatu2 1 'Both have' 2 'Managers only' 3 'LOG only' 4 'Neither have' 9 'Dont know'. variable labels Nsstatu2 'Entitlement to car'. execute. Numeric Nsstatu3 (F3.0). do if (missing(fothtit1) = 1 | missing(fentitl1) = 1). + compute Nsstatu3 = 9. else if (any(3,fothtit1 to fothtit6) = 1 & any(3,fentitl1 to fentitl6) = 1). + compute Nsstatu3 = 1. else if (any(3,fothtit1 to fothtit6) ne 1 & any(3,fentitl1 to fentitl6) = 1). + compute Nsstatu3 = 2. else if (any(3,fothtit1 to fothtit6) = 1 & any(3,fentitl1 to fentitl6) ne 1). + compute Nsstatu3 = 3. else if (any(3,fothtit1 to fothtit6) ne 1 & any(3,fentitl1 to fentitl6) ne 1). + compute Nsstatu3 = 4. end if. value labels Nsstatu3 1 'Both have' 2 'Managers only' 3 'LOG only' 4 'Neither have' 9 'Dont know'. variable labels Nsstatu3 'Entitlement to health care'. execute. Numeric Nsstatu4 (F3.0). do if (missing(fothtit1) = 1 | missing(fentitl1) = 1). + compute Nsstatu4 = 9. else if (any(4,fothtit1 to fothtit6) = 1 & any(4,fentitl1 to fentitl6) = 1). + compute Nsstatu4 = 1. else if (any(4,fothtit1 to fothtit6) ne 1 & any(4,fentitl1 to fentitl6) = 1). + compute Nsstatu4 = 2. else if (any(4,fothtit1 to fothtit6) = 1 & any(4,fentitl1 to fentitl6) ne 1). + compute Nsstatu4 = 3. else if (any(4,fothtit1 to fothtit6) ne 1 & any(4,fentitl1 to fentitl6) ne 1). + compute Nsstatu4 = 4. end if. value labels Nsstatu4 1 'Both have' 2 'Managers only' 3 'LOG only' 4 'Neither have' 9 'Dont know'. variable labels Nsstatu4 'Entitlement to 4 weeks annual leave'. execute. Numeric Nsstatu5 (F3.0). do if (missing(fothtit1) = 1 | missing(fentitl1) = 1). + compute Nsstatu5 = 9. else if (any(5,fothtit1 to fothtit6) = 1 & any(5,fentitl1 to fentitl6) = 1). + compute Nsstatu5 = 1. else if (any(5,fothtit1 to fothtit6) ne 1 & any(5,fentitl1 to fentitl6) = 1). + compute Nsstatu5 = 2. else if (any(5,fothtit1 to fothtit6) = 1 & any(5,fentitl1 to fentitl6) ne 1). + compute Nsstatu5 = 3. else if (any(5,fothtit1 to fothtit6) ne 1 & any(5,fentitl1 to fentitl6) ne 1). + compute Nsstatu5 = 4. end if. value labels Nsstatu5 1 'Both have' 2 'Managers only' 3 'LOG only' 4 'Neither have' 9 'Dont know'. variable labels Nsstatu5 'Entitlement to sick pay'. execute. ************************************************. COMMENT Single status: managers and other employees have equal conditions (Nss2, Nss3) . numeric nss2 (f1.0) . do if (missing(fothtit1) = 1 | missing(fentitl1) = 1). + compute Nss2 = 9. else if min(Nsstatu1 to Nsstatu5)=4 and max(Nsstatu1 to Nsstatu5)=4 . + compute Nss2=1 . else if any(Nsstatu1,1,4) and any(Nsstatu2,1,4) and any(Nsstatu3,1,4) and any(Nsstatu4,1,4) and any(Nsstatu5,1,4) . + compute Nss2=2 . else if any(Nsstatu1,1) or any(Nsstatu2,1) or any(Nsstatu3,1) or any(Nsstatu4,1) or any(Nsstatu5,1) . + compute Nss2=3 . else if min(Nsstatu1 to Nsstatu5)>1 and min(Nsstatu1 to Nsstatu5)<4 . + compute Nss2=4 . end if . missing values Nss2 (9). variable label Nss2 'Single status: managers and other employees have equal conditions'. value labels Nss2 1 "No entitlement for anyone" 2 "Both entitled wherever provided" 3 "At least one area where both entitled" 4 "No areas where both entitled, but some entitlement" 9 "DK/NA" . execute. numeric nss3 (f1.0) . recode nss2 (2=1) (else=copy) into nss3 . missing values Nss3 (9). variable label Nss3 'Single status: managers and other employees have equal conditions'. value labels Nss3 1 "Same entitlement for anyone (inc none)" 3 "At least one area where both entitled" 4 "No areas where both entitled, but some entitlement" 9 "DK/NA" . execute. ************************************************. COMMENT Any industrial action in past 12 months (Nstrike) . Numeric Nstrike (f3.0). do if (missing(gactio01)=1). + compute Nstrike = 9. else if (gactio01 ne 11). + compute Nstrike =1. else. + compute Nstrike = 2. end if. value labels Nstrike 1 'Yes' 2 'No' 9 'DK/NA'. variable labels Nstrike 'Any industrial action during last 12 months'. missing values Nstrike (9). execute. ************************************************. COMMENT Threat of industrial action (Nthretsk) . Numeric Nthretsk (f2.0). do if (missing(gpstyr1)=1). + recode gpstyr1 (else=copy) into nthretsk . else if (gpstyr1 ne 8). + compute Nthretsk =1. else. + compute Nthretsk = 2. end if. value labels Nthretsk 1 'Yes' 2 'No' -9 'NA' -8 'DK' variable labels Nthretsk 'Any threatened industrial action during last 12 months'. missing values Nthretsk (-9 thru -1). execute. ************************************************. COMMENT IT claims (Nitclaim) . Numeric Nitclaim (f5.2). do if (missing(hcomplai)=1). + compute Nitclaim = 9. else if (hcomplai = 2). + compute Nitclaim = 0. else. + compute Nitclaim = 1. end if. variable labels Nitclaim 'Any IT cases'. value labels Nitclaim 1 'IT claim in past year' 0 'No' 9 'DK/NA'. missing values Nitclaim (9). execute. ************************************************. COMMENT Rate of IT cases per 1,000 (Nitrate) . Numeric Nitrate (f5.2). do if (missing(hcomplai)=1). + compute Nitrate = 99999. else if (hcomplai = 2). + compute Nitrate = 0. else if (missing(hcomnum)=1). + compute Nitrate = 99999. else. + compute Nitrate = (hcomnum / zallemps) * 1000. end if. variable labels Nitrate 'Rate of IT cases per 1,000'. missing values Nitrate (99999). execute. ************************************************. COMMENT Banded itrate variable (itrateband) . RECODE Nitrate (0=Copy) (0 thru 9.5=1) (9.5 thru Highest=2) (else = copy) INTO itrateband . EXECUTE . missing values itrateband (-8). variable labels itrateband 'ET claims per 1000 employees brought in the preceeding year - banded'. value labels itrateband 0 'No claims' 1 'Greater than zero and less than 10 claims' 2 '10 or more claims' -8 'Do not know'. execute . ************************************************. COMMENT EO policy covering equality of treatment or discrimination (Nipolicy) . Numeric Nipolicy (f2). do if (missing(ipolicy)=1). + compute Nipolicy=9. else if (ipolicy = 2). + compute Nipolicy = 2. else if (missing(igroun01) = 1). + compute Nipolicy = 9. else if (any(10,igroun01 to igroun09)). + compute Nipolicy = 2. else. + compute Nipolicy =1. end if. missing values Nipolicy (9). variable labels Nipolicy 'EO policy covering equality of treatment or discrimination'. value labels Nipolicy 2 'No' 1 'Yes' 9 'DK/NA'. execute. ************************************************.