请教：如何将data步中若干个变量的值导出成一个table？

大家好，我这里有个问题想请教一下...

我有一个程序：
%let a = 3;
%let b = 4;

data work.A1;
        array arrayA_(&b);
        do j1=1 to &b;
                arrayA_(j1) = &a+j1;
        end;
run;

以上程序运行之后，生成一个work.A1数据集：
arrrayA_1  arrrayA_2  arrrayA_3  arrrayA_4 j1
4  5  6  7  5

现在需要将work.A1里面的arrrayA_1, arrrayA_2,  arrrayA_3, arrrayA_4提取出来，重新生成一个work.B1数据集：
arrrayA_1  arrrayA_2  arrrayA_3  arrrayA_4
4  5  6  7

我写了如下代码：
%let a = 3;
%let b = 4;

data work.A1;
        array arrayA_(&b);
        do j1=1 to &b;
                arrayA_(j1) = &a+j1;
        end;
run;
proc sql;
  create table work.B1 as
  select array_A&b as array_B&b
  from work.A1;
run;

结果生成的work.B1数据集为
arrrayB_4
7
这倒没有什么意外，因为这时&b=4...

我的问题是: 在array_A和array_B的列数都不确定（像以上代码一样由宏变量确定）的情况下，要使work.B1数据集为：
arrrayB_1  arrrayB_2  arrrayB_3  arrrayB_4 ... arrayB_&b
4  5  6  7 ...

代码该怎么写呢?

(该用ods, output, 还是sql create...? 貌似sql create语句不能在中间截断插入do循环..).

谢谢！

难道不是
data b1;
set a1;
keep arrrayA_1 - arrrayA_&b.;
run;

恩，有道理，谢谢~
我是初学者...呵呵