能不能在任一行插入观测？能的话可以先转置。

用retain

不知道用sql怎么做，datastep里， 可以 用 if _n_=a_number then do;
                     new_obs=1; end;

谢谢yongyitian！我试一下！！

有一个简单有效的常用方法。就是复制(copy)和粘贴(paste)。
请尝试如下. 绝对不会出现错误.

1. 在PROC SQL 后面 添加一个字 feedback, 然后提交如下代码.
        proc sql feedback;
         select *
        from aaa;

2. 进入log窗口，你会发现这样的select语句
       select a, b, c, d, ...........

3. 使用鼠标来选择select a, b, 这一行, 然后点击右键 - >编辑 - 复制

4. 回到编辑窗口, 用鼠标来选择 select * 然后点击右键 - >粘贴

5. 在你需要的地方 键入新的变量 p.



还有一种方法， 就是从地dictionary.columns table 里 把变量名选出来。
运行下面的code,  然后将 results window 中的变量名 复制, 粘贴 到 editor window

proc sql;
    select name
        from dictionary.columns
        where libname = 'WORK' and memname='AAA';    /* 注意大写 */
quit;

data aaa;
input  a   b  c   d   e  f   g    h;
cards;
1     2     3     4     5     6     7     8
2     9     2     6     1     3     2     5
;
run;

data first(keep=a--d id) second(keep=e--h id) third(keep=id p);
  set aaa;
  format id p 8.;
  id=_n_;
run;

data all;
  merge first  third second;
  by id;
  drop id;
run;

楼上都弱爆了，以下才是正确方法

版主和楼上的方法很好。 只是如果新加的变量是由其它变量计算得来，而且计算中包括后面的变量的话，就会有问题。比如下面的爬 p2.

data aaa;
input  a   b  c   d   e  f   g    h;
cards;
1  2  3  4  5  6  7  8
;
run;

data ddd;
set aaa(keep=a--d);
p1=a+b;
p2=a+f;
set aaa(keep=e--h);
run;

proc print data=ddd; run;
output

Obs    a    b    c    d    p1    p2   f    e    g    h
1     1    2    3    4     3      .     6    5    7    8

这种事情，多写一个data步就成了嘛

或者
data ddd;
set aaa(keep=a--d);
p1=a+b;
p2=a+f;
set aaa(keep=e--h);
p2=a+f;
run;
在最后多写一步就行了

Imasasor方法很好。不过没看到楼主给200币，

版主的代码看着顺眼，却不是最有效率的，因为他/她/它把同一个数据集开了两遍。还有楼主虽然多金，却还没有足够的判断力，也不必在周末的晚上继续码code。

诚心求有效率的code，谢谢。

用data step 两步实现
第一步 把要加的变量 作为 最后一个变量 加到原来data set 里面。。
第二步 新的data step 一开始马上重新定义一下变量顺序。然后再把第一步的data set 读进来

这个是真理。
data bbb;
    if 0 then set aaa(keep = a--d)
    retain p;
    set aaa;
run;
   

LZ 想 用sas sql；


data aaa;
ID = _N_;
input a b c d e f g h;
cards;
1 2 3 4 5 6 7 8
;

proc sql;
    create table bbb(drop=id)  as
    select a.*,  (a.a + b.e) as sum_ae, b.*
    from aaa (drop=e--h) as a, aaa(drop=a--d) as b
    where a.id=b.id;
quit;

或者
data ccc;
input a b c d e f g h;
cards;
1 2 3 4 5 6 7 8
1 2 3 4 5 6 7 8
;
proc sql noprint;
      select name into: a_e  separated by ', '
             from dictionary.columns
            where libname='WORK' and memname='CCC' and varnum in (1 2 3 4);
     select name into: e_h  separated by ', '
           from dictionary.columns
           where libname='WORK' and memname='CCC' and varnum in (5 6 7 8);
quit;
proc sql;
   select &a_e, sum(d) as sum_d, &e_h
   from ccc;
quit;

或者用 SQL 和 data step
proc sql noprint;
     select name into: a__e  separated by ' '
        from dictionary.columns
        where libname='WORK' and memname='CCC' and varnum in (1 2 3 4);
     select name into: e__h  separated by ' '
         from dictionary.columns
         where libname='WORK' and memname='CCC' and varnum in (5 6 7 8);
quit;

data ddd;
     retain &a__e sum_de &e__h;
     set ccc;
     sum_de = d+e;
run;

谢谢各位高手！谢谢imasasor，虽然imassor的程序很好，但是imasasor没考虑到a   b  c   d   e  f   g    h只是随机顺序，也有可能是a   bb  cc   d   e  ff   gg    h，这时imasasor程序就用不了，但是这时farmman60的程序就可以用。故我将他的答案设为最佳答案！不过还是谢谢各位高手指导！！

谢谢yongyitian！您在23楼的程序很精彩，但是小弟我学识有限，需要慢慢研究才能懂，要是您愿意，我愿意再设一个类似的帖子，您把23楼的答案粘帖进去，我将设它为最佳答案，再次谢谢各位高手精彩的回答！！

您好farmman60！请问，上述程序中，P所代表的是数值型数据，怎样可以设定它为字符型变量，谢谢指点！！