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

张双亮

%macro create(name,number);
%do n=1 %to &number;
! K, ~2 v, l0 v" T2 a- ]# v&name.n
%end;
! P' X0 O, J& d% g) w4 `# r%mend create;
9 v1 g3 G, r, u/ D4 x; Xdata %create(abc,3);
6 s0 [/ h/ Y& q- dinput a@@;
if a=1 then output abc1;
else if a=2 then output abc2;
else if a=3 then output abc3;
2 Q& @) l* D8 p- f! r4 h2 _cards;
! p& a7 a; [) {! W+ v+ o1 2 3
;
proc print data=abc1;
run;
proc print data=abc2;
run;
proc print data=abc3;
* d1 w( m8 Q1 d/ L/ u4 Mrun;

madio

1. %macro create(name=,number=);
   3 V% p5 j. g1 l: H4 R
2. %do n=1 %to &number;
   * o* {( d6 H0 n9 b/ G6 X6 i
3. &name.&n
   7 e3 [6 o4 n' ]& N8 n
4. %end;
   % Q( e& {6 P  v. ~  s& K5 Q
5. %mend create;  Q2 W5 K* m) r2 U# E
   
6. data %create(name=abc,number=3);
   2 A- N' [; `* g. ?# k6 O2 N\" I
7. input a@@;. e# A, L% ~( D) G
   
8. if a=1 then output abc1;
   8 f# o1 U' T6 |\" Y+ |5 R( j0 T
9. else if a=2 then output abc2;
   ( ?( }\" V$ e+ F8 U- i- h, D4 X
10. else if a=3 then output abc3;
    % j8 D\" R( t. Z/ W) f  [
11. cards;! g- y; v& z$ t7 k
    
12. 1 2 3) P+ I( H4 i! W2 W; ~, i% y, @
    
13. ;
    ; C% U/ ]3 R+ Z, \
14. run;$ p. d3 [: p4 D% ?
    
15. proc print data=abc1;
    5 c. u: B' ]  v# g# V
16. run;) A, V% M: }$ s5 Y1 U
    
17. proc print data=abc2;
    6 {* t7 \. d) D! e
18. run;
    9 p9 R4 ?' `6 u) c, ]% Z
19. proc print data=abc3;
    - W$ x. ?( ^\" E- {
20. run;

复制代码