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

张双亮

%macro create(name,number);
%do n=1 %to &number;
  f5 K: D& E( Q, ?& a* q) ~! b2 I$ M&name.n
%end;
" o4 P- r0 m& b5 z%mend create;
data %create(abc,3);
) V/ ]# ^, j0 I, Dinput a@@;
9 [  G6 e2 H$ X/ u( v, P# zif a=1 then output abc1;
7 L) j9 L2 {$ L- C+ E6 E$ l% @; Jelse if a=2 then output abc2;
$ N; z/ x9 ?6 X- b- Velse if a=3 then output abc3;
cards;
) J1 R5 e3 g, D; d$ x1 2 3
2 e0 ]; }, e! w;
7 F" X% a4 x* {/ }proc print data=abc1;
- a7 x7 Z/ v6 Frun;
proc print data=abc2;
6 f  U( g) T* T8 ?6 Qrun;
# T# L! u& z' Y, d2 N" V/ Aproc print data=abc3;
8 p! ], s5 h) z- `( c* ?# Brun;
: c/ T; m% i% }6 S' s$ T

madio

1. %macro create(name=,number=);
   5 n$ }9 k) c: h5 e! F6 A: ~
2. %do n=1 %to &number;
   % _6 k; M' Y. s0 `. X) F
3. &name.&n$ P1 f) C% v& s\" e( q5 g
   
4. %end;
   ( n: o8 Y7 v# J# ]* A6 z\" l
5. %mend create;
   1 }1 o  @2 S) L$ r# i3 ?- E/ m
6. data %create(name=abc,number=3);
   ( A6 K% v9 i3 V) p; Y  Z1 u\" U
7. input a@@;9 m, a, V- |' X. H& M8 V2 D
   
8. if a=1 then output abc1;- t& H  A( U) ?7 C
   
9. else if a=2 then output abc2;, D  e! |1 _; O% Q
   
10. else if a=3 then output abc3;
      h( K# f8 n( E( m5 P8 W& \$ j
11. cards;; v: D\" M5 c( j; [& r& H8 ^
    
12. 1 2 37 }( t' u  a7 W& v( v& Q, c+ k1 h' F# ~
    
13. ;
    ) g3 @% ?$ ^\" ]& A5 _% p; Z& f4 a
14. run;
    : I7 o2 P9 Y- {! X3 s6 h9 X
15. proc print data=abc1;2 G, D3 }+ W4 H  r& G4 Z
    
16. run;( N3 @8 A' I4 O
    
17. proc print data=abc2;+ j6 F+ d9 U6 `; ^4 i5 S6 X8 w
    
18. run;  S( P9 s4 t! U\" |' M) _: `
    
19. proc print data=abc3;
    0 z6 K$ C( g1 c: x8 ~) E# v+ S
20. run;

复制代码

& m5 d- i" h& v