不知道错哪里了？求大神解答

张双亮

%macro create(name,number);
%do n=1 %to &number;
&name.n
%end;
%mend create;
: |" H! g+ u! `/ ldata %create(abc,3);
input a@@;
if a=1 then output abc1;
, T3 J. Z- U4 w& `else if a=2 then output abc2;
$ d, D( |. }2 s7 f% O+ t! ^2 telse if a=3 then output abc3;
cards;
1 2 3
* ]1 j) z0 U8 C: x+ d;
proc print data=abc1;
run;
+ j! I) a7 X+ s1 c) u0 Yproc print data=abc2;
& L1 d4 j0 j9 I1 h1 irun;
& E) J' F3 q- [3 a# K, g# |proc print data=abc3;
& Z# }' L" c: y$ P& o$ T0 g* Srun;
6 T- U0 u- A4 I8 n: r

madio

1. %macro create(name=,number=);  \$ i0 g7 }6 s. ^
   
2. %do n=1 %to &number;$ V6 V+ J8 e& o: @. W
   
3. &name.&n# ^# p+ E' g\" v5 s
   
4. %end;
   5 k+ F( b% H* V6 ^: g. ]1 j6 i* R
5. %mend create;9 r; D, C3 g+ e. o5 M4 Q2 x\" B
   
6. data %create(name=abc,number=3);
   : O& E7 y/ |3 r' J# W
7. input a@@;! j7 _. P5 O* g3 C$ x
   
8. if a=1 then output abc1;
   \" u1 k- n; [: Q) A& A8 D2 N
9. else if a=2 then output abc2;
   0 v/ p% n0 X; |4 H  a5 D. r
10. else if a=3 then output abc3;
    7 N& p/ }( N0 o  q, y6 p3 z
11. cards;! s2 d6 B& d3 L8 u0 D# j. H) }. N- ^
    
12. 1 2 3
    - Q1 Z- r6 t8 {
13. ;
    2 [\" Q4 O4 x  s% z\" a+ [, ~
14. run;
    \" K, |  }8 Q7 \; D$ N( @; {- d# j
15. proc print data=abc1;
    8 I\" e- [! o, i3 G7 k
16. run;
    $ I- O& I* }9 W2 H* R1 I
17. proc print data=abc2;
    + c2 L1 H% x/ u: U' D( A: w% G
18. run;
    2 _* g3 T7 `/ W
19. proc print data=abc3;
    # O9 @2 b8 D% n4 k: U. N
20. run;

复制代码