非常感谢楼上各位前辈的指教!! 

    我已复制下来,慢慢消化. 感谢前辈的帮助!如有问题再向各位前辈求教.

楼上两位前辈的程序都非常正确!!

尤其是 wolfcrying 前辈,您太牛了!

我还想向您请教,如何将数据集jh中的变量mc/名称也加入数据集base中,我试图加上一句call execute("mc="||mc||";"); 可不对.

  还有一个问题:一个数据集A ，里面有一些变量很多观测， 另一数据集B 只有一行观测，变量不同。怎样将数据集A  B并排连接，并将数据集B的数据赋给数据集A的所有观测。                   谢谢!!
如    数据集A                       数据集B                                并接为数据集C                     

    A1   A2   A3                  B1   B2   B3                           A1   A2   A3   B1   B2   B3                                           

     1     2     3                 10    11   12                           1     2     3    10    11   12                           

     4     5     6                                                             4     5     6    10    11   12                           

     7     8     9                                                           7     8     9    10    11   12        

      谢谢!!
               

[此贴子已经被作者于2008-4-9 23:25:00编辑过]

call execute("mc="||mc||";")

这当然是不对的，改成call execute("mc='"||mc||'";"),注意双引号里的单引号，

提示你一下：这里出错的原因是没有考虑到MC是一个字符变量

第二个问题更简单了，严格意义上来讲，这样的表连接是不合法的，一般都由外键通过Merge By来进行

就你提到的这种特殊情况，用set/set就可以了

data C;
  set a;
  if _n_=1 then set b;
   retain B1 B2 B3;
   RUN;

楼上， 谢谢你的指点， 我的方法很笨 看你的方法收获量多。 我刚学， 希望你能多多帮助！真心感谢。

 

另外我把你的code 简化了一些。这样可能更有效率吧？不过你的idea 还是很高的！ 我只是偷借。

[em04]


data _null_ nonexist;
set jh;
if exist(mc) then do;
call execute("data "||mc||";");
call execute("set "||mc||";");
call execute("mc='"||mc||"';");
call execute("sl="||sl||";");
call execute("run;");
call execute ("proc append base=final data= "||mc||"; run; ");
end;
 else do; message="Dataset: "||compress(mc)||"not exist, Please Check it.";
        keep mc warning;
        output nonexist;
  end;
 run;

wolfcrying,

就你关于我那笨招的意见， 我想用宏来解决， 可是想不出来， 你有办法吗？望不吝赐教，多谢！

你精简代码的思路是很好的。如果能加上一个判断条件，在append之前将final初始化就更好了，否则log要报错。还有就是不应该直接 data mc；这样会将原来的mc数据集覆盖的，所以你要加个前缀什么的，不影响原数据集。 这样更改之后，data _null_已无必要保留，删去！

 data nonexist;
  set jh;
  retain ini 0;
  if exist(mc) then do;
  call execute("data _temp"||compress(mc)||";");
  call execute("set "||compress(mc)||";");
  call execute("sl="||sl||";");
  call execute("mc='"||mc||"';");
  call execute("run;");

  ini+1;
  if ini=1 then   call execute("data final;set _temp"||compress(mc)||"run;");
             else   call execute ("proc append base=final data= _temp"||compress(mc)||"; run; ");
  end;

  else do; message="Dataset: "||comress(mc)||"not exist, Please Check it.";
        keep mc warning;
        output nonexist;
  end;
run;

解决这类数据集的变量值去控制其他数据集，用call execute是最简洁有效的，只是call execute对初学者来说，不容易理解和掌握。用宏也可以实现，只是要创建一系列的动态宏变量，比如&&x&i..,比较复杂，不推荐使用

[此贴子已经被作者于2008-3-16 11:13:04编辑过]

你的建议很对， 看得出你的经验很多。以后多向你学习。 我运行了你的程序， 发现有一句缺了一个"；"  还有一个compress 拼错了。我把正确的Code 写在下面了. 再次谢谢你！

  data nonexist;
  set jh;
  retain ini 0;
  if exist(mc) then do;
  call execute("data _temp"||compress(mc)||";");
  call execute("set "||compress(mc)||";");
  call execute("sl="||sl||";");
  call execute("mc='"||mc||"';");
  call execute("run;");

  ini+1;
  if ini=1 then   call execute("data final;set _temp"||compress(mc)||"; run;");
             else   call execute ("proc append base=final data= _temp"||compress(mc)||"; run; ");
  end;

  else do; message="Dataset: "||compress(mc)||"not exist, Please Check it.";
        keep mc warning;
        output nonexist;
  end;
run;

真的非常感谢各位前辈!

虽然我是在自学,但我感觉就象在一个大课堂,有这么多老师教导,谢谢您们!!