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

张双亮

%macro create(name,number);
%do n=1 %to &number;
&name.n
%end;
%mend create;
- m5 S9 k/ P" p6 ~8 O) w: V* udata %create(abc,3);
5 a) K2 u9 J* R. Einput a@@;
if a=1 then output abc1;
6 L8 E( L6 z. V" L; J4 {else if a=2 then output abc2;
else if a=3 then output abc3;
cards;
1 2 3
8 e0 P$ S) Y- H4 k& p* A;
proc print data=abc1;
run;
proc print data=abc2;
run;
% e: ~* X- k0 t* ~& wproc print data=abc3;
run;
( }' h6 m; @+ _2 d- J; [* Y4 y

madio

1. %macro create(name=,number=);
   7 R  P! |' d  ~# x1 J% M9 U* k
2. %do n=1 %to &number;  a) L' V! \; C# l
   
3. &name.&n9 y/ `* W8 }/ B. p$ K! T, X
   
4. %end;
   ) E6 K% `7 |3 S4 S, A8 `2 b9 ?  C
5. %mend create;8 F  y6 M# b  g  B& \
   
6. data %create(name=abc,number=3);
   1 \' H$ I$ k3 B& j
7. input a@@;2 o# M8 q  _0 J1 X! M/ |
   
8. if a=1 then output abc1;1 m* l! w4 e4 m7 [5 Y9 |. C
   
9. else if a=2 then output abc2;0 b% n' f+ C) e8 H
   
10. else if a=3 then output abc3;
    7 I* T* r. v' ^# U7 ]
11. cards;4 h1 d3 ]& r8 B& q
    
12. 1 2 3  }1 z7 I' q0 `5 b! s
    
13. ;
    2 a# K$ D  U\" u0 K. N& G% u, z0 }
14. run;8 T- N  A; c3 j
    
15. proc print data=abc1;
    % D+ n& p\" h( o: Q1 J. \
16. run;
    % Y. a+ H% x. H. i2 q7 E& z$ h
17. proc print data=abc2;! \! m( N, y3 @2 m& @* c) [
    
18. run;1 J  N; e  [! g9 ?  @! u7 e7 [
    
19. proc print data=abc3;
    / e6 |, n% S& J7 @9 B
20. run;

复制代码