TITLE 'WERS 98 - TIME SERIES Version 1.2' . SUBTITLE 'MERGETS' . COMMENT Purpose: Merges the four years of time series data and derives further variables . COMMENT Input files: "o:\wers98\longit\deposit\dat80ts.sav" "o:\wers98\longit\deposit\dat84ts.sav" "o:\wers98\longit\deposit\dat90ts.sav" "o:\wers98\longit\deposit\dat98ts.sav" COMMENT Output file: "o:\wers98\longit\deposit\wirstime.sav" . COMMENT Last updated: Dec 2001 . *********************************************** . COMMENT List of variables derived in this file . * TALLEMP3 Number of employees in 3 bands (25-99; 100-499; 500+) . * TALLEMP4 Number of employees in 4 bands (25-99; 100-499; 500-999; 1000+) . * TALLEMP5 Number of employees in 5 bands (25-49; 50-99; 100-199; 200-499; 500+) . * TALLEMP6 Number of employees in 6 bands (25-49; 50-99; 100-199; 200-499; 500-999; 1000+) . * TFEMPC Percentage female employees . * TFEMPC12 Percentage female employees (0; 1-9; 10-19; 20-29; 30-39; 40-49;50-59; 60-69; 70-79; 80-89; 90-99; 100) . * TFEMPC3 Percentage female employees (0-30; 31-70; 71%+) . * TFEMPC3B Percentage female employees (0-24; 25-74; 75%+) . * TFEMPC5B Percentage female employees (0-9; 10-24; 25-75; 75-89; 90%+) . * TPTPC Percentage part-time employees . * TPTPC12 Percentage part-time employees (0; 1-9; 10-19; 20-29; 30-39; 40-49;50-59; 60-69; 70-79; 80-89; 90-99; 100) . * TPTPC3 Percentage part-time employees (0-5; 6-40; 41+) . * TPTPC3B Percentage part-time employees (0; 1-24; 25+) . * TPTPC4B Percentage part-time employees (0; 1-24; 25-49; 50%+) . * TNMPC Percentage non-manual emps . * TNMPC12 Percentage non-manual emps (0; 1-9; 10-19; 20-29; 30-39; 40-49;50-59; 60-69; 70-79; 80-89; 90-99; 100) . * TNMPC3 Percentage non-manual emps (0-24; 25-74; 75+) . * TVERSEG Representation of women among mgrl posts cf whole w/p . * TVERSEG5 Representation of women among mgrl posts cf whole w/p (5 categories) . * TVERSEG3 Representation of women among mgrl posts cf whole w/p (3 categories) . * TUDENS6A Union density (0; 1-24%; 25-49%; 50-74%; 75-89%; 90-99%; 100%) . * TNUMMEMB As TNUMMEMA, but DK if any members (99999) coded to 0 . * TUDENSB As TUDENSA, but cases where DK if any members (999) coded to 0 . * TUDENS6B As TUDENS6A, but cases where DK if any members (999) coded to 0 . * TSICSUM Broad industrial activity (manufacturing; services) . * TSINGLE2 Divides multis into head offices and other establishments (Single indep; Branch multi; HO multi). * TORGSIZ4 Size of organisation (25-499; 500-1999; 2000-9,999; 10,000+) [Note: many missings in 1990] . * TORGSZ4B Size of organisation (25-99; 100-999; 1000-9,999; 10,000+) [Note: many missings in 1990] . * TORGSIZ3 Size of organisation (25-499; 500-9,999; 10,000+) [Note: many missings in 1990] . * TSTATUS2 Ownership status of establishment (Private; Public trading sector; Other public sector) [All] . * TSECTOR3 Pvt Manuf; Pvt Services; Pub sector . * TUKFO2 Uk-owned/controlled (inc 50/50); Foreign-owned/controlled . * TJCCF Functioning JCC [All] . * TJCCFTU Functioning Jcc where rep chosen by unions [All] . * TJCCNU4 Number of Jccs (banded) [where JCC] . * TANYJCC1 W/p level JCC or higher level JCC [All] . * TANYJCC2 Functioning w/p level JCC or higher level JCC [All] . * TUNINUM6 Number of unions present [where members] . * TTOTREC3 Number of recog unions (1; 2; 3 or more) [where recog] . * TRECOG2 Any recognition; no recognition . * TRECFP2 Full/partial recognition - alternative definition using union presence on JCCs rather than union role in agreeing D+D procedure . * TREPSUM Union representation (No recognition; Recog but no union reps; Rep but not full-time; Full-time rep) . * TREPSUM2 Union representation (No recognition; Recog but no local/external reps; External rep only; Local rep) . * TVOICE1 Any union/non-union voice mechanisms? (90,98) [All] . * TVOICE2 Any union/non-union voice mechanisms? (84-98) [All] . * TVOICE2A Any union/non-union voice mechanisms? (84-98) [All] . * TVOICE3 Any reptv/direct voice mechanisms? (90,98) [All] . * TVOICE4 Any reptv/direct voice mechanisms? (84-98) [All] . * TVOICE4A Any reptv/direct voice mechanisms? (84-98) [All] . * TVOICE5 Any voice mechanisms? (90-98) [All] . * TVOICE5A Any voice mechanisms? (90-98) [All] . * TDISMISS Any employees dismissed in last 12 months? [All] . * TCOVPC4 Coverage of collective bargaining [all] (None; 1-49%; 50-99%; 100%) . * TCOVPC3 Coverage of collective bargaining [all] (None; 1-49%; 50-100%) . * TCOVPC2 Coverage of collective bargaining [all] (None-49%; 50-100%) . * TPAYDET2 Pay determination arrangements [all] . * TPAYDET3 Pay determination arrangements [all] . * THANDS2 Arrangments for dealing with health and safety (Jnt committee for H&S; Jnt comm for H&S and other matters; Workforce reps, no committee; Other arrangements) . * EEWEIGHT Weight for employee-weighted tables . *********************************************** . COMMENT Combine data from four surveys . ADD FILES FILE="o:\wers98\longit\deposit\dat80ts.sav" /FILE="o:\wers98\longit\deposit\dat84ts.sav" /FILE="o:\wers98\longit\deposit\dat90ts.sav" /FILE="o:\wers98\longit\deposit\dat98ts.sav" . SORT CASES BY serno . FREQ VARS=year . ********************************************* . COMMENT Derive further time-series variables . ********************************************* . COMMENT TALLEMP3, TALLEMP4, TALLEMP5, TALLEMP6 . numeric tallemp3 tallemp4 tallemp5 tallemp6 (f1.0) . RECODE tallemps (25 thru 99=1) (100 thru 499=2) (500 thru hi=3) into tallemp3 . RECODE tallemps (25 thru 99=1) (100 thru 499=2) (500 thru 999=3) (1000 thru hi=4) into tallemp4 . RECODE tallemps (25 thru 49=1) (50 thru 99=2) (100 thru 199=3) (200 thru 499=4) (500 thru hi=5) into tallemp5 . RECODE tallemps (25 thru 49=1) (50 thru 99=2) (100 thru 199=3) (200 thru 499=4) (500 thru 999=5) (1000 thru hi=6) into tallemp6 . variable labels tallemp3 "Total number of employees at establishment" /tallemp4 "Total number of employees at establishment" /tallemp5 "Total number of employees at establishment" /tallemp6 "Total number of employees at establishment" . value labels tallemp3 1 "25-99" 2 "100-499" 3 "500+" /tallemp4 1 "25-99" 2 "100-499" 3 "500-999" 4 "1000+" /tallemp5 1 "25-49" 2 "50-99" 3 "100-199" 4 "200-499" 5 "500+" /tallemp6 1 "25-49" 2 "50-99" 3 "100-199" 4 "200-499" 5 "500-999" 6 "1000+" . execute . ********************************************* . COMMENT TFEMPC, TFEMPC12, TFEMPC3, TFEMPC3B, TFEMPC5B . numeric tfempc tfempc12 tfempc3 tfempc3b tfempc5b (f3.0) . do if missing(tallfem) . + compute tfempc=999 . else . + compute tfempc=rnd((tallfem*100)/tallemps) . + if (tallfem>0 and tfempc=0) tfempc=1 . + if (tallfem100 tfempc=999 . end if . execute . recode tfempc (0=1) (1 thru 9=2) (10 thru 19=3) (20 thru 29=4) (30 thru 39=5) (40 thru 49=6) (50 thru 59=7) (60 thru 69=8) (70 thru 79=9) (80 thru 89=10) (90 thru 99=11) (100=12) (999=999) into tfempc12 . recode tfempc (0 thru 30=1) (31 thru 70=2) (71 thru 100=3) (else=copy) into tfempc3 . recode tfempc (0 thru 24=1) (25 thru 74=2) (75 thru 100=3) (else=copy) into tfempc3b . recode tfempc (0 thru 9=1) (10 thru 24=2) (25 thru 74=3) (75 thru 89=4) (90 thru 100=5) (else=copy) into tfempc5b . execute . missing values tfempc tfempc12 tfempc3 tfempc3b tfempc5b (999) . variable labels tfempc "Percentage female employees" /tfempc12 "Percentage female employees" /tfempc3 "Percentage female employees" /tfempc3b "Percentage female employees" /tfempc5b "Percentage female employees" . value labels tfempc 999 "DK/NA" /tfempc12 1 "Zero" 2 "1-9%" 3 "10-19%" 4 "20-29%" 5 "30-39%" 6 "40-49%" 7 "50-59%" 8 "60-69%" 9 "70-79%" 10 "80-89%" 11 "90-99" 12 "100%" 999 "DK/NA" /tfempc3 1 "0-30%" 2 "31-70%" 3 "71%+" 999 "DK/NA" /tfempc3b 1 "0-24%" 2 "25-74%" 3 "75%+" 999 "DK/NA" /tfempc5b 1 "0-9%" 2 "10-24%" 3 "25-74%" 4 "75-89%" 5 "90%+" 999 "DK/NA" . execute . *********************************** . COMMENT TPTPC, TPTPC12, TPTPC3, TPTPC3B, TPTPC4B . numeric tptpc tptpc12 tptpc3 tptpc3b tptpc4b (f3.0) . do if missing(tallpt) . + compute tptpc=999 . else . + compute tptpc=rnd((tallpt*100)/tallemps) . + if (tallpt>0 and tptpc=0) tptpc=1 . + if (tallpt0 and tnmpc=0) tnmpc=1 . + if (tallnm=1984) . + do if (missing(tfempc) or (missing(tmgrfpc) and value(tmgrfpc)=999)) . + compute tverseg=999 . + else if (missing(tmgrfpc) and value(tmgrfpc)=998) . + compute tverseg=998 . + else if (tfempc12=12) . + compute tverseg=997 . + else if (tfempc12=1) . + compute tverseg=996 . + else if (tmgrfpc=0) . + compute tverseg=0 . + else if (tmgrfpc=100) . + compute tverseg=995 . + else . + compute tverseg=tmgrfpc/tfempc . + end if . end if . recode tverseg (0=1) (0.95 thru 1.05=3) (0.01 thru 0.95=2) (1.05 thru 994=4) (995=5) (else=copy) into tverseg5 . recode tverseg5 (1,2=1) (3=2) (4,5=3) (else=copy) into tverseg3 . missing values tverseg (995 thru 999) . missing values tverseg5 tverseg3 (996 thru 999) . variable labels tverseg "Representation of women among mgt cf whole w/p" /tverseg3 "Representation of women among mgt cf whole w/p" /tverseg5 "Representation of women among mgt cf whole w/p" . value labels tverseg 0 "No female managers" 995 "No male managers" 996 "Managers, but no female employees" 997 "Managers, but no male employees" 998 "No managers" 999 "DK/NA" /tverseg5 1 "No female managers" 2 "Women underrepresented" 3 "Equality" 4 "Women overrepresented" 5 "No male managers" 996 "Managers, but no female employees" 997 "Managers, but no male employees" 998 "No managers" 999 "DK/NA" /tverseg3 1 "Women underrepresented" 2 "Equality" 3 "Women overrepresented" 996 "Managers, but no female employees" 997 "Managers, but no male employees" 998 "No managers" 999 "DK/NA" . ********************************************* . COMMENT TUDENS6A . numeric tudens6a (f3.0) . recode tudensa (0.01 thru 24.49=1) (24.49 thru 49.49=2) (49.49 thru 74.49=3) (74.49 thru 89.49=4) (89.49 thru 99.49=5) (99.49 thru 100=6) (else=copy) into tudens6a . missing values tudens6a (997 thru 999) . variable labels tudens6a "Union membership density" . value labels tudens6a 0 "Zero" 1 "0.01-24%" 2 "25-49%" 3 "50-74%" 4 "75-89%" 5 "90-99%" 6 "100%" 997 "DK/NA; full-time emps" 998 "DK/NA dens; members present" 999 "DK/NA if members" . execute . ********************************************* . COMMENT TNUMMEMB, TUDENSB, TUDENS6B . numeric tnummemb (f5.0) /tudensb (f5.2) /tudens6b (f3.0) . recode tnummema (99999=0) (else=copy) into tnummemb . recode tudensa (999=0) (else=copy) into tudensb . missing values tudensb (997,998) . missing values tnummemb (99998) . variable labels tnummemb "Number of union members" /tudensb "Union membership density" . value labels tnummemb 99998 "DK/NA; members present" /tudensb 997 "DK/NA full-time emps" 998 "DK/NA dens; members present" . execute . recode tudens6a (999=0) (else=copy) into tudens6b . missing values tudens6b (997,998) . variable labels tudens6b "Union membership density" . value labels tudens6b 0 "Zero" 1 "0.01-24%" 2 "25-49%" 3 "50-74%" 4 "75-89%" 5 "90-99%" 6 "100%" 997 "DK/NA; full-time emps" 998 "DK/NA dens; members present" . execute . ********************************************* . COMMENT TSICSUM . numeric tsicsum (f1.0) . recode tsic80b (2 thru 4=1) (1, 5 thru 9=2) into tsicsum . variable labels tsicsum "Industrial classification - summary" . value labels tsicsum 1 "Manufacturing and extraction" 2 "Services" . ********************************************* . COMMENT TSINGLE2 . numeric tsingle2 (f1.0) . do if (tsingle=1) . + compute tsingle2=1 . else if (tsingle=2) . + recode tho (1=3) (2,3=2) (9=9) into tsingle2 . end if . execute . variable labels tsingle2 "Type of establishment" . value labels tsingle2 1 "Single independent establishment" 2 "Branch estab of larger org" 3 "Head office of larger org" 9 "DK/NA; part of larger org" . ********************************************* . COMMENT TORGSIZ4 . numeric torgsiz4 (f2.0) . recode torgsize (1,2=1) (3,4=2) (5,6=3) (7=4) (else=copy) into torgsiz4 . variable labels torgsiz4 "Size of organisation" . value labels torgsiz4 1 "25-499" 2 "500-1999" 3 "2000-9999" 4 "10000+" 99 "DK/NA" . missing values torgsiz4 (99) . ********************************************* . COMMENT TORGSZ4B . numeric torgsz4b (f2.0) . recode torgsize (1=1) (2,3=2) (4,5,6=3) (7=4) (else=copy) into torgsz4b . variable labels torgsz4b "Size of organisation" . value labels torgsz4b 1 "25-99" 2 "100-999" 3 "1000-9999" 4 "10000+" 99 "DK/NA" . missing values torgsz4b (99) . ********************************************* . COMMENT TORGSIZ3 . numeric torgsiz3 (f2.0) . recode torgsiz4 (2,3=2) (4=3) (else=copy) into torgsiz3 . variable labels torgsiz3 "Size of organisation" . value labels torgsiz3 1 "25-499" 2 "500-9999" 3 "10000+" 99 "DK/NA" . missing values torgsiz3 (99) . ********************************************* . COMMENT TSTATUS2 . numeric tstatus2 (f1.0) . do if (tstatus=1) . + compute tstatus2=1 . else if (tstatus=2) . + recode ttrading (1=2) (2=3) into tstatus2 . end if . variable labels tstatus2 "Ownership status" . value labels tstatus2 1 "Private sector" 2 "Trading public sector" 3 "Other public sector" . ********************************************* . COMMENT TSECTOR3 . numeric tsector3 (f1.0) . do if (tstatus=1) . + if any(tsic80b,2,3,4) tsector3=1 . + if any(tsic80b,1,5,6,7,8,9) tsector3=2 . else if (tstatus=2) . + compute tsector3=3 . end if . variable labels tsector3 "Manuf/services within broad sector" . value labels tsector3 1 "Private sector, manuf/extrac" 2 "Private sector, services" 3 "Public sector" . ********************************************* . COMMENT TUKFO2 . numeric tukfo2 (f1.0) . recode tukfo (1,2=1) (3=2) (else=copy) into tukfo2 . missing values tukfo2 (8,9) . variable labels tukfo2 "UK or foreign owned/controlled" . value labels tukfo2 1 "UK owned/controlled (inc 50/50)" 2 "Foreign owned/controlled" 8 "Missed on route" 9 "DK/NA" . execute . *********************************************** . COMMENT TJCCF . numeric tjccf (f1.0) . do if (missing(tjcc) or (tjcc=1 and missing(tjccfreq))) . + compute tjccf=9 . else if (tjcc=1) . + if tjccfreq<=2 tjccf=1 . + if tjccfreq>2 tjccf=2 . else if (tjcc=2) . + compute tjccf=2 . end if . missing values tjccf (9) . variable labels tjccf "Any functioning JCC?" . value labels tjccf 1 "Yes" 2 "No" 9 "DK/NA" . ********************************************* . COMMENT TJCCFTU . numeric tjccftu (f1.0) . do if missing(tjccf)=0 and missing(tanymem)=0 and tjccf=1 and tanymem=1 . + recode tjcctu (else=copy) into tjccftu . end if . missing values tjccftu (9) . variable labels tjccftu "Whether reps on func Jcc chosen by unions" . value labels tjccftu 1 "Yes" 2 "No" 9 "DK/NA" . *********************************************** . COMMENT TJCCNU4 . numeric tjccnu4 (f1.0) . do if (tjcc=1) . + recode tjccnum (4 thru 98=4) (99=9) (else=copy) into tjccnu4 . end if . missing values tjccnu4 (9) . variable labels tjccnu4 "Number of jccs" . value labels tjccnu4 1 "One" 2 "Two" 3 "Three" 4 "Four or more" 9 "DK/NA" . ********************************************* . COMMENT TANYJCC1, TANYJCC2 . numeric tanyjcc1 tanyjcc2 (f1.0) . recode tjcc (else=copy) into tanyjcc1 . recode tjccf (else=copy) into tanyjcc2 . do if (tanyjcc1=2 or tanyjcc1=9) . + recode tjcchi (1=1) (9=9) into tanyjcc1 . end if . do if (tanyjcc2=2 or tanyjcc2=9) . + recode tjcchi (1=1) (9=9) into tanyjcc2 . end if . execute . missing values tanyjcc1 tanyjcc2 (9) . variable labels tanyjcc1 "Any w/p or higher level JCC" /tanyjcc2 "Any functioning w/p JCC or higher level JCC" . value labels tanyjcc1 tanyjcc2 1 "Yes" 2 "No" 9 "DK/NA" . ********************************************* . COMMENT TUNINUM6 . numeric tuninum6 (f1.0) . recode tuninum (6 thru 97=6) (98=8) (99=9) (else=copy) into tuninum6 . missing values tuninum6 (8,9) . variable labels tuninum6 "Number of unions present at the establishment" . value labels tuninum6 6 "6 or more" 8 "DK" 9 "NA" . ********************************************* . COMMENT TTOTREC3 . numeric ttotrec3 (f1.0) . do if (trecog=1 and year>=1990) . + recode ttotrec (3 thru 50=3) (else=copy) into ttotrec3 . end if . missing values ttotrec3 (9) . variable labels ttotrec3 "Number of recognised unions" . value labels ttotrec3 1 "One" 2 "Two" 3 "Three or more" 9 "DK/NA" . ********************************************* . COMMENT Collapse TRECOG into 2 categories: any/none . numeric trecog2 (f1.0) . recode trecog (3=2) (else=copy) into trecog2 . variable labels trecog2 "Any union recognition?" . value labels trecog2 1 "Recognised unions" 2 "No recognition" . ********************************************* . COMMENT TRECFP2 . numeric trecfp2 (f1.0) . recode trecog (2=3) (3=4) (else=copy) into trecfp2 . if (trecfp2=3 and tjcctu=1) trecfp2=2 . variable labels trecfp2 "Full or partial recognition (tjcctu definition)" . value labels trecfp2 1 "Full recognition" 2 "Partial recognition" 3 "Members but no recognition" 4 "No union members" . ********************************************* . COMMENT TREPSUM and TREPSUM2 . numeric trepsum trepsum2 (f1.0) . do if (any(trecog,2,3)) . + compute trepsum=4 . else if (trecog=1) . + do if (missing(turep) or turep=2) . + compute trepsum=3 . + else if (turep=1) . + do if (missing(tfturep) or tfturep=2) . + compute trepsum=2 . + else if (tfturep=1) . + compute trepsum=1 . + end if . + end if . end if . do if (any(trecog,2,3)) . + compute trepsum2=4 . else if (year~=1980 and trecog=1) . + do if (missing(turep)) . + compute trepsum2=3 . + else if (turep=1) . + compute trepsum2=1 . + else if (turep=2) . + do if (tsingle=2 and missing(textrep)) . + compute trepsum2=9 . + else if (tsingle=1 or textrep=2) . + compute trepsum2=3 . + else if (textrep=1) . + compute trepsum2=2 . + end if . + end if . else if (year=1980 and trecog=1) . + recode turep (2=3) (else=copy) into trepsum2 . end if . missing values trepsum2 (9) . variable labels trepsum "Presence of union reps" /trepsum2 "Presence of union reps" . value labels trepsum 1 "Full-time union rep" 2 "Union rep, but not full-time" 3 "Recognition but no union reps" 4 "No recognised unions" /trepsum2 1 "Local union rep" 2 "External union rep only" 3 "Recognition but no union reps" 4 "No recognised unions" 9 "DK/NA" . *********************************************** . COMMENT TVOICE1, TVOICE2, TVOICE3, TVOICE4, TVOICE2A, TVOICE4A, TVOICE5, TVOICE5A . numeric tvoice1 tvoice2 tvoice3 tvoice4 tvoice2a tvoice4a tvoice5 tvoice5a (f1.0) . recode tjccftu tothrep2 (else=copy) into jccftu2 othrep3 . do if (missing(tjccf) and missing(tanymem)=0 and tanymem=1) or (missing(tjccf)=0 and tjccf=1 and (missing(tanymem) or tanymem=9)) . + recode jccftu2 (sysmis=9) . else if (missing(tjccf) and missing(tanymem)=0 and tanymem=2) or (missing(tjccf)=0 and tjccf=2) or (missing(tjccf)=0 and tjccf=1 and missing(tanymem)=0 and tanymem=2) . + recode jccftu2 (sysmis=2) . end if . do if (year>=1990) . + do if missing(tanymem) or tanymem=9 . + recode othrep3 (sysmis=9) . + else if (missing(tanymem)=0 and tanymem=1) . + recode othrep3 (sysmis=2) . + end if . end if . missing values jccftu2 othrep3 (9) . recode tjccf (else=copy) into tjccfnu . do if value(jccftu2)=9 . + recode tjccfnu (1=9) . else if missing(jccftu2)=0 and (tjccftu=1) . + recode tjccfnu (1=2) . end if . missing values tjccfnu (9) . do if (year>=1984) . + do if (trecog2=1 or (missing(jccftu2)=0 and jccftu2=1)) . + compute tuv1=1 . + else if (missing(jccftu2)) . + compute tuv1=9 . + else if (trecog2=2 and jccftu2=2) . + compute tuv1=2 . + end if . end if . do if (year>=1984) . + do if (missing(tjccfnu)=0 and tjccfnu=1) or (missing(tconsall)=0 and tconsall=1) or (missing(tbrief)=0 and tbrief=1) . + compute tnuv1=1 . + else if (missing(tjccfnu) or missing(tconsall) or missing(tbrief)) . + compute tnuv1=9 . + else if tjccfnu=2 and tconsall=2 and tbrief=2 . + compute tnuv1=2 . + end if . end if . missing values tuv1 tnuv1 (9) . do if (year>=1984) . + do if (missing(tuv1)=0 and missing(tnuv1)=0) . + do if (tuv1=1 and tnuv1=2) . + compute tvoice1=1 . + else if (tuv1=1 and tnuv1=1) . + compute tvoice1=2 . + else if (tuv1=2 and tnuv1=1) . + compute tvoice1=3 . + else if (tuv1=2 and tnuv1=2) . + compute tvoice1=5 . + end if . + else if (missing(tuv1)=0 and tuv1=1) or (missing(tnuv1)=0 and tnuv1=1) . + compute tvoice1=4 . + else if (missing(tuv1) or missing(tnuv1)) and missing(tjccf)=0 and tjccf=1 . + compute tvoice1=4 . + else if (missing(tuv1) or missing(tnuv1)) and (missing(tjccf) or (missing(tjccf)=0 and tjccf=2)) . + compute tvoice1=9 . + end if . end if . do if (year>=1990) . + recode tuv1 (else=copy) into tuv2 . end if . do if (year>=1990) . + do if (missing(tjccfnu)=0 and tjccfnu=1) or (missing(tconsall)=0 and tconsall=1) or (missing(tbrief)=0 and tbrief=1) or (missing(tcircles)=0 and tcircles=1) or (missing(othrep3)=0 and othrep3=1) . + compute tnuv2=1 . + else if (missing(tjccfnu) or missing(tconsall) or missing(tbrief) or missing(tcircles) or missing(othrep3)) . + compute tnuv2=9 . + else if tjccfnu=2 and tconsall=2 and tbrief=2 and tcircles=2 and othrep3=2. + compute tnuv2=2 . + end if . end if . missing values tuv2 tnuv2 (9) . do if (year>=1990) . + do if (missing(tuv2)=0 and missing(tnuv2)=0) . + do if (tuv2=1 and tnuv2=2) . + compute tvoice2=1 . + else if (tuv2=1 and tnuv2=1) . + compute tvoice2=2 . + else if (tuv2=2 and tnuv2=1) . + compute tvoice2=3 . + else if (tuv2=2 and tnuv2=2) . + compute tvoice2=5 . + end if . + else if (missing(tuv2)=0 and tuv2=1) or (missing(tnuv2)=0 and tnuv2=1) . + compute tvoice2=4 . + else if (missing(tuv2) or missing(tnuv2)) and missing(tjccf)=0 and tjccf=1 . + compute tvoice2=4 . + else if (missing(tuv2) or missing(tnuv2)) and (missing(tjccf) or (missing(tjccf)=0 and tjccf=2)) . + compute tvoice2=9 . + end if . end if . do if (year>=1990) . + recode tuv1 (else=copy) into tuv2a . end if . do if (year>=1990) . + do if (missing(tjccfnu)=0 and tjccfnu=1) or (missing(tconsall)=0 and tconsall=1) or (missing(tbrief)=0 and tbrief=1) or (missing(othrep3)=0 and othrep3=1) . + compute tnuv2a=1 . + else if (missing(tjccfnu) or missing(tconsall) or missing(tbrief) or missing(othrep3)) . + compute tnuv2a=9 . + else if tjccfnu=2 and tconsall=2 and tbrief=2 and othrep3=2. + compute tnuv2a=2 . + end if . end if . missing values tuv2a tnuv2a (9) . freq vars=tuv2a tnuv2a . do if (year>=1990) . + do if (missing(tuv2a)=0 and missing(tnuv2a)=0) . + do if (tuv2a=1 and tnuv2a=2) . + compute tvoice2a=1 . + else if (tuv2a=1 and tnuv2a=1) . + compute tvoice2a=2 . + else if (tuv2a=2 and tnuv2a=1) . + compute tvoice2a=3 . + else if (tuv2a=2 and tnuv2a=2) . + compute tvoice2a=5 . + end if . + else if (missing(tuv2a)=0 and tuv2a=1) or (missing(tnuv2a)=0 and tnuv2a=1) . + compute tvoice2a=4 . + else if (missing(tuv2a) or missing(tnuv2a)) and missing(tjccf)=0 and tjccf=1 . + compute tvoice2a=4 . + else if (missing(tuv2a) or missing(tnuv2a)) and (missing(tjccf) or (missing(tjccf)=0 and tjccf=2)) . + compute tvoice2a=9 . + end if . end if . do if (year>=1984) . + do if (trecog2=1 or (missing(tjccf)=0 and tjccf=1)) . + compute trv3=1 . + else if missing(tjccf) . + compute trv3=9 . + else if trecog2=2 and missing(tjccf)=0 and tjccf=2 . + compute trv3=2 . + end if . end if . do if (year>=1984) . + do if (missing(tconsall)=0 and tconsall=1) or (missing(tbrief)=0 and tbrief=1) . + compute tdv3=1 . + else if missing(tconsall) or missing(tbrief) . + compute tdv3=9 . + else if missing(tconsall)=0 and tconsall=2 and missing(tbrief)=0 and tbrief=2 . + compute tdv3=2 . + end if . end if . missing values trv3 tdv3 (9) . do if (year>=1984) . + do if (missing(trv3)=0 and missing(tdv3)=0) . + do if (trv3=1 and tdv3=2) . + compute tvoice3=1 . + else if (trv3=1 and tdv3=1) . + compute tvoice3=2 . + else if (trv3=2 and tdv3=1) . + compute tvoice3=3 . + else if (trv3=2 and tdv3=2) . + compute tvoice3=5 . + end if . + else if (missing(trv3)=0 and trv3=1) or (missing(tdv3)=0 and tdv3=1) . + compute tvoice3=4 . + else if (missing(trv3) or missing(tdv3)) . + compute tvoice3=9 . + end if . end if . do if (year>=1990) . + do if (trecog2=1 or (missing(tjccf)=0 and tjccf=1) or missing(othrep3)=0 and othrep3=1) . + compute trv4=1 . + else if missing(tjccf) or missing(othrep3) . + compute trv4=9 . + else if trecog2=2 and missing(tjccf)=0 and tjccf=2 and missing(othrep3)=0 and othrep3=2 . + compute trv4=2 . + end if . end if . do if (year>=1990) . + do if (missing(tconsall)=0 and tconsall=1) or (missing(tbrief)=0 and tbrief=1) or (missing(tcircles)=0 and tcircles=1) . + compute tdv4=1 . + else if missing(tconsall) or missing(tbrief) or missing(tcircles) . + compute tdv4=9 . + else if missing(tconsall)=0 and tconsall=2 and missing(tbrief)=0 and tbrief=2 and missing(tcircles)=0 and tcircles=2. + compute tdv4=2 . + end if . end if . missing values trv4 tdv4 (9) . do if (year>=1990) . + do if (missing(trv4)=0 and missing(tdv4)=0) . + do if (trv4=1 and tdv4=2) . + compute tvoice4=1 . + else if (trv4=1 and tdv4=1) . + compute tvoice4=2 . + else if (trv4=2 and tdv4=1) . + compute tvoice4=3 . + else if (trv4=2 and tdv4=2) . + compute tvoice4=5 . + end if . + else if (missing(trv4)=0 and trv4=1) or (missing(tdv4)=0 and tdv4=1) . + compute tvoice4=4 . + else if (missing(trv4) or missing(tdv4)) . + compute tvoice4=9 . + end if . end if . do if (year>=1990) . + recode trv4 (else=copy) into trv4a . end if . * Any direct voice? . do if (year>=1990) . + do if (missing(tconsall)=0 and tconsall=1) or (missing(tbrief)=0 and tbrief=1) . + compute tdv4a=1 . + else if missing(tconsall) or missing(tbrief) . + compute tdv4a=9 . + else if missing(tconsall)=0 and tconsall=2 and missing(tbrief)=0 and tbrief=2 . + compute tdv4a=2 . + end if . end if . missing values trv4a tdv4a (9) . do if (year>=1990) . + do if (missing(trv4a)=0 and missing(tdv4a)=0) . + do if (trv4a=1 and tdv4a=2) . + compute tvoice4a=1 . + else if (trv4a=1 and tdv4a=1) . + compute tvoice4a=2 . + else if (trv4a=2 and tdv4a=1) . + compute tvoice4a=3 . + else if (trv4a=2 and tdv4a=2) . + compute tvoice4a=5 . + end if . + else if (missing(trv4a)=0 and trv4a=1) or (missing(tdv4a)=0 and tdv4a=1) . + compute tvoice4a=4 . + else if (missing(trv4a) or missing(tdv4a)) . + compute tvoice4a=9 . + end if . end if . recode tvoice5 (else=sysmis) . do if (missing(tvoice2) or missing(tvoice4)) . + compute tvoice5=9 . else if (tvoice2=1 and tvoice4=1) . + compute tvoice5=1 . else if (tvoice2=2) . + recode tvoice4 (1=2) (2=4) (4=7) into tvoice5 . else if (tvoice2=3) . + recode tvoice4 (1=3) (2=5) (3=6) (4=7) into tvoice5 . else if (tvoice2=4) . + compute tvoice5=7 . else if (tvoice2=5) . + compute tvoice5=8 . end if . recode tvoice5a (else=sysmis) . do if (missing(tvoice2a) or missing(tvoice4a)) . + compute tvoice5a=9 . else if (tvoice2a=1 and tvoice4a=1) . + compute tvoice5a=1 . else if (tvoice2a=2) . + recode tvoice4a (1=2) (2=4) (4=7) into tvoice5a . else if (tvoice2a=3) . + recode tvoice4a (1=3) (2=5) (3=6) (4=7) into tvoice5a . else if (tvoice2a=4) . + compute tvoice5a=7 . else if (tvoice2a=5) . + compute tvoice5a=8 . end if . missing values tvoice1 tvoice2 tvoice3 tvoice4 tvoice2a tvoice4a tvoice5 tvoice5a (9) . variable labels tvoice1 "Any union/non-union voice mechanisms?" /tvoice2 "Any union/non-union voice mechanisms?" /tvoice2a "Any union/non-union voice mechanisms?" /tvoice3 "Any reptv/direct voice mechanisms?" /tvoice4 "Any reptv/direct voice mechanisms?" /tvoice4a "Any reptv/direct voice mechanisms?" /tvoice5 "Any voice mechanisms?" /tvoice5a "Any voice mechanisms?" . value labels tvoice1 tvoice2 tvoice2a 1 "Union voice only" 2 "Union and non-union voice" 3 "Non-union voice only" 4 "Voice, but DK mixture" 5 "None" 9 "DK/NA if any" /tvoice3 tvoice4 tvoice4a 1 "Reptv voice only" 2 "Reptv and direct voice" 3 "Direct voice only" 4 "Voice, but DK mixture" 5 "None" 9 "DK/NA if any" /tvoice5 tvoice5a 1 "Reptv, union" 2 "Reptv, u and nu" 3 "Reptv, non-u" 4 "Rep and d, u and nu" 5 "Rep and d, non-u" 6 "Direct, non-union" 7 "Voice but DK mix" 8 "None" 9 "DK/NA if any" . *********************************************** . COMMENT TDISMISS . numeric tdismiss (f1.0) . recode tdisnum (0=2) (1 thru 9997=1) (9998,9999=9) into tdismiss . missing values tdismiss (9) . variable labels tdismiss "Any employees dismissed in last 12 months?" . value labels tdismiss 1 "Yes" 2 "No" 9 "DK/NA" . ********************************************* . COMMENT TCOVPC4 . numeric tcovpc4 (f1.0) . recode tcovpc6 (1=1) (2,3=2) (4,5=3) (6=4) (else=copy) into tcovpc4 . missing values tcovpc4 (9) . variable labels tcovpc4 "Coverage of collective bargaining" . value labels tcovpc4 1 "100%" 2 "50-99%" 3 "1-49%" 4 "None" 9 "DK/NA" . ********************************************* . COMMENT TCOVPC2 . numeric tcovpc2 (f1.0) . recode tcovpc3 (3=2) (else=copy) into tcovpc2 . missing values tcovpc2 (9) . variable labels tcovpc2 "Coverage of collective bargaining" . value labels tcovpc2 1 "50-100%" 2 "None-49%" 9 "DK/NA" . execute . ********************************************* . COMMENT Tpaydet2, Tpaydet3 - collapse tpaydet (5/8/99) . numeric tpaydet2 (f2.0) . numeric tpaydet3 (f1.0) . recode tpaydet (12=7) (13=8) (14=9) (15=10) (16=11) (17=12) (else=copy) into tpaydet2 . recode tpaydet (7,12=1) (8,13=2) (9,14=3) (10,15=4) (11,16=5) (17=7) (else=copy) into tpaydet3 . variable labels tpaydet2 "Principal locus of pay determination" /tpaydet3 "Principal locus of pay determination" . value labels tpaydet2 1 "Multi-employer bargaining" 2 "Multi-site bargaining" 3 "W/place-level bargaining" 4 "Other" 5 "DK; all bg units surveyed" 6 "DK; some units not surveyed" 7 "External body" 8 "Higher in organisation" 9 "Estab-level" 10 "Other" 11 "DK; low coverage" 12 "Recog but DK coverage" /tpaydet3 1 "Outside the organisation" 2 "Higher in the organisation" 3 "Establishment level" 4 "Other" 5 "DK" 6 "DK; som bg units not surveyed" 7 "Recog but DK coverage" . ********************************************* . COMMENT THANDS2 . numeric thands2 (f2.0) . recode thands (5 through 20=4) (else=copy) into thands2 . missing values thands2 (99) . variable labels thands2 "Arrangements for dealing with health and safety" . value labels thands2 1 "Joint committee for H&S" 2 "Joint committee for H&S and other matters" 3 "Workforce reps, no committee" 4 "Other answer" 99 "DK/NA" . ********************************************* . COMMENT EEWEIGHT - weight for employee-weighted tables . compute eeweight=weight*tallemps . variable labels eeweight "Employee weight" . execute . ********************************************* . COMMENT Save compiled time-series data file. SAVE OUTFILE ="o:\wers98\longit\deposit\wirstime.sav" /keep=serno year tallemps tallemp3 tallemp4 tallemp5 tallemp6 temp1ago temp5ago tallfem tfempc tfempc12 tfempc3 tfempc3b tfempc5b tftmale tftfem tallft tallpt tptpc tptpc12 tptpc3 tptpc3b tptpc4b tallnm tnmpc tnmpc12 tnmpc3 tempc5 tmgrfpc tverseg tverseg5 tverseg3 tanymem tnummema tnummemb tudensa tudens6a tudensb tudens6b tsic92 tsic80 tsic80b tsicsum tmanuf tsingle tsingle2 testnum torgsize torgsiz3 torgsiz4 torgsz4b tstatus tstatus2 tsector3 tsect15 ttrading tukfo tukfo2 tho tmultnat tage ttimhere ttimher7 taddress tprev tsex tspecial ttitle tyourj01 tyourj02 tyourj03 tyourj04 tyourj05 tmanage tertime tertimea tertimeb tlength tlengthb tservice tservicb thavqual tassist tsepar tboard teass tadvice1 tadvice2 tadvice3 tadvice4 tconsall tcircles tbrief tchain tsuggest tnews tinvplan tfinance torgfin tstaffin tinfo tjcc tjccfreq tjccf tjcctu tjccftu tjcchi tjccnum tjccnu4 tjccinf tanyjcc1 tanyjcc2 tuninum tuninum6 ttotrec ttotrec3 trecog trecog2 trecfp2 tclshop tpreent tcheckof turep turepnum tfturep textrep trepsum trepsum2 tothrep2 tvoice1 tvoice2 tvoice2a tvoice3 tvoice4 tvoice4a tvoice5 tvoice5a tprocdis tdisnum tdismiss twarning tdeduct tsuspend tsancnum tprocgrv traised tngroup1 tngroup2 tallcov tcovpc tcovpc6 tcovpc7 tcovpc4 tcovpc3 tcovpc2 tnatbarg torgbarg testbarg textset torgset testset tpaydet tpaydet2 tpaydet3 tcomplai tcomnum tanyact tstrike tothact tpicket tprpay tdprof tprofsh tshown ttemplyr tagency twrkfree thands thands2 tapphs tinjury tnuminj treduct tredmet1 tredmet2 tredmet3 tredmet4 tredre01 tredre02 tredre03 tredre04 tredre05 tredre06 tredre07 tredre08 tredre09 tredre10 tshift tnonem1 tnonem2 tnonem3 tnonem4 tnonem5 tnonem6 tnonem7 tanyrec tproser tvalsal tcollec1 tcollec2 tcollec3 tcollec4 tcollec5 tcollec6 tstatir testper1 testper2 tlabcost tsells tlarge tmarket tcompet tlocate weight eeweight . execute .