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

张双亮

%macro create(name,number);
%do n=1 %to &number;
&name.n
%end;
% }( b" y8 w% A9 Z! j2 Y2 ]9 ?%mend create;
8 Z8 U, M: ?  a4 W" c1 ^, M# W4 Pdata %create(abc,3);
input a@@;
; d8 y& m' f% f& {if a=1 then output abc1;
# D/ z4 t0 U# F; ]: [0 ]else if a=2 then output abc2;
) Z- ~# v5 f+ H' J. r7 `: Kelse if a=3 then output abc3;
cards;
, p  q! Q8 x. V3 c2 B* n" X) {1 2 3
;
proc print data=abc1;
run;
proc print data=abc2;
run;
7 E; y$ o* C+ wproc print data=abc3;
run;
4 n) Q$ M9 M* k/ i3 V

madio

1. %macro create(name=,number=);2 p+ [! Q& U3 Y
   
2. %do n=1 %to &number;, N+ \: z/ Q  [4 w1 }! n( N; l3 ]) h' O
   
3. &name.&n
   + q% t& P' D* |  `& w
4. %end;
   7 t$ j3 A1 ]: }: e8 m0 W
5. %mend create;
   , n7 R+ O# |6 J/ j) z1 t
6. data %create(name=abc,number=3);
   $ {0 y3 y5 d$ B! m; b9 o9 j9 t
7. input a@@;
   6 I+ r: M$ |4 F5 c* W
8. if a=1 then output abc1;* e! h) `9 t5 m+ p! C9 B
   
9. else if a=2 then output abc2;+ k  u$ E0 a0 x
   
10. else if a=3 then output abc3;
    # Z0 \( x5 |  I+ G
11. cards;- X/ y, H6 Q9 C* L1 }* x
    
12. 1 2 3% X, X! y) w/ r9 w/ P8 c  P
    
13. ;
    8 l% I. }* B; X
14. run;4 o% o. G$ O# F2 h9 }
    
15. proc print data=abc1;2 u3 x1 K9 k9 m/ k
    
16. run;! T* [2 P! s+ L% M9 Y
    
17. proc print data=abc2;. E( L- D8 [3 t2 N+ x: v
    
18. run;/ t0 T# e9 d\" f, E
    
19. proc print data=abc3;+ Z! d' j/ R- ^* ?* \5 ~% L6 l& Y
    
20. run;

复制代码