sort by sktcd accper
retain t1;
if fisrt.sktcd then t1=a001000000;
if last.sktcd then t2=invest;year=substr(accper,1,4);
a=t1/t2;if last.sktcd;
keep  sktcd year a;