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

张双亮

%macro create(name,number);
%do n=1 %to &number;
7 @( L' m" o1 V$ C&name.n
%end;
%mend create;
* @  |; Q( n3 D) {" Udata %create(abc,3);
input a@@;
) c* F8 {" A; H7 Z$ n0 R$ @, gif a=1 then output abc1;
else if a=2 then output abc2;
( l$ n7 D  e. ]* @- z/ T* o) velse if a=3 then output abc3;
cards;
, C/ W0 Q- x2 _* f/ ]9 d1 2 3
;
proc print data=abc1;
run;
# c$ h2 |6 s" vproc print data=abc2;
; L4 i, ~; ~) g, J8 arun;
proc print data=abc3;
run;

madio

1. %macro create(name=,number=);
   + F\" U# B3 L. f
2. %do n=1 %to &number;  M( }. M4 ^% q2 N0 c
   
3. &name.&n
   8 r' y: W) a1 y
4. %end;
   ; B$ M0 C8 O, D+ s  M
5. %mend create;
   9 P; f9 o, l# g: t8 `\" [
6. data %create(name=abc,number=3);
   : W) R7 R7 j% N' I, u9 e4 p
7. input a@@;9 A% g2 t: P( [
   
8. if a=1 then output abc1;
   5 }/ y5 C1 Z7 Z) D
9. else if a=2 then output abc2;
   2 s( c! n: [0 G- U3 g
10. else if a=3 then output abc3;
    + K3 ^+ S' m\" S; x8 C  O9 }/ D
11. cards;
    \" f: y% U6 J' D2 f
12. 1 2 3
    - t4 K# H# d! V8 _# X\" u
13. ;( v, S2 X) i$ V- O
    
14. run;  W' Q7 ]! M: f# ^; M! a) Y; g/ R\" V
    
15. proc print data=abc1;
    6 y. o+ {2 X; i8 }\" ]
16. run;, N, L0 K9 J# G
    
17. proc print data=abc2;
    , h4 `4 P( j6 \! f  }( \
18. run;
    ; }& d  M1 n$ N# r2 ^7 G  O
19. proc print data=abc3;
    # \( G6 s0 Z- C% X1 U
20. run;

复制代码

5 N; O7 C, Y. Q$ e& g, O1 q8 Q