将数组的值作为维度赋给SAS中的另一个数组

我一直在编写一个复杂的代码,最后陷入了困境,我需要将一个数组的值作为维度参数赋给代码中的另一个数组。我的代码中的快照: 例如:

array temp_match_fl(3) temp_match_fl1 - temp_match_fl3;     
    ARRAY buracc_repay(3) buracc_repay1 - buracc_repay3;
    ARRAY ocs_repay(3) ocs_repay1 - ocs_repay3;
    jj = 0;
    do until (jj>=3);
    jj=jj+1;

    If length(strip(match_flag(jj))) = 1 then do;
        temp_match_fl(jj) = match_flag(jj);
    end;

    Else If length(strip(match_flag(jj))) > 1 then do; 
        j1 = 0; 
        min_diff = 99999999;    
        do until (j1>=length(strip(match_class(jj))));
           j1=j1+1;
           retain min_diff;
            n=substr(strip(match_flag(jj)),j1,1);
            If (min_diff > abs(buracc_repay(jj)-ocs_repay(n))) then do;
                min_diff = abs(buracc_repay(jj)-ocs_repay(n));
                temp_match_fl(jj) = n;              
            end;
        end;
    end;
    kk=temp_match_fl(jj);
/*  buracc_repay(jj) = ocs_repay(kk);*/
    buracc_repay(jj) = ocs_repay(temp_match_fl(jj));    
 end;
run;

现在,我需要能够将存储在temp\u match\u fl(jj)数组中的值作为维度参数赋给另一个数组,我如何实现这一点??最后两种说法都不管用:

buracc\u return(jj)=ocs\u return(kk); buracc_return(jj)=ocs_return(temp_match_fl(jj)); 谢谢!