SAS不同时间列的减法

如图，想用每个代码对应的每年的年末（每年12-31）invest数据除以A00这列的每年的年初数据，并每个代码每年只保留这一个数据，如300001对应的2014年生成一个新的数据为253921696.69/2323534062.80

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;