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

张双亮

%macro create(name,number);
! q7 |. B7 b: c%do n=1 %to &number;
' K9 l' ^$ Z+ X/ a, }&name.n
1 w4 \, k. N0 \, i5 k9 v%end;
%mend create;
; O+ F0 _0 D* Z2 Vdata %create(abc,3);
input a@@;
if a=1 then output abc1;
else if a=2 then output abc2;
else if a=3 then output abc3;
cards;
1 2 3
# [: |( r( [4 |" R; F9 A;
proc print data=abc1;
run;
proc print data=abc2;
run;
proc print data=abc3;
& g9 ]+ A2 M. k2 ^run;
$ o9 i: d9 r: u2 ~

madio

1. %macro create(name=,number=);2 \5 [6 }! _/ K/ J1 d0 f3 L
   
2. %do n=1 %to &number;( D, @8 f; c1 X& O9 W! U! _9 g
   
3. &name.&n4 T% F/ Y4 i6 \
   
4. %end;
   \" X8 _& X- Q# V\" L5 d, S) n% C
5. %mend create;2 e  s+ y# W$ M4 D! k
   
6. data %create(name=abc,number=3);
   + T- x1 {6 e1 N% y' w\" `
7. input a@@;
   1 o' [$ T) ~' I& f' }
8. if a=1 then output abc1;7 O# @' h3 C8 d& C# w7 b
   
9. else if a=2 then output abc2;
   . @  a\" x& t; t, B9 a! }4 Y\" W) l
10. else if a=3 then output abc3;* L! t, s) L1 V% C
    
11. cards;
    7 X& Z# B6 B  U; {& Z1 |
12. 1 2 3
    / @% \/ y2 I* d; m% r  N1 q
13. ;
    - B6 t! K& _: [# N; N
14. run;
    & ~0 m3 m4 R* r& `5 e: P
15. proc print data=abc1;) z9 q6 @( t. K4 c! Z3 ~( @
    
16. run;
    - N; p: o. h; n4 b0 c. s
17. proc print data=abc2;, m  L' a$ u* P8 q4 L) G
    
18. run;6 j) v6 {2 U' q9 z* B3 y8 P4 g
    
19. proc print data=abc3;# ]4 Q2 C4 b! e& O% e/ v2 T
    
20. run;

复制代码