Compute key40(3)=1.
Compute keypreg(1)=1.
End if.
Do if (nserial='986100J').
Compute changed=2.
Compute key40(1)=2.
Compute key40(2)=3.
Compute key40(6)=1.
Compute keypreg(1)=1.
Compute keypreg(6)=1.
End if.
Do if (nserial='X38008Q').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=6.
Compute key40(7)=11.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
End if.
Do if (nserial='Y00174D').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=6.
Compute key40(11)=11.
Compute key40(16)=16.
Compute key40(17)=21.
Compute key40(21)=26.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
Compute keypreg(3)=3.
Compute keypreg(4)=4.
Compute keypreg(5)=6.
End if.
Do if (bserial='05486061').
Compute changed=2.
Compute key40(1)=6.
Compute key40(6)=1.
Compute key40(11)=12.
Compute key40(12)=11.
Compute key40(16)=16.
Compute key40(21)=21.
Compute keypreg(1)=2.
Compute keypreg(2)=1.
Compute keypreg(3)=3.
Compute keypreg(4)=4.
Compute keypreg(5)=5.
End if.
Do if (bserial='08052057').
Compute changed=2.
Compute key40(1)=7.
More intriguing information
1. The magnitude and Cyclical Behavior of Financial Market Frictions2. The Distribution of Income of Self-employed, Entrepreneurs and Professions as Revealed from Micro Income Tax Statistics in Germany
3. The Folklore of Sorting Algorithms
4. The constitution and evolution of the stars
5. The name is absent
6. Natural hazard mitigation in Southern California
7. The name is absent
8. The name is absent
9. Subduing High Inflation in Romania. How to Better Monetary and Exchange Rate Mechanisms?
10. The Cost of Food Safety Technologies in the Meat and Poultry Industries.