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

张双亮

%macro create(name,number);
# \& H/ Y; A9 G$ k4 z8 F%do n=1 %to &number;
- }3 Q. @2 h  T&name.n
%end;
+ s( {& O' a$ }%mend create;
+ h; J7 o/ H' o% f! V' @data %create(abc,3);
5 t, T3 O5 z$ j/ ]* V+ _input a@@;
if a=1 then output abc1;
- C# T8 n- q$ z5 uelse if a=2 then output abc2;
: F+ e8 a: x- d" Jelse if a=3 then output abc3;
cards;
& _$ [; Z) X" c8 s: P1 2 3
;
1 d  b/ k" d6 x+ f) Q) _proc print data=abc1;
' @! g$ f- Y; Q) y; K6 Drun;
/ z% f( \7 N+ x3 Rproc print data=abc2;
run;
proc print data=abc3;
. X2 ^" @1 T4 A2 Y# D; z; s1 n( w  }( Srun;
- c1 J! ?6 t  T2 L

madio

1. %macro create(name=,number=);
   ' a: |* D8 A4 ~$ B# m) H! Q: I1 A
2. %do n=1 %to &number;+ Z# W7 q, \2 a; W, R; F
   
3. &name.&n
   1 I5 G' V$ n: q0 t; {
4. %end;
   # N( b5 M\" v0 D. ~, x# S
5. %mend create;  P# c: |8 ?& S6 T1 y
   
6. data %create(name=abc,number=3);
   ; Q. k$ m2 V4 X
7. input a@@;; W2 p' ^# v# x( e: B1 n2 N
   
8. if a=1 then output abc1;
   9 g0 L* b  Y. G( [! ^
9. else if a=2 then output abc2;
   : V% u8 O8 i$ i( l, _0 S
10. else if a=3 then output abc3;5 ]  D+ v$ E2 E\" V3 m8 l\" R& G
    
11. cards;
    ! x  z\" K* `3 T* L5 @+ ]
12. 1 2 3
    * Z  ?1 G3 n/ p( i( q& q
13. ;5 n3 w7 y+ S/ w' J. ^, r
    
14. run;
      D0 r6 k+ v  m) G- R* e+ ]- p
15. proc print data=abc1;
    ! N. j2 P5 G) C
16. run;' s0 p; C$ P, U3 J$ ^
    
17. proc print data=abc2;
    ; E: N\" a+ m1 S! J
18. run;
    6 Y1 p4 v# Y* y. }
19. proc print data=abc3;, A3 l; Y  g, y$ n2 g6 L
    
20. run;

复制代码

# f( ^' n4 G7 `' m( b2 K: C* L. j- f5 W