如何循环访问SAS中的变量格式和重命名

%macro format_rename(dataset);
    %local i varname formatname newname;
    
    /* 定义需要循环访问的变量格式和重命名信息 */
    %let varname1 = var1;
    %let formatname1 = $10.;
    %let newname1 = new_var1;
    
    %let varname2 = var2;
    %let formatname2 = 8.;
    %let newname2 = new_var2;
    
    /* 循环访问变量格式和重命名 */
    %do i = 1 %to 2;
        %let varname = &&varname&i;
        %let formatname = &&formatname&i;
        %let newname = &&newname&i;
        
        /* 应用变量格式 */
        data &dataset;
            set &dataset;
            format &varname &formatname.;
        run;
        
        /* 重命名变量 */
        data &dataset;
            set &dataset(rename=(&varname = &newname));
        run;
    %end;
%mend;

/* 调用宏来循环访问变量格式和重命名 */
%format_rename(your_dataset);