数据和程序如下：
data test1;
    vara="A";
    varb="货品1:1,货品2:16,货品3:2,货品4:2,货品5:3,货品6:6,货品7:2,货品8:35,货品9:16,货品10:44,货品11:3,货品12:4,货品13:1,货品14:5,货品15:6,货品16:1,货品17:2,货品18:26,货品19:1,货品20:28,货品21:1,货品22:8,货品23:4,货品24:5,货品25:5
";
run;

data test2;
    set test1;
    array varb_(2) $20.;
    n=count(varb,',')+1;

   do i=1 to n;
        tmp=scan(varb, i,',');
            do j=1 to 3;
           varb_(j)=scan(tmp,j,":");
            end;
            output;
    end;
    keep vara varb_:;
run;
这样程序会报错：数组下标越界，如何解决？