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

张双亮

%macro create(name,number);
%do n=1 %to &number;
&name.n
6 v1 s% C1 t. }4 P%end;
9 t1 u' t# O4 L7 g%mend create;
data %create(abc,3);
- O1 Q1 ?+ k8 n7 ]6 Uinput a@@;
2 z0 s7 l5 D) H  Jif a=1 then output abc1;
/ ^- G$ v( x. X5 v/ P9 G0 i  \; T" jelse if a=2 then output abc2;
else if a=3 then output abc3;
4 t" T7 x0 S& ?2 d. Bcards;
1 2 3
;
proc print data=abc1;
* p3 w2 V# @" n+ W& C4 b$ n3 Erun;
3 ]7 w  y7 K. C0 Z+ p( ?# hproc print data=abc2;
run;
proc print data=abc3;
. A5 r$ g' v1 U6 ^) z: @run;
& R4 s1 }$ j/ K, A6 t& b

madio

1. %macro create(name=,number=);1 J' N1 y- N2 C& A- N
   
2. %do n=1 %to &number;
   1 O6 N, S# l8 z2 }5 e5 B7 e
3. &name.&n+ a. n1 d$ Y. d. @( C
   
4. %end;
   & u6 j+ q. {, A4 C- A
5. %mend create;
   2 m& P/ j9 m# q
6. data %create(name=abc,number=3);% d' ~4 Q8 q, V
   
7. input a@@;0 r2 D7 V+ E\" R, F! \
   
8. if a=1 then output abc1;\" G* Y& k+ i7 ?. U5 Q
   
9. else if a=2 then output abc2;
   7 G; C5 a2 [- s- |0 @. i
10. else if a=3 then output abc3;
    % F' ~7 |7 n8 V' c9 ]. p0 J
11. cards;/ E; \( ]; _1 t( m) U1 `
    
12. 1 2 3) X: t/ D/ `  \
    
13. ;
    & b, V2 w0 c/ D- Z9 R, f6 @
14. run;
    - D1 Y' l% D2 J
15. proc print data=abc1;3 I& Q5 e: l; ]- Q( }
    
16. run;/ v; j\" A4 U  T8 t1 J2 M: L3 a
    
17. proc print data=abc2;9 n0 f\" c4 S+ `) \' g4 M( F* b3 e' Z
    
18. run;
    ; X% U* {+ U0 T0 j! G
19. proc print data=abc3;- n% [$ o$ a5 L& o6 s3 \7 o
    
20. run;

复制代码