nserial='235018J' or nserial='288027J' or nserial='310017Y' or nserial='310107Z' or
nserial='385025V' or
nserial='500375L' or nserial='510127W' or nserial='513053K' or nserial='524002C' or
nserial='950123U' or nserial='950154F' or nserial='985067J' or
nserial='X32084Z' or nserial='X82287X' or
nserial='Y20154L') or
(bserial='01005054' or bserial='01445068' or bserial='01840000' or bserial='01859054' or
bserial='01949055' or bserial='03121039'
or bserial='03349048' or bserial='03579031'
or bserial='03997042' or bserial='04046069' or bserial='05548084' or bserial='05661087' or
bserial='06173005'
or bserial='06226027' or bserial='06880097' or bserial='08239086' or bserial='08388069' or
bserial='08716094' or bserial='10455045'
or bserial='11539049' or bserial='11871084' or bserial='12263073' or bserial='13045095' or
bserial='14978022' or bserial='15810064'
or bserial='16293014' or bserial='20503000'
or bserial='01001053' or bserial='10788031' or bserial='14101044' or bserial='14574012' or
bserial='15013072' or bserial='17015079'
or bserial='20432000' or bserial='02182094' or bserial='03257097' or bserial='03310042' or
bserial='05984097' or bserial='09763027')).
Compute changed=1.
loop #i=1 to 8.
Do if(key(#i) ne 0).
compute xprega(5*#i-4)=vprega(key(#i)).
compute xpregc(5*#i-4)=vpregc(key(#i)).
compute xpregd(5*#i-4)=vpregd(key(#i)).
compute xkilo(5*#i-4)=vkilo(key(#i)).
compute xpregf(5*#i-4)=vpregf(key(#i)).
compute xpregh(5*#i-4)=vpregh(key(#i)).
compute xwhopa(5*#i-4)=vwhopa(key(#i)).
compute xwerkd(5*#i-4)=vwerkd(key(#i)).
compute xwatkd(5*#i-4)=vwatkd(key(#i)).
compute xabspa(5*#i-4)=vabspa(key(#i)).
compute xabspb(5*#i-4)=vabspb(key(#i)).
compute xabspc(5*#i-4)=vabspc(key(#i)).
compute xabskb(5*#i-4)=vabskb(key(#i)).
compute xabskc(5*#i-4)=vabskc(key(#i)).
compute xabskd(5*#i-4)=vabskd(key(#i)).
compute xabske(5*#i-4)=vabske(key(#i)).
compute xpound(5*#i-4)=vpound(key(#i)).
compute xounce(5*#i-4)=vounce(key(#i)).
compute xprged(5*#i-4)=vprged(key(#i)).
compute xprgem(5*#i-4)=vprgem(key(#i)).
compute xpregg(5*#i-4)=vpregg(key(#i)).
compute xwhopb(5*#i-4)=vwhopb(key(#i)).
compute xabska(5*#i-4)=vabska(key(#i)).
compute xabsmn(5*#i-4)=vabsmn(key(#i)).
compute xgramm(5*#i-4)=vgramm(key(#i)).
compute xprgey(5*#i-4)=vprgey(key(#i)).
compute xabsyr(5*#i-4)=vabsyr(key(#i)).
compute xprege(5*#i-4)=vprege(key(#i)).
compute xpregi(5*#i-4)=vpregi(key(#i)).
* set 'pregnum' for the new pregnancy slot (1-8) associated with the new position for this
* baby, to exactly 1, as we know it's not a multiple birth (i.e. we know truemult=0).
* In the case of NCDS pre-March 91 birth events, though, we want 'pregnum' to be zero.
compute xpregnu(#i)=1.