期待他人的高见

哎 比较着急 在线等回复啊，高手出现 呵呵

不知能否达到你的要求，仅供参考。

iml是种很好的办法，推荐。
通常，如果sql能拖出来的宏变量太长，超过最长长度，可以使用file XXX;put XXX;输出到外部文件然后用%include的方法引用进来。

原数据集的变量名变成COL1 COL2...了，是否有办法保留原变量名？

原数据集的变量名变成COL1 COL2...了，是否有办法保留原变量名？

是否能提供代码呢，SQL用的很少。。。谢谢

我的意思是说，haricH的那个code里面，用了一段sql

proc sql noprint;
        select name into:name_list separated by '-'
        from b
        where varnum>=&cutnum.
        order by varnum
        
;
quit;
此段sql的功能，是生成宏变量name_list，包含所有需要改成missing的变量名，用'-'分隔。但是由于你的变量名太多，导致name_list这个宏变量突破了sas允许的宏变量的最大长度。所以报错了，解决方法之一是写到外部文件，比如：
data a;
input a b c d e f g h;
cards;
1 2 3 4 5 6 2 4
5 6 3 2 4 5 6 7
3 4 5 6 7 8 2 5
;
filename out 'c:\out.sas';
options source2;
proc contents data=a out=var noprint;run;
data var;
set var;
where varnum>=2;
if _n_=1 then name='array mis{*} '||trim(name);
run;
data _null_;
file out;
set var;
put name;
run;
data b;
set a;
%include out;
;
if _n_>=2 then do i=1 to dim(mis);
mis(i)=.;
end;
drop i;
run;
这段code从第二行开始，对第二个及其以后的变量赋缺失值，要求c盘根目录不能写保护。仅供参考。

感谢您的回答，我运行了，有以下问题：
ERROR: All variables in array list must be the same type, i.e., all numeric or character.
是不是数组都要求变量类型统一？有解决办法吗？

那也很简单阿，就是数字类作一遍，字符类作一遍咯。
contents出来的数据集里面有一列变量叫type（貌似），1为数字，2为字符（貌似）。
然后你先挑1的，弄个数组：nmis
nmis(i)=.
再挑2的，弄个数组：cmis
cmis(i)=''
就ok了呀。

因为变量太多超过宏变量长度的问题，修改了一下：
proc content里面导出来的表里面已经有变量在数据集中的排序了。
data a;
input x y z t w $;
cards;
1 2 3 4 s
3 4 2 1 s
3 4 2 1 s
3 4 2 1 s
3 4 2 1 s
;
run;

options mprint;
%macro cut(ds=,cutnum=,step=);

proc contents data=&ds out=b(keep=name varnum);
run;

data _null_;
set b(drop=_all_) nobs=n;
call symputx('total',n);
stop;
run;

%let num=1;
%let cutnum1=&cutnum.;
%do %while(&cutnum1.<=&total.);
        proc sql noprint;
                select name into:name_list&num separated by '-'
                from b
                where varnum>=&cutnum1. and varnum<=&&cutnum1.+&step-1
                order by varnum
        ;
        quit;

        %let cutnum1=%eval(&cutnum1.+&step.);
                %put &&name_list&num;
                %let num=%eval(&num.+1);
%end;

data a;
set a;
if _n_>1  then do;
        %do c=1 %to &num.-1;
                %let i=1;
                %do %while(%scan(&&name_list&c,&i,-) ne %quote());
                        %let var=%scan(&&name_list&c,&i,-);
                        %let Var_order=%eval(&cutnum.+&i.-1);/*Var_order为变量在数据集中的序号*/
                                if &Var_order>_n_-1 then
                                        call missing(&var);
                        %let i=%eval(&i+1);
                %end;
                %let cutnum=%eval(&Var_order+1);
        %end;
end;
run;


%mend;


%cut(ds=a,cutnum=2,step=1)

还有一种就是将字典表抓进PDV的方法。

怎么声明呢？可否把您的代码修改一下，告诉我，谢谢。

宏参数Step表示什么含义呢？还有 我想删除任意观测的变量，如 第一个观测删2-100个变量，第二个观测删除6-100个变量。您的宏好像修改cutnum直接默认 比如cutnum=2 则 第一个删2-100 第二个删3-100.谢谢

由于一次把过多宏变量名加入一个宏变量列表会引起宏变量值超过65,534长度，所以用step设置步长，一次将step个变量写入一个宏变量列表。一个变量名最长32字符，65534/33（含分割符为33位）约为1985，所以step设置为1985就可以了。

用_n_记录观测序号， &Var_order表示变量序号。
第一个观测删除2-100则在DATA步的循环里面加入
if _n_=1 and &var_order<=100 and &var_order>=2 then
       /*your operate*/

data a;
set a;
if _n_>1  then do;*是修改这里吗？貌似不行啊
太麻烦你了，多谢哈
比如第二个观测删3-200，第三个删5-100如何修改呢？

将if _n_>1  then do;和end;删掉 ，在

data a;
set a;
        %do c=1 %to &num.-1;
                %let i=1;
                %do %while(%scan(&&name_list&c,&i,-) ne %quote());
                        %let var=%scan(&&name_list&c,&i,-);
                        %let Var_order=%eval(&cutnum.+&i.-1);/*Var_order为变量在数据集中的序号*/
   /*操作。。。，如if _n_=1 and &var_order<=100 and &var_order>=2 then 。。。end;*/
                        %let i=%eval(&i+1);
                %end;
                %let cutnum=%eval(&Var_order+1);
        %end;
run;

根据不同行删除不同变量？
删是指给缺失值，还是指把后面的变量提上来？

给缺失值

宏变量cutnum的含义是？谢谢

cutnum是从第几个变量开始处理，因为之前你的需求里面说到是从某位变量开始，如第100个变量之后的都置空。所以设置了这个宏变量。

可以的。我的思路就是把原数据集清空，把新的数据集加进去就可以了。完整代码如下