Compute changed =2.
End if.
Do if (nserial='093273P').
Compute changed=2.
Compute key40(1)=1.
Compute keypreg(1)=1.
End if.
Do if (nserial='095023Z' or nserial='181038T' or nserial='960072L').
Compute changed=2.
Compute key40(1)=2.
Compute key40(2)=1.
Compute keypreg(1)=1.
End if.
Do if (nserial='095006Z' or nserial='509228V' or nserial='950288D' or nserial='960029K').
Compute changed=2.
Compute key40(1)=1.
Compute key40(2)=6.
Compute keypreg(1)=1.
End if.
Do if (nserial='120132Q').
Compute changed=2.
Compute key40(1)=6.
Compute key40(6)=1.
Compute key40(7)=2.
Compute keypreg(1)=2.
Compute keypreg(2)=1.
End if.
Do if (nserial='233008U' or nserial='285020B' or nserial='500353Z' or nserial='527001S' or
nserial='565063F' or nserial='650025W').
Compute changed=2.
Compute key40(1)=1.
Compute keypreg(1)=1.
End if.
Do if (nserial='280041J').
Compute changed=2.
Compute key40(1)=2.
Compute key40(2)=1.
Compute key40(6)=6.
Compute key40(11)=11.
Compute key40(16)=16.
Compute key40(21)=21.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
Compute keypreg(3)=3.
Compute keypreg(4)=4.
Compute keypreg(5)=5.
End if.
Do if (nserial='280053R').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=6.
Compute key40(11)=16.
More intriguing information
1. Legal Minimum Wages and the Wages of Formal and Informal Sector Workers in Costa Rica2. Keystone sector methodology:network analysis comparative study
3. Bird’s Eye View to Indonesian Mass Conflict Revisiting the Fact of Self-Organized Criticality
4. Partner Selection Criteria in Strategic Alliances When to Ally with Weak Partners
5. The name is absent
6. Program Semantics and Classical Logic
7. The name is absent
8. Tissue Tracking Imaging for Identifying the Origin of Idiopathic Ventricular Arrhythmias: A New Role of Cardiac Ultrasound in Electrophysiology
9. Improving Business Cycle Forecasts’ Accuracy - What Can We Learn from Past Errors?
10. The name is absent