请教清除逻辑库中的数据集收索方法 [推广有奖]

可以用macro来做，将每个dataset名赋给macro变量，然后判断macro变量的值是否在sh000001-600000之间
proc datasets lib=libname1 ;
contents out=dsn(keep=MEMNAME where =(input(sbustr(MEMNAME,3,6),6.)<1 and input(sbustr(MEMNAME,3,6),6.)>600000)) noprint;
run;
quit;
proc sql;
   select distinct MEMNAME into : dsn SEPARATED by ' ' from dsn
   ;
quit;

%macro scanloop;
%let counter=1;
%do     %while(%scan(&dsn,&counter,%str( )) NE );
  %let dsn1=%scan(&dsn,&counter,%str( ));
  %put &dsn1;
  proc datasets lib=libname1;
  delete &dsn1;
  run;
  quit;
    %let counter=%eval(&counter+1);
%end;
%mend scanloop;
%scanloop;

2# honghejing

能具体讲讲吗？谢谢~我对宏不熟悉~谢谢~

程序我发上去了，你可以先试试，如有问题可以联系我
3# liu022

用元数据
希望对你有帮助
可能有错，概不负责

4# honghejing

非常感谢，我试试~

5# soporaeternus

谢谢，试试后再讨论 ：）

5# soporaeternus

这段代码好像不对~&n没有能够解析~

贴个log看看，我这边没问题啊

9# soporaeternus

32   data _null_;
33
34           set sashelp.vtable(keep=libname memname) end=last;
35
36           where libname="WORK" and not prxmatch(prxparse("/^sh\d{6}$/"),compress(lowcase(memname)));
37
38           n+1;
39
40           call symputx(compress("memname_"||n),memname);
41
42           if last then call symputx("n",n);
43
44   run;
NOTE: 数值已转换为字符值，位置:（行:列）。
      40:43
NOTE: 有 0 个从数据集 SASHELP.VTABLE 读取的观测。
      WHERE (libname='WORK') and (not PRXMATCH(PRXPARSE('/^sh\d{6}$/'), COMPRESS(LOWCASE(memname))));
NOTE: “DATA 语句”所用时间（总处理时间）:
      实际时间          1.06 秒
      CPU 时间          0.75 秒

45   %put &n;
WARNING: 没有解析符号引用 N。
&n
46   %MACRO t;
47
48   proc datasets lib=work;
49
50           delete %do i=1 %to &n %by 1;&&memname_&i%end;;
51
52   run;quit;
53
54   %MEND t;
55
56   %t;
WARNING: 没有解析符号引用 N。
ERROR: 在需要数值操作数的 %EVAL 函数或 %IF 条件中发现字符操作数。条件是: &n
ERROR: %TO 值（%DO I 循环中）无效。
ERROR: 宏 T 将终止执行。