Compute keypreg(2)=1.
End if.
Do if (nserial='Y33089Z').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=11.
Compute key40(11)=6.
Compute key40(16)=16.
Compute keypreg(1)=1.
Compute keypreg(2)=3.
Compute keypreg(3)=2.
Compute keypreg(4)=4.
End if.
Do if (nserial='043013C').
Compute changed=2.
Compute key40(1)=6.
Compute key40(2)=7.
Compute key40(6)=1.
Compute keypreg(1)=2.
Compute keypreg(2)=1.
End if.
Do if (nserial='044001A').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=16.
Compute key40(11)=21.
Compute keypreg(1)=1.
Compute keypreg(2)=4.
Compute keypreg(3)=5.
End if.
Do if (nserial='183016T').
Compute changed=2.
Compute key40(1)=3.
Compute keypreg(1)=1.
End if.
Do if (nserial='188030P').
Compute changed=2.
Compute key40(1)=2.
Compute key40(2)=3.
Compute key40(3)=1.
Compute keypreg(1)=1.
End if.
Do if (nserial='500015C').
Compute changed=2.
Compute key40(1)=2.
Compute key40(2)=1.
Compute key40(6)=6.
Compute key40(11)=11.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
More intriguing information
1. Synthesis and biological activity of α-galactosyl ceramide KRN7000 and galactosyl (α1→2) galactosyl ceramide2. 09-01 "Resources, Rules and International Political Economy: The Politics of Development in the WTO"
3. Gender and aquaculture: sharing the benefits equitably
4. DIVERSITY OF RURAL PLACES - TEXAS
5. Artificial neural networks as models of stimulus control*
6. Investment in Next Generation Networks and the Role of Regulation: A Real Option Approach
7. Volunteering and the Strategic Value of Ignorance
8. The name is absent
9. Fiscal Insurance and Debt Management in OECD Economies
10. The Impact of Hosting a Major Sport Event on the South African Economy