Compute pregi3=xpregi3.
Compute pregi4=xpregi4.
Compute pregi5=xpregi5.
Compute pregi6=xpregi6.
Compute pregi7=xpregi7.
Compute pregi8=xpregi8.
Compute pregi9=xpregi9.
Compute pregi10=xpregi10.
Compute pregi11=xpregi11.
Compute pregi12=xpregi12.
Compute pregi13=xpregi13.
Compute pregi14=xpregi14.
Compute pregi15=xpregi15.
Compute pregi16=xpregi16.
Compute pregi17=xpregi17.
Compute pregi18=xpregi18.
Compute pregi19=xpregi19.
Compute pregi20=xpregi20.
Compute pregi21=xpregi21.
Compute pregi22=xpregi22.
Compute pregi23=xpregi23.
Compute pregi24=xpregi24.
Compute pregi25=xpregi25.
Compute pregi26=xpregi26.
Compute pregi27=xpregi27.
Compute pregi28=xpregi28.
Compute pregi29=xpregi29.
Compute pregi30=xpregi30.
Compute pregi31=xpregi31.
Compute pregi32=xpregi32.
Compute pregi33=xpregi33.
Compute pregi34=xpregi34.
Compute pregi35=xpregi35.
Compute pregi36=xpregi36.
Compute pregi37=xpregi37.
Compute pregi38=xpregi38.
Compute pregi39=xpregi39.
Compute pregi40=xpregi40.
end if.
* Transfer values of vector compdt to forty permanent variables to facilitate manual scrutiny
compute compda1=compdt1.
compute compda2=compdt2.
compute compda3=compdt3.
compute compda4=compdt4.
compute compda5=compdt5.
compute compda6=compdt6.
compute compda7=compdt7.
compute compda8=compdt8.
compute compda9=compdt9.
compute compda10=compdt10.
compute compda11=compdt11.
compute compda12=compdt12.
compute compda13=compdt13.
compute compda14=compdt14.
compute compda15=compdt15.
compute compda16=compdt16.
compute compda17=compdt17.