你是一名资深SAS程序员请你写一段SAS宏程序将SAS数据集中的字符型变量长度超过20的变成2个或以上变量

以下是一段SAS宏程序，它会自动检测数据集中的所有字符型变量，并将长度超过20的变量转换为2个或以上的变量。

%macro split_vars(data=); /* 获取数据集中的所有变量 */ proc contents data=&data out=vars noprint; run;

/* 获取所有字符型变量，并计算它们的长度 */ proc sql noprint; select name into :char_vars separated by ' ' from vars where type='char';

%let char_vars_count=%sysfunc(countw(&char_vars));

%do i=1 %to &char_vars_count;
  %let var=%scan(&char_vars, &i);
  %let var_length=%sysfunc(attrn(&data, length, &var));
  
  /* 如果变量长度超过20，则拆分为2个变量 */
  %if &var_length>20 %then %do;
    data &data;
      set &data;
      %let new_var_suffix=1;
      %do %while(&var_length>20);
        %let new_var_suffix=%eval(&new_var_suffix+1);
        length &var._&new_var_suffix $20;
        &var._&new_var_suffix=substr(&var, 1, 20);
        &var=substr(&var, 21);
        %let var_length=%eval(&var_length-20);
      %end;
      length &var._&new_var_suffix $20;
      &var._&new_var_suffix=&var;
      drop &var;
    run;
  %end;
%end;

quit; %mend;

/* 使用示例 / %split_vars(data=mydata); / 将数据集mydata中的变量拆分 *