我想将关系数据合并为事物数据，具体如下：原数据AA：
ID ，NAME，SEX
1     小王    女
2     小李   男
希望合并后的数据cc：
ID  attr
1  （ name_小王，sex_女,....）
2   （name_小李，sex_男,.....）
现在找了一个程序，但是不知道出错在什么地方，请大家指教。感觉出错在红色背景部分，求指教

data cc;

  input id 8. attr $5.;

  cards;

  ;

  run;

  %macro trans;

    %do i=1 %to 2;

    data x&i; set aa;

     keepid x&i;

      datax&i; set x&i;

        ifx&i=0 then attr="x&i"||"_"||'0';

        %do j=1 %to8;

         if x&i=&j then attr="x&i"||"_"||"&j";

        %end;

     proc append base=cc data=x&i force;

    %end;

   %mend;

   %trans;

[img]file:///C:\Documents and Settings\Administrator\Application Data\Tencent\Users\36172771\QQ\WinTemp\RichOle\M0Z[SUL(_5)4%96}BZ1_IUL.jpg[/img]