TITLE 'WERS 98 DATA DISSEMINATION SERVICE' .
SUBTITLE '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 	Input file:	None specified
COMMENT 	Output file: 	None specified
COMMENT 	Written by: 	John Forth & Simon Kirby .
COMMENT  	Last updated: 	31/01/01 .

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

COMMENT	Syntax should be run once MQ98FIN data file has already been opened .
COMMENT	Should be run after the mq98fix syntax file has been run .
COMMENT	Syntax can be incorporated into an existing batch file using the INCLUDE 
		statement .

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

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' .

WEIGHT OFF .

sort cases by serno .

SAVE OUTFILE='n:\wers98\dataserv\recogfix.sav'
	keep=serno erecog01 erecog02 erecog03 erecog04 erecog05 erecog06 erecog07 
	erecog08 erecog09 erecog10 etotrec emostmem ejoint egroups enum5yr esteward 
	estewext eothreps enumreps echosen1 echosen2 esiton etalk5yr ehowcom1 
	estewnum estewtim eformal ewhyles1 ewhymor1 epaya eselecta etraina esystema 
	ediscipa estaffa equalopa ehealtha eperfora epayb eselectb etrainb esystemb 
	ediscipb estaffb equalopb ehealthb eperforb fpaycut ltypinv1 nrecflg1 nrecflg2 .
execute .



****************************** END ***************************************** .