求教sas编程

求教：假设一组数据如下：
id    year    percent   var1  var2  ...  var10

现在想生成新的列 new1至new10,分别为percent与var1至var10的乘积，如果有数据缺失则乘积为0。
笨方法我会，就是一列一列的写，想求有没有效率高点的方法。谢谢！

用数组。例如：

1. array var var1-var10;
   
2. array new new1-new10;
   
3. do i = 1 to dim(var);
   
4.   new[i] = var[i] * percent;
   
5. end;

复制代码