兄弟  SOS!!!

没有太看懂问题表述，所以work.B是work.A的子集要做一个筛选吗？
不太清楚你的筛选条件是什么，如果只想保留原数据集中的两列并换个名字，那么：

data B;
      set A(keep = 代码，以前的变量标签）;
run;

data B( rename=(代码=stkcd 以前的变量标签=date));
      set B;
run;