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

张双亮

%macro create(name,number);
0 j- l9 O" N5 Q9 m2 ?( B/ j%do n=1 %to &number;
4 ?- V  }  u2 L&name.n
! f1 i/ t; U/ s%end;
%mend create;
data %create(abc,3);
" ?4 }" \9 o% v' Y. T2 X! jinput a@@;
if a=1 then output abc1;
else if a=2 then output abc2;
' J5 g  \- K! {8 j: ~$ w6 relse if a=3 then output abc3;
cards;
6 x' v$ b% u+ ?- d/ V+ b% B1 2 3
2 @5 P4 H. x5 k0 t" o" J# W6 k;
- X& n& d' O- u/ `+ \) uproc print data=abc1;
run;
/ L0 p( @0 D+ R! ~$ Qproc print data=abc2;
run;
proc print data=abc3;
run;

madio

1. %macro create(name=,number=);: l4 Y5 u, Z, z- o% X1 R( {
   
2. %do n=1 %to &number;$ s' I8 @5 Q) l
   
3. &name.&n
   ( R& i6 P( d5 }' O
4. %end;5 d4 I$ m% ]1 c3 W; K6 a3 R, @
   
5. %mend create;
   9 a, m; Q( V% a% K# L
6. data %create(name=abc,number=3);
     o, \' d* p7 b9 q% E+ @& Q% E
7. input a@@;# J& k) @: K! ~  O+ |8 C+ }
   
8. if a=1 then output abc1;
   / C4 y. F' p- ~! C\" D9 f5 w- X
9. else if a=2 then output abc2;' a. }: H$ l8 h- K5 P: N% g
   
10. else if a=3 then output abc3;2 |) t: O3 p# J8 {
    
11. cards;* T7 Q' H! |' ^* D0 h- U7 ]8 {
    
12. 1 2 3
    % z+ W8 C. }/ R, q6 `
13. ;6 g& |* N  n+ j4 {; H' ~
    
14. run;
    % L8 Y. l* h& T3 \, u4 f
15. proc print data=abc1;8 t7 C6 F9 P* c
    
16. run;
      c. i% a2 O* P1 N  `3 `8 I
17. proc print data=abc2;
    & |4 @; h9 M5 V, e. e8 o
18. run;, Q; H3 t4 ~+ V# s# V
    
19. proc print data=abc3;
    : k4 I* @0 o& w\" _2 F4 }4 y
20. run;

复制代码

. _6 `1 d: o" [& x