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

张双亮

%macro create(name,number);
- z0 @- l$ r/ _, N& Q%do n=1 %to &number;
&name.n
%end;
%mend create;
* P5 x/ |7 o/ N6 {) S3 ~; Wdata %create(abc,3);
input a@@;
if a=1 then output abc1;
else if a=2 then output abc2;
3 O* V. D/ z) E$ x2 Z/ celse if a=3 then output abc3;
# j% d8 K4 r; F( H( J/ L  T' Z; kcards;
1 2 3
;
5 C9 k4 V3 O/ }, @* W( o. Lproc print data=abc1;
run;
5 n. ?# c2 s# A* f( B9 H+ Kproc print data=abc2;
run;
$ J  G# @0 Q2 G' e4 cproc print data=abc3;
run;
; ~+ o7 L% i3 `

madio

1. %macro create(name=,number=);( x0 v3 V# d, D: ]9 T* {5 A
   
2. %do n=1 %to &number;  k( m+ }- t( \3 M. X
   
3. &name.&n
   # ~5 r. ]) w7 S7 d0 `2 i
4. %end;
   , |1 _, v( z9 ~. x/ p0 k
5. %mend create;3 ]# P! p1 V: ~5 h1 i* e
   
6. data %create(name=abc,number=3);\" g. j) z8 k0 I5 j' Z$ A$ P8 n
   
7. input a@@;1 o! Q' C  r+ O\" ^! s
   
8. if a=1 then output abc1;
   & I$ s/ v% m1 ^4 u( s
9. else if a=2 then output abc2;
   ' |4 d9 `5 h. U% I& h
10. else if a=3 then output abc3;
    - \) o  e6 p1 H  I' T
11. cards;
    - u5 C! Q/ [, R6 ^- q. Q
12. 1 2 3
    / Z4 e  W% C8 s* k- g
13. ;
    2 }1 c/ k9 b\" N2 W, s4 b% }8 V
14. run;
    , K\" U! @8 A) n# z
15. proc print data=abc1;
    ) e) }- t1 N$ U\" b! I
16. run;
    & G0 i! u# k3 g; A# A
17. proc print data=abc2;
    1 I/ m* e% e- d) `& C
18. run;
    & \5 u& b) H# O+ U& x( t
19. proc print data=abc3;5 u3 ~# K3 p. E, c6 u
    
20. run;

复制代码

; D9 n- {+ c! i5 P- q3 Q