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

张双亮

%macro create(name,number);
2 H, L! _* E! o- t$ [/ B%do n=1 %to &number;
4 [7 p" ?3 z/ h* O&name.n
%end;
. d5 J( Z! @  K0 g$ g/ e: q7 x4 u; d%mend create;
data %create(abc,3);
4 l+ s. t" Z1 F* w, F) Cinput a@@;
if a=1 then output abc1;
else if a=2 then output abc2;
else if a=3 then output abc3;
3 I0 N: }# Q* i' S) z3 i/ Gcards;
1 2 3
' R+ ~( y, F* i4 L1 x5 Y7 F/ \;
proc print data=abc1;
& P) K: m- K. X5 b; z5 |1 [7 Erun;
proc print data=abc2;
run;
proc print data=abc3;
run;
* {. @* a! m# \

madio

1. %macro create(name=,number=);. Z' y- _6 [- ], Y* T: Q
   
2. %do n=1 %to &number;( f& ]1 ?, _- v
   
3. &name.&n
   : P1 @3 y/ Z  @* b/ D; F
4. %end;1 V- r0 j& x2 }\" j6 k1 V
   
5. %mend create;+ `) q/ w- M- t1 m3 Q/ e4 \
   
6. data %create(name=abc,number=3);
   ' j7 i, Q0 h, Z5 t
7. input a@@;8 O& Z: H9 }$ C! V- z3 @% N, j$ Q
   
8. if a=1 then output abc1;
   9 J' h& {' z8 C3 b( K/ T. R3 C
9. else if a=2 then output abc2;
   0 w- C; X: m9 A\" \\" Y) s4 c0 b
10. else if a=3 then output abc3;
    , n: L6 B; ]$ S/ z  [8 e* T2 A
11. cards;2 |9 ^9 ?' G0 d
    
12. 1 2 3
    8 ~5 S% Y# ^! h, V
13. ;
    5 ~3 G- ~* m/ n\" |% H
14. run;
    \" B* Y2 x% f# s/ C1 J9 x# f
15. proc print data=abc1;
    6 ]3 a+ O6 g0 U9 ?$ F6 O5 ~0 s
16. run;* a' l/ d1 G) I( I/ J( q) x0 [
    
17. proc print data=abc2;$ U$ x, I: s$ s2 ?\" d6 |
    
18. run;( o6 d; m! {7 @4 ?6 Q
    
19. proc print data=abc3;: p8 M& S2 m; u4 y9 T* S
    
20. run;

复制代码

9 T, x: Q3 |( W